epoc tests (or what passes for them)

FROGGS · Apr 1, 2013 · 01f9c56 · 01f9c56
1 parent e5145ac
commit 01f9c56
Showing 1 changed file with 25 additions and 0 deletions.
diff --git a/t/01_epoc.t b/t/01_epoc.t
@@ -0,0 +1,25 @@
+use v6;
+use lib 'lib';
+use Test;
+use File::Spec;
+use File::Spec::Epoc;
+
+plan 8;
+my $epoc = File::Spec::Epoc;
+
+say "# File::Spec::Epoc";
+my @canonpath = 
+	$(''),                                      '',
+	$('///../../..//./././a//b/.././c/././'),   '/a/b/../c',
+	$('/./'),                                   '/',
+	$('/a/./'),                                 '/a';
+for @canonpath -> $in, $out {
+	is $epoc.canonpath($in), $out, "canonpath: '$in' -> '$out'";
+}
+
+is $epoc.curdir,  '.',   'curdir is "."';
+is $epoc.updir,   '..',  'updir is ".."';
+is $epoc.case_tolerant, True, 'default_case_tolerant is True';
+is $epoc.default_case_tolerant, True, 'default_case_tolerant is True';
+
+done;