Permalink
Browse files

case_tolerant done

  • Loading branch information...
FROGGS committed Sep 14, 2012
1 parent b6efdd5 commit 558aa780228b3014d92eb16b3e89ca7dde385904
Showing with 23 additions and 14 deletions.
  1. +3 −3 README.md
  2. +1 −1 lib/File/Spec/Epoc.pm
  3. +1 −1 lib/File/Spec/Mac.pm
  4. +1 −1 lib/File/Spec/OS2.pm
  5. +1 −3 lib/File/Spec/Unix.pm
  6. +1 −1 lib/File/Spec/VMS.pm
  7. +1 −1 lib/File/Spec/Win32.pm
  8. +3 −1 t/01_mac.t
  9. +3 −0 t/01_os2.t
  10. +2 −1 t/01_unix.t
  11. +3 −0 t/01_vms.t
  12. +3 −1 t/01_win32.t
View
@@ -8,8 +8,8 @@ Usage:
Methods (current state):
- Unix Mac OS2 Win32 VMS
- canonpath done
+ Unix Mac OS2 Win32 VMS Cygwin Epoc
+ canonpath done
catdir done
catfile done
curdir done done done
@@ -18,7 +18,7 @@ Methods (current state):
tmpdir done done done
updir done done done
no_upwards done
- case_tolerant
+ case_tolerant done done done done done done
file_name_is_absolute
path
join
View
@@ -14,7 +14,7 @@ class File::Spec::Epoc {
method tmpdir { ::($module).tmpdir() }
method updir { ::($module).updir() }
method no_upwards { ::($module).no_upwards() }
- method case_tolerant { ::($module).case_tolerant() }
+ method case_tolerant { 1 }
method file_name_is_absolute { ::($module).file_name_is_absolute() }
method path { ::($module).path() }
method join { ::($module).join() }
View
@@ -20,7 +20,7 @@ class File::Spec::Mac {
method updir { '::' }
method no_upwards { ::($module).no_upwards() }
- method case_tolerant { ::($module).case_tolerant() }
+ method case_tolerant { 1 }
method file_name_is_absolute { ::($module).file_name_is_absolute() }
method path { ::($module).path() }
method join { ::($module).join() }
View
@@ -14,7 +14,7 @@ class File::Spec::OS2 {
method tmpdir { ::($module).tmpdir() }
method updir { ::($module).updir() }
method no_upwards { ::($module).no_upwards() }
- method case_tolerant { ::($module).case_tolerant() }
+ method case_tolerant { 1 }
method file_name_is_absolute { ::($module).file_name_is_absolute() }
method path { ::($module).path() }
method join { ::($module).join() }
View
@@ -69,9 +69,7 @@ class File::Spec::Unix {
return @no_upwards;
}
- method case_tolerant {
-
- }
+ method case_tolerant { 0 }
method file_name_is_absolute {
View
@@ -14,7 +14,7 @@ class File::Spec::VMS {
method tmpdir { ::($module).tmpdir() }
method updir { ::($module).updir() }
method no_upwards { ::($module).no_upwards() }
- method case_tolerant { ::($module).case_tolerant() }
+ method case_tolerant { 1 }
method file_name_is_absolute { ::($module).file_name_is_absolute() }
method path { ::($module).path() }
method join { ::($module).join() }
View
@@ -29,7 +29,7 @@ class File::Spec::Win32 {
method updir { ::($module).updir() }
method no_upwards { ::($module).no_upwards() }
- method case_tolerant { ::($module).case_tolerant() }
+ method case_tolerant { 1 }
method file_name_is_absolute { ::($module).file_name_is_absolute() }
method path { ::($module).path() }
method join { ::($module).join() }
View
@@ -18,7 +18,9 @@ else {
#tmpdir
is File::Spec.updir, '::', 'updir is "::"';
#no_upwards
- #case_tolerant
+
+ is File::Spec.case_tolerant, 1, 'case_tolerant is 0';
+
#file_name_is_absolute
#path
#join
View
@@ -10,6 +10,9 @@ if $*OS !~~ 'os2' {
}
else {
is File::Spec.curdir, '.', 'curdir is "."';
+
+ is File::Spec.case_tolerant, 1, 'case_tolerant is 0';
+
}
done;
View
@@ -51,7 +51,8 @@ else {
my @want = <.git blib lib t>;
is_deeply File::Spec.no_upwards( @get ), @want, 'no_upwards: (. .. .git blib lib t) -> (.git blib lib t)';
- #case_tolerant
+ is File::Spec.case_tolerant, 0, 'case_tolerant is 0';
+
#file_name_is_absolute
#path
#join
View
@@ -10,6 +10,9 @@ if $*OS !~~ 'VMS' {
}
else {
is File::Spec.curdir, '.', 'curdir is "."';
+
+ is File::Spec.case_tolerant, 1, 'case_tolerant is 0';
+
}
done;
View
@@ -18,7 +18,9 @@ else {
#tmpdir
is File::Spec.updir, '..', 'updir is ".."';
#no_upwards
- #case_tolerant
+
+ is File::Spec.case_tolerant, 1, 'case_tolerant is 0';
+
#file_name_is_absolute
#path
#join

0 comments on commit 558aa78

Please sign in to comment.