HTML-Tested-JavaScript
3 results

 view release on metacpan or  search on metacpan

t/110_webkit.t  view on Meta::CPAN 

	}
	exit;
}

my $mech = Gtk2::WebKit::Mechanize->new;
my $dir = abs_path(dirname($0));
copy("$dir/tiger.xhtml", "$td/tiger.xhtml") or die;
symlink(abs_path(dirname($0) . "/../javascript"), "$td/javascript");

$mech->get("file://$td/tiger.xhtml");
is($mech->title, 'XHTML test');
is_deeply($mech->console_messages, []);

write_file("$td/a.html", <<'ENDS');
<html>
<head>
<title>Diff Array</title>
<script src="javascript/rich_edit.js"></script>
<script src="javascript/serializer.js"></script>
<script>
var o1 = { a: [ 12, 14 ] };

t/130_rich_xhtml.t  view on Meta::CPAN 

__PACKAGE__->ht_add_widget(::HTJRE, "v");

package main;

$HTML::Tested::JavaScript::Location = "javascript";
my $obj = T->new;
my $stash = {};
$obj->ht_render($stash);

my $str = sprintf(<<'ENDS', $stash->{v_script}, $stash->{v});
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html  xmlns="http://www.w3.org/1999/xhtml">
<head>%s
<style>
#v {
	width: 300px;
	height: 300px;
}
</style>
</head><body> %s </body> </html>
ENDS

t/tiger.xhtml  view on Meta::CPAN 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head><title>XHTML test</title></head>
<style>
svg {
	-moz-user-select: none;
}

#zoom_cont {
	-moz-user-select: none;
	position: relative;
	width: 16px;
	height: 180px;



( run in 1.398 second using v1.01-cache-2.11-cpan-49f99fa48dc )