This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix incompatibility with bison generated parser (from
[perl5.git] / t / lib / filespec.t
CommitLineData
3149a8e4 1#!./perl
270d1e39
GS
2
3BEGIN {
3149a8e4
GS
4 $^O = '';
5 chdir 't' if -d 't';
93430cb4 6 unshift @INC, '../lib';
270d1e39
GS
7}
8
3149a8e4
GS
9print "1..4\n";
10
270d1e39
GS
11use File::Spec;
12
13
14if (File::Spec->catfile('a','b','c') eq 'a/b/c') {
15 print "ok 1\n";
16} else {
17 print "not ok 1\n";
18}
19
20use File::Spec::OS2;
21
22if (File::Spec::OS2->catfile('a','b','c') eq 'a/b/c') {
23 print "ok 2\n";
24} else {
25 print "not ok 2\n";
26}
27
28use File::Spec::Win32;
29
30if (File::Spec::Win32->catfile('a','b','c') eq 'a\b\c') {
31 print "ok 3\n";
32} else {
33 print "not ok 3\n";
34}
35
36use File::Spec::Mac;
37
38if (File::Spec::Mac->catfile('a','b','c') eq 'a:b:c') {
39 print "ok 4\n";
40} else {
41 print "not ok 4\n";
42}
43