File Coverage

blib/lib/HTML/Tested/JavaScript/Test/RichEdit.pm

Criterion	Covered	Total	%
statement	3	3	100.0
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	4	4	100.0

package HTML::Tested::JavaScript::Test::RichEdit;
use base 'HTML::Tested::Test::Value', 'Exporter';

our @EXPORT_OK = qw(HTRE_Get_Value HTRE_Set_Value HTRE_Get_Body HTRE_Clean);

sub handle_sealed {
	my ($class, $e_root, $name, $e_val, $r_val, $err) = @_;
	return ($e_val, $r_val);
}

sub check_text {
	my ($class, $e_root, $name, $e_stash, $text) = @_;
	return ($class->SUPER::check_text($e_root, $name, $e_stash, $text)
			, $class->SUPER::check_text($e_root, $name . "_script"
				, $e_stash, $text));
}

sub HTRE_Get_Body {
	my ($mech, $name) = @_;
	return $mech->get_html_element_by_id($name, "IFrame")
			->GetContentDocument()
			->GetElementsByTagName("body")->Item(0)
			->QueryInterface(Mozilla::DOM::NSHTMLElement->GetIID);
}

sub HTRE_Clean {
	my $v = shift;
	$v =~ s# xmlns="[^"]+"##g;
	$v =~ s# _moz[^ />]+##g;
	$v =~ s# type="_moz"##g;
	return $v;
}

sub HTRE_Get_Value { HTRE_Clean(HTRE_Get_Body(@_)->GetInnerHTML); }

sub HTRE_Set_Value {
	my ($mech, $name, $val) = @_;
	HTRE_Get_Body($mech, $name)->SetInnerHTML($val);
}

1;