Yet Another CPAN Grep

HTML-Tested-JavaScript ( B/BO/BOSU/HTML-Tested-JavaScript-0.30.tar.gz, BOSU, 2011; MetaCPAN )

HTML-Tested-JavaScript/t/080_color_picker.t ( view source; MetaCPAN )

ing");

package main;

my $obj = H->new;
my $stash = {};
$obj->ht_render($stash);
isnt($stash->{cp_color}, undef);
isnt($stash->{cp_hue}, undef);

my $td = tempdir('/tmp/ht_color_p_XXXXXX', CLEANUP =>

($mech->console_messages, []) or exit 1;

my $cp_div = $mech->get_html_element_by_id("cp_color");
isnt($cp_div, undef) or diag(read_file("$td/a.html"));
like($mech->get_element_style($cp_div, "backgro

mage")
	, qr/color_picker\.png/);

my $point = $mech->get_html_element_by_id("cp_color_pointer");
isnt($point, undef) or diag(read_file("$td/a.html"));
like($mech->get_element_style($point, "backgroun

HTML-Tested-JavaScript ( B/BO/BOSU/HTML-Tested-JavaScript-0.30.tar.gz, BOSU, 2011; MetaCPAN )

HTML-Tested-JavaScript/t/060_rich_edit.t ( view source; MetaCPAN )

</body> </html>', $stash->{v});
my @err = HTML::Tested::Test->check_text('T', $str, { v => '' });
isnt($err[0], undef);

$str = sprintf(<<'ENDS', $stash->{v_script}, $stash->{v});
<html> <head>%s
<sty

tml_element_by_id("v", "IFrame")->GetContentDocument()
		->GetElementsByTagName("body")->Item(0);
isnt($if, undef) or exit 1;
use_ok('HTML::Tested::JavaScript::Test::RichEdit', qw(HTRE_Get_Value
			HT

$bo = $mech->get_html_element_by_id("v_bold");
isnt($bo, undef) or exit 1;
$mech->x_click($bo, 2, 2);

my $vif = $mech->get_html_element_by_id("v");
isnt($vif, undef) or exit 1;
$mech->x_send_keys('ho

HTML-Tested-JavaScript ( B/BO/BOSU/HTML-Tested-JavaScript-0.30.tar.gz, BOSU, 2011; MetaCPAN )

HTML-Tested-JavaScript/t/040_auto_select.t ( view source; MetaCPAN )

;
my $stash = {};
$obj->v('0121223123123999');
$obj->ht_render($stash);

my $res = $stash->{sel};
isnt($res, undef);
is($stash->{v}, '<script>//<![CDATA[
var v = "0121223123123999";//]]>
</script>');

->console_messages, []) or diag($mech->content);
isnt(index($mech->content, $res), -1);

my $sel = $mech->get_html_element_by_id("sel", "Select");
isnt($sel, undef);
is($sel->GetSelectedIndex, 1);

#


ENDS
ok($mech->get("$d_url/td/b.html"));

$sel = $mech->get_html_element_by_id("sel", "Select");
isnt($sel, undef);
is($sel->GetSelectedIndex, 1);

# Silence gtk_main_quit warnings
{
	local *STDERR;

HTML-Tested-JavaScript ( B/BO/BOSU/HTML-Tested-JavaScript-0.30.tar.gz, BOSU, 2011; MetaCPAN )

HTML-Tested-JavaScript/t/100_zoompan.t ( view source; MetaCPAN )

me("svg")[0].getAttribute("viewBox");
ENDS

my $zptr = $mech->get_html_element_by_id("zoom_ptr");
isnt($zptr, undef);
is($mech->get_element_style($zptr, "top"), "85px");

$mech->x_mouse_down($zptr, 3,

ame("g")[0].getAttribute("transform");
ENDS

my $sva = $mech->get_html_element_by_id("svg_area");
isnt($sva, undef);

$mech->x_mouse_down($sva, 100, 100);
$mech->x_mouse_up($sva, 200, 200);
is($mech->

gName("g")[0].getAttribute("transform");
ENDS

$zptr = $mech->get_html_element_by_id("zoom_ptr");
isnt($zptr, undef);

$mech->x_mouse_down($zptr, 3, 3);
$mech->x_mouse_up($zptr, 6, 13);
is($mech->get_

HTML-Tested-JavaScript ( B/BO/BOSU/HTML-Tested-JavaScript-0.30.tar.gz, BOSU, 2011; MetaCPAN )

HTML-Tested-JavaScript/t/130_rich_xhtml.t ( view source; MetaCPAN )

t("v").contentType'), 'application/xhtml+xml');

my $if_ns = HTRE_Get_Body($mech, "v", "IFrame");
isnt($if_ns, undef) or exit 1;
my $br = HTRE_Get_Value($mech, "v");
like($br, qr/^<br ?\/>$/);
is($mec