Convert File::Spec's remaining tests to Test::More from Test.
authorNicholas Clark <nick@ccl4.org>
Sat, 22 Jan 2011 19:56:41 +0000 (19:56 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 22 Jan 2011 19:56:41 +0000 (19:56 +0000)
dist/Cwd/t/Functions.t
dist/Cwd/t/Spec.t
dist/Cwd/t/tmpdir.t

index 457f53c..6ab225f 100644 (file)
@@ -1,10 +1,9 @@
 #!/usr/bin/perl -w
 
-use Test;
-use File::Spec::Functions qw/:ALL/;
-plan tests => 2;
+use Test::More tests => 3;
+BEGIN {use_ok('File::Spec::Functions', ':ALL');}
 
-ok catfile('a','b','c'), File::Spec->catfile('a','b','c');
+is(catfile('a','b','c'), File::Spec->catfile('a','b','c'));
 
 # seems to return 0 or 1, so see if we can call it - 2003-07-07 tels
-ok case_tolerant(), '/^0|1$/';
+like(case_tolerant(), qr/\A(?:0|1)\z/);
index 0c658e2..950fa7a 100644 (file)
@@ -1,12 +1,10 @@
 #!/usr/bin/perl -w
 
-use Test;
+use strict;
+use Test::More;
 
-# Grab all of the plain routines from File::Spec
-use File::Spec @File::Spec::EXPORT_OK ;
+require_ok('File::Spec');
 
-require File::Spec::Unix ;
-require File::Spec::Win32 ;
 require Cwd;
 
 eval {
@@ -43,18 +41,16 @@ if ( $@ ) {
    - ;
    $INC{"VMS/Filespec.pm"} = 1 ;
 }
-require File::Spec::VMS ;
 
-require File::Spec::OS2 ;
-require File::Spec::Mac ;
-require File::Spec::Epoc ;
-require File::Spec::Cygwin ;
+foreach (qw(Unix Win32 VMS OS2 Mac Epoc Cygwin)) {
+    require_ok("File::Spec::$_");
+}
 
 # Each element in this array is a single test. Storing them this way makes
 # maintenance easy, and should be OK since perl should be pretty functional
 # before these tests are run.
 
-@tests = (
+my @tests = (
 # [ Function          ,            Expected          ,         Platform ]
 
 [ "Unix->case_tolerant()",         '0'  ],
@@ -253,8 +249,6 @@ require File::Spec::Cygwin ;
 [ "Win32->canonpath('/..\\')",          '\\'                  ],
 [ "Win32->canonpath('d1/../foo')",      'foo'                 ],
 
-[ "Win32->can('_cwd')",                 '/CODE/'              ],
-
 # FakeWin32 subclass (see below) just sets CWD to C:\one\two and getdcwd('D') to D:\alpha\beta
 
 [ "FakeWin32->abs2rel('/t1/t2/t3','/t1/t2/t3')",     '.'                      ],
@@ -743,9 +737,7 @@ require File::Spec::Cygwin ;
 
 ) ;
 
-my $test_count = scalar @tests;
-
-plan tests => scalar @tests;
+can_ok('File::Spec::Win32', '_cwd');
 
 {
     package File::Spec::FakeWin32;
@@ -773,7 +765,6 @@ plan tests => scalar @tests;
     }
 }
 
-
 # Tries a named function with the given args and compares the result against
 # an expected result. Works with functions that return scalars or arrays.
 for ( @tests ) {
@@ -783,15 +774,15 @@ for ( @tests ) {
     $function =~ s/^([^\$].*->)/File::Spec::$1/;
     my $got = join ',', eval $function;
 
   if ( $@ ) {
-      if ( $@ =~ /^\Q$skip_exception/ ) {
-       skip "skip $function: $skip_exception", 1;
-      }
-      else {
-       ok $@, '', $function;
-      }
-      next;
SKIP: {
+       if ($@) {
+           skip "skip $function: $skip_exception", 1
+               if $@ =~ /^\Q$skip_exception/;
+           is($@, '', $function);
+       } else {
+           is($got, $expected, $function);
+       }
     }
-
-    ok $got, $expected, $function;
 }
+
+done_testing();
index 6adad18..6f7f318 100644 (file)
@@ -1,13 +1,12 @@
 use strict;
-use Test;
+use Test::More tests => 5;
 
 # Grab all of the plain routines from File::Spec
 use File::Spec;
 use File::Spec::Win32;
 
-plan tests => 4;
+require_ok($_) foreach qw(File::Spec File::Spec::Win32);
 
-ok 1, 1, "Loaded";
 
 if ($^O eq 'VMS') {
     # hack:
@@ -17,15 +16,16 @@ if ($^O eq 'VMS') {
 }
 my $num_keys = keys %ENV;
 File::Spec->tmpdir;
-ok scalar keys %ENV, $num_keys, "tmpdir() shouldn't change the contents of %ENV";
+is scalar keys %ENV, $num_keys, "tmpdir() shouldn't change the contents of %ENV";
 
-if ($^O eq 'VMS') {
-  skip("Can't make list assignment to %ENV on this system", 1);
-} else {
-  local %ENV;
-  File::Spec::Win32->tmpdir;
-  ok scalar keys %ENV, 0, "Win32->tmpdir() shouldn't change the contents of %ENV";
+SKIP: {
+    skip("Can't make list assignment to %ENV on this system", 1)
+       if $^O eq 'VMS';
+
+    local %ENV;
+    File::Spec::Win32->tmpdir;
+    is(scalar keys %ENV, 0, "Win32->tmpdir() shouldn't change the contents of %ENV");
 }
 
 File::Spec::Win32->tmpdir;
-ok scalar keys %ENV, $num_keys, "Win32->tmpdir() shouldn't change the contents of %ENV";
+is(scalar keys %ENV, $num_keys, "Win32->tmpdir() shouldn't change the contents of %ENV");