Commit | Line | Data |
acbb349e |
1 | #!./perl |
2 | |
aa689395 |
3 | BEGIN { unshift(@INC,'../lib') if -d '../lib'; } |
4 | |
acbb349e |
5 | use VMS::Filespec; |
0e9538e6 |
6 | use File::Spec; |
acbb349e |
7 | |
8 | foreach (<DATA>) { |
9 | chomp; |
10 | s/\s*#.*//; |
11 | next if /^\s*$/; |
12 | push(@tests,$_); |
13 | } |
cd5cd3a3 |
14 | |
15 | require './test.pl'; |
16 | plan(tests => scalar(2*@tests)+6); |
acbb349e |
17 | |
18 | foreach $test (@tests) { |
cd5cd3a3 |
19 | ($arg,$func,$expect) = split(/\s+/,$test); |
20 | |
9ba1b7d2 |
21 | $expect = undef if $expect eq 'undef'; |
acbb349e |
22 | $rslt = eval "$func('$arg')"; |
9ba1b7d2 |
23 | is($@, '', "eval ${func}('$arg')"); |
51078f7b |
24 | is(lc($rslt), lc($expect), "${func}('$arg'): '$rslt'"); |
acbb349e |
25 | } |
26 | |
17f28c40 |
27 | $defwarn = <<'EOW'; |
28 | # Note: This failure may have occurred because your default device |
29 | # was set using a non-concealed logical name. If this is the case, |
30 | # you will need to determine by inspection that the two resultant |
9ba1b7d2 |
31 | # file specifications shown above are in fact equivalent. |
17f28c40 |
32 | EOW |
33 | |
b4558e59 |
34 | is(uc(rmsexpand('[]')), "\U$ENV{DEFAULT}", 'rmsexpand()') || print $defwarn; |
51078f7b |
35 | is(lc(rmsexpand('from.here')),"\L$ENV{DEFAULT}from.here") || print $defwarn; |
36 | is(lc(rmsexpand('from')), "\L$ENV{DEFAULT}from") || print $defwarn; |
cd5cd3a3 |
37 | |
51078f7b |
38 | is(lc(rmsexpand('from.here','cant:[get.there];2')), |
cd5cd3a3 |
39 | 'cant:[get.there]from.here;2') || print $defwarn; |
40 | |
acbb349e |
41 | |
09b7f37c |
42 | # Make sure we're using redirected mkdir, which strips trailing '/', since |
43 | # the CRTL's mkdir can't handle this. |
cd5cd3a3 |
44 | ok(mkdir('testdir/',0777), 'using redirected mkdir()'); |
45 | ok(rmdir('testdir/'), ' rmdir()'); |
09b7f37c |
46 | |
acbb349e |
47 | __DATA__ |
48 | |
0e9538e6 |
49 | # lots of underscores used to minimize collision with existing logical names |
50 | |
acbb349e |
51 | # Basic VMS to Unix filespecs |
0e9538e6 |
52 | __some_:[__where_.__over_]__the_.__rainbow_ unixify /__some_/__where_/__over_/__the_.__rainbow_ |
53 | [.__some_.__where_.__over_]__the_.__rainbow_ unixify __some_/__where_/__over_/__the_.__rainbow_ |
54 | [-.__some_.__where_.__over_]__the_.__rainbow_ unixify ../__some_/__where_/__over_/__the_.__rainbow_ |
55 | [.__some_.--.__where_.__over_]__the_.__rainbow_ unixify __some_/../../__where_/__over_/__the_.__rainbow_ |
7fc7512a |
56 | [.__some_...__where_.__over_]__the_.__rainbow_ unixify __some_/.../__where_/__over_/__the_.__rainbow_ |
0e9538e6 |
57 | [...__some_.__where_.__over_]__the_.__rainbow_ unixify .../__some_/__where_/__over_/__the_.__rainbow_ |
58 | [.__some_.__where_.__over_...]__the_.__rainbow_ unixify __some_/__where_/__over_/.../__the_.__rainbow_ |
59 | [.__some_.__where_.__over_...] unixify __some_/__where_/__over_/.../ |
60 | [.__some_.__where_.__over_.-] unixify __some_/__where_/__over_/../ |
acbb349e |
61 | [] unixify ./ |
62 | [-] unixify ../ |
63 | [--] unixify ../../ |
f86702cc |
64 | [...] unixify .../ |
42cd432e |
65 | __lyrics_:[__are_.__very_^.__sappy_]__but_^.__rhymes_^.__are_.__true_ unixify /__lyrics_/__are_/__very_.__sappy_/__but_.__rhymes_.__are_.__true_ |
acbb349e |
66 | |
67 | # and back again |
0e9538e6 |
68 | /__some_/__where_/__over_/__the_.__rainbow_ vmsify __some_:[__where_.__over_]__the_.__rainbow_ |
69 | __some_/__where_/__over_/__the_.__rainbow_ vmsify [.__some_.__where_.__over_]__the_.__rainbow_ |
70 | ../__some_/__where_/__over_/__the_.__rainbow_ vmsify [-.__some_.__where_.__over_]__the_.__rainbow_ |
71 | __some_/../../__where_/__over_/__the_.__rainbow_ vmsify [-.__where_.__over_]__the_.__rainbow_ |
72 | .../__some_/__where_/__over_/__the_.__rainbow_ vmsify [...__some_.__where_.__over_]__the_.__rainbow_ |
73 | __some_/.../__where_/__over_/__the_.__rainbow_ vmsify [.__some_...__where_.__over_]__the_.__rainbow_ |
74 | /__some_/.../__where_/__over_/__the_.__rainbow_ vmsify __some_:[...__where_.__over_]__the_.__rainbow_ |
75 | __some_/__where_/... vmsify [.__some_.__where_...] |
76 | /__where_/... vmsify __where_:[...] |
acbb349e |
77 | . vmsify [] |
78 | .. vmsify [-] |
79 | ../.. vmsify [--] |
f86702cc |
80 | .../ vmsify [...] |
491527d0 |
81 | / vmsify sys$disk:[000000] |
acbb349e |
82 | |
83 | # Fileifying directory specs |
0e9538e6 |
84 | __down_:[__the_.__garden_.__path_] fileify __down_:[__the_.__garden_]__path_.dir;1 |
85 | [.__down_.__the_.__garden_.__path_] fileify [.__down_.__the_.__garden_]__path_.dir;1 |
86 | /__down_/__the_/__garden_/__path_ fileify /__down_/__the_/__garden_/__path_.dir;1 |
87 | /__down_/__the_/__garden_/__path_/ fileify /__down_/__the_/__garden_/__path_.dir;1 |
88 | __down_/__the_/__garden_/__path_ fileify __down_/__the_/__garden_/__path_.dir;1 |
89 | __down_:[__the_.__garden_]__path_ fileify __down_:[__the_.__garden_]__path_.dir;1 |
90 | __down_:[__the_.__garden_]__path_. fileify # N.B. trailing . ==> null type |
9ba1b7d2 |
91 | __down_:[__the_]__garden_.__path_ fileify undef |
0e9538e6 |
92 | /__down_/__the_/__garden_/__path_. fileify # N.B. trailing . ==> null type |
9ba1b7d2 |
93 | /__down_/__the_/__garden_.__path_ fileify undef |
acbb349e |
94 | |
95 | # and pathifying them |
0e9538e6 |
96 | __down_:[__the_.__garden_]__path_.dir;1 pathify __down_:[__the_.__garden_.__path_] |
97 | [.__down_.__the_.__garden_]__path_.dir pathify [.__down_.__the_.__garden_.__path_] |
98 | /__down_/__the_/__garden_/__path_.dir pathify /__down_/__the_/__garden_/__path_/ |
99 | __down_/__the_/__garden_/__path_.dir pathify __down_/__the_/__garden_/__path_/ |
100 | __down_:[__the_.__garden_]__path_ pathify __down_:[__the_.__garden_.__path_] |
101 | __down_:[__the_.__garden_]__path_. pathify # N.B. trailing . ==> null type |
9ba1b7d2 |
102 | __down_:[__the_]__garden_.__path_ pathify undef |
0e9538e6 |
103 | /__down_/__the_/__garden_/__path_. pathify # N.B. trailing . ==> null type |
9ba1b7d2 |
104 | /__down_/__the_/__garden_.__path_ pathify undef |
0e9538e6 |
105 | __down_:[__the_.__garden_]__path_.dir;2 pathify #N.B. ;2 |
106 | __path_ pathify __path_/ |
107 | /__down_/__the_/__garden_/. pathify /__down_/__the_/__garden_/./ |
108 | /__down_/__the_/__garden_/.. pathify /__down_/__the_/__garden_/../ |
109 | /__down_/__the_/__garden_/... pathify /__down_/__the_/__garden_/.../ |
9ba1b7d2 |
110 | __path_.notdir pathify undef |
acbb349e |
111 | |
112 | # Both VMS/Unix and file/path conversions |
0e9538e6 |
113 | __down_:[__the_.__garden_]__path_.dir;1 unixpath /__down_/__the_/__garden_/__path_/ |
114 | /__down_/__the_/__garden_/__path_ vmspath __down_:[__the_.__garden_.__path_] |
115 | __down_:[__the_.__garden_.__path_] unixpath /__down_/__the_/__garden_/__path_/ |
116 | __down_:[__the_.__garden_.__path_...] unixpath /__down_/__the_/__garden_/__path_/.../ |
117 | /__down_/__the_/__garden_/__path_.dir vmspath __down_:[__the_.__garden_.__path_] |
118 | [.__down_.__the_.__garden_]__path_.dir unixpath __down_/__the_/__garden_/__path_/ |
119 | __down_/__the_/__garden_/__path_ vmspath [.__down_.__the_.__garden_.__path_] |
120 | __path_ vmspath [.__path_] |
491527d0 |
121 | / vmspath sys$disk:[000000] |
acbb349e |
122 | |
123 | # Redundant characters in Unix paths |
0e9538e6 |
124 | //__some_/__where_//__over_/../__the_.__rainbow_ vmsify __some_:[__where_]__the_.__rainbow_ |
125 | /__some_/__where_//__over_/./__the_.__rainbow_ vmsify __some_:[__where_.__over_]__the_.__rainbow_ |
acbb349e |
126 | ..//../ vmspath [--] |
127 | ./././ vmspath [] |
128 | ./../. vmsify [-] |
0e9538e6 |
129 | |
130 | # Our override of File::Spec->canonpath can do some strange things |
78b110b0 |
131 | __dev:[__dir.000000]__foo File::Spec->canonpath __dev:[__dir.000000]__foo |
0e9538e6 |
132 | __dev:[__dir.][000000]__foo File::Spec->canonpath __dev:[__dir]__foo |