Source

useTest::Moreskip_all=>'bad solution as of now';useTest::Moose;useData::Dumper;useMooseX::Semantic::Test::MockServer;useMooseX::Semantic::Test::Person;my$server=MooseX::Semantic::Test::MockServer->new;my$pid=fork;if($pid){$server->run;}my$p=MooseX::Semantic::Test::Person->new('name'=>'ABC',);my$resp=$p->export_to_web(PUT=>'http://localhost:54321',format=>'turtle');my$in_turtle=$p->export_to_string(format=>'turtle');is($resp->request->content,$in_turtle,'Server received correct serialization');is($resp->request->method,'PUT','Server was requested using PUT');# HTTP::Requestdone_testing;$server->kill;# exit;