@@ -24,6 +24,10 @@ lives_ok { my $l = RDF::Trine::Node::Literal::XML->new( '<foo/>bar', undef, 'http://www.w3.org/1999/02/22-rdf-syntax-ns#XMLLiteral' ); } 'lives on valid element xml'; +lives_ok { + my $l = RDF::Trine::Node::Literal::XML->new( 'baz<bar>baz</bar><foo/>', undef, 'http://www.w3.org/1999/02/22-rdf-syntax-ns#XMLLiteral' ); +} 'lives on valid two-element with content xml'; + { my $l = RDF::Trine::Node::Literal::XML->new( 'foo', undef, 'http://www.w3.org/1999/02/22-rdf-syntax-ns#XMLLiteral' ); isa_ok( $l, 'RDF::Trine::Node::Literal::XML' ); @@ -55,4 +59,3 @@ lives_ok { is( $l->literal_value, '<a/>', 'expected literal value' ); is( $l->literal_datatype, 'http://www.w3.org/1999/02/22-rdf-syntax-ns#XMLLiteral', 'expected literal datatype' ); } - RDF-Trine-Node-Literal-XML/t/xmlliteral.t 30ffd3f477636e81246f627d0e7ba8e555148a7f Gregory Todd Williams greg@evilfunhouse.com http://github.com/kasei/perlrdf/commit/1bb59f3838030d01c1de7c62e4330316a284636d 1bb59f3838030d01c1de7c62e4330316a284636d 2009-02-20T21:22:00-08:00 2009-02-20T21:22:00-08:00 - Added another XML test (from KjetilK). 97152523723e7f38a371c16432fea2de8a255e71 Gregory Todd Williams greg@evilfunhouse.com