view release on metacpan or  search on metacpan

t/5_proppatch.t  view on Meta::CPAN

      $dav1, 
      $dav1->set_prop(-propname=>'test_prop',-propvalue=>'test_value2'),
      '/Resource/', 
      "proppatch set DAV:test_prop";
   
   $resource = $dav1->propfind(-depth=>0);
   if ($resource) {
      do_test $dav1, 
              $resource->get_property('test_prop'),
              'test_value2',
              "propset get_property DAV:test_prop";
   } else {
      print "Couldn't perform propfind\n";
      ok 0;
   }
   print $resource->as_string;

   # Test 3b
   do_test 
      $dav1, 
      $dav1->unset_prop(-propname=>'test_prop',-namespace=>'DAV'),