This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Convert File::Spec's remaining tests to Test::More from Test.
[perl5.git] / dist / Cwd / t / tmpdir.t
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");