view release on metacpan or  search on metacpan

t/gsp.t  view on Meta::CPAN

	$mech->content_like(qr/first POST/);
	$mech->content_like(qr/second POST/);
};

subtest 'PUT named graph (RDF/XML)' => sub {
	$mech->delete('/gsp?graph=http%3A%2F%2Fexample.org%2Frdfxml');
	$mech->put('/gsp?graph=http%3A%2F%2Fexample.org%2Frdfxml', 'Content-Type' => 'application/rdf+xml', content => <<"END");
<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
         xmlns:eg="http://example.org/"
         xml:base="http://example.org/dir/file">
  <rdf:Description rdf:ID="frag" eg:value="rdf/xml value" />
</rdf:RDF>
END
	ok( $mech->success );

	$mech->get_ok('/gsp?graph=http%3A%2F%2Fexample.org%2Frdfxml', {Accept => 'application/n-triples', 'Accept-Encoding' => ''});
	is( $mech->ct, 'application/n-triples', 'Is application/n-triples' );
	$mech->content_like(qr#http://example.org/value#);
	$mech->content_like(qr#rdf/xml value#);
};