view release on metacpan or  search on metacpan

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

## Test 1.
do_test $dav1, 
   $dav1->proppatch(-namespace=>'patrick',
                    -propname=>'test_prop',
                    -propvalue=>'test_val'),
   '/Resource/', 
   "proppatch set test_prop";

$resource = $dav1->propfind(-depth=>0);
if ($resource) {
   do_test $dav1, 
           $resource->get_property('test_prop'),
           'test_val',
           "propfind get_property test_prop";
} else {
   print "Couldn't perform propfind\n";
   ok 0;
}
print $resource->as_string;


## Test 2
do_test 
   $dav1, 
   $dav1->proppatch(-namespace=>'patrick',
                    -propname=>'test_prop',
                    -action=>'remove'),
   '/Resource/', 
   "proppatch remove test_prop";

$resource = $dav1->propfind(-depth=>0);
if ($resource) {
   do_test $dav1, 
           $resource->get_property('test_prop'),
           '',
           "propfind get_property test_prop";
} else {
   print "Couldn't perform propfind\n";
   ok 0;
}
print $resource->as_string;

######################################################################
if ($coll_lock) {
   do_test $dav1, $dav1->lock(),          1,"LOCK";
   
   # Test 3a
   do_test 
      $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'),
      '/Resource/', 
      "unset_prop DAV:test_prop";
   
   $resource = $dav1->propfind(-depth=>0);
   if ($resource) {
      do_test $dav1, 
              $resource->get_property('test_prop'),
              '',
              "propfind get_property DAV:test_prop";
   } else {
      print "Couldn't perform propfind\n";
      ok 0;
   }
   print $resource->as_string;

   do_test $dav1, $dav1->unlock(),          1,"UNLOCK";
}

# Cleanup
if ( $test_url =~ /http/ ) {
   print "Cleaning up\n";
   $dav1->cwd("..");
   do_test $dav1, $dav1->delete($newdir),      1,"DELETE $newdir";
}