1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
#!/usr/local/bin/perl -w
################################################################
# t/t_dav_globs.t
# Tests globbing functionality: wildcards, like *, ? etc in URL's
#
# GLOB - Test plan
# -------------------------
# We want to perform test functions against ...
#
# Test 1.
# OPEN perldav_test_copy/subdir/ (should fail because no depth).
use strict;
use HTTP::DAV;
use lib 't';
use TestDetails qw($test_user $test_pass $test_url do_test fail_tests test_callback);
use Test;
my $TESTS=11;
plan tests => $TESTS;
fail_tests($TESTS) unless $test_url =~ /http/;
HTTP::DAV::DebugLevel(3);
my $targeturi = "perldav_test" .$$ . "_".time;
my $shorturi = "perldav_test" .$$;
my $targeturl = URI->new_abs($targeturi,$test_url);
my $localdir = "/tmp/$targeturi";
print "targeturi: $targeturi\n";
print "targeturl: $targeturl\n";
my $dav1 = HTTP::DAV->new();
$dav1->credentials( $test_user, $test_pass, $test_url );
# SETUP
# make URL/perldav_12341234/test_data/*
do_test $dav1, $dav1->open ($test_url), 1,"OPEN $test_url";
do_test $dav1, $dav1->mkcol($targeturl), 1,"MKCOL $targeturl";
do_test $dav1, mkdir($localdir), 1, "system mkdir $localdir";
# TEST 1
# Test that working directory =~ /$shorturi/
do_test $dav1, $dav1->cwd("$shorturi*"), 1,"CWD $shorturi*";
do_test $dav1, $dav1->get_workingurl, "/$shorturi/", "CHECK WORKING DIRECTORY =~ /$shorturi/";
# TEST 2
do_test $dav1, $dav1->put(-local=>"t/test_data/file*", -callback=>\&test_callback), 1, "PUT t/test_data/file*";
# TEST 3
# Test for get xxxxxx* (should fail)
do_test $dav1, $dav1->get(-url=>"xxxxx*", -to=>$localdir), 0, 'GET xxxxx*';
# TEST 4
# Test for get file[1_]* (should succeed)
do_test $dav1, $dav1->get(-url=>"file[1_]*", -to=>$localdir,-callback=>\&test_callback), 1, 'GET file[1_]*';
# TEST 5
# Test for delete *.txt (should succeed)
do_test $dav1, $dav1->delete(-url=>"*.txt",-callback=>\&test_callback), 1, 'DELETE *.txt';
# TEST 6
# Test for delete *.txt (should fail)
do_test $dav1, $dav1->delete(-url=>"*.txt",-callback=>\&test_callback), 0, 'DELETE *.txt';
# CLEANUP
do_test $dav1, $dav1->delete("$targeturl"), 1,"DELETE $targeturl";
system("/bin/rm -rf $localdir");
|
