This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Convert Env's tests to Test::More
authorNicholas Clark <nick@ccl4.org>
Mon, 24 Jan 2011 16:22:57 +0000 (16:22 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 24 Jan 2011 16:28:55 +0000 (16:28 +0000)
dist/Env/t/array.t
dist/Env/t/env.t

index ed84834..d6a15a6 100644 (file)
@@ -5,16 +5,12 @@ BEGIN {
        $ENV{BAR} = "bar";
 }
 
+use strict;
+use Test::More tests => 2;
 use Env qw(FOO $BAR);
 
 $FOO .= "/bar";
 $BAR .= "/baz";
 
-print "1..2\n";
-
-print "not " if $FOO ne 'foo/bar';
-print "ok 1\n";
-
-print "not " if $BAR ne 'bar/baz';
-print "ok 2\n";
-
+is($FOO, 'foo/bar');
+is($BAR, 'bar/baz');
index 8881202..9e87f4a 100644 (file)
@@ -2,11 +2,11 @@
 
 $| = 1;
 
-if ($^O eq 'VMS') {
-    print "1..11\n";
-    foreach (1..11) { print "ok $_ # skipped for VMS\n"; }
-    exit 0;
-}
+use strict;
+use Test::More;
+
+plan(skip_all => "skipped for VMS") if $^O eq 'VMS';
+plan(tests => 11);
 
 use Env  qw(@FOO);
 use vars qw(@BAR);
@@ -21,75 +21,46 @@ sub array_equal
     return 1;
 }
 
-sub test
-{
-    my ($desc, $code) = @_;
+@FOO = qw(a B c);
+@BAR = qw(a B c);
+is_deeply(\@FOO, \@BAR, "Assignment");
 
-    &$code;
+$FOO[1] = 'b';
+$BAR[1] = 'b';
+is_deeply(\@FOO, \@BAR, "Storing");
 
-    print "# $desc...\n";
-    print "#    FOO = (", join(", ", @FOO), ")\n";
-    print "#    BAR = (", join(", ", @BAR), ")\n";
+$#FOO = 0;
+$#BAR = 0;
+is_deeply(\@FOO, \@BAR, "Truncation");
 
-    if (defined $check) { print "not " unless &$check; }
-    else { print "not " unless array_equal(\@FOO, \@BAR); }
+push @FOO, 'b', 'c';
+push @BAR, 'b', 'c';
+is_deeply(\@FOO, \@BAR, "Push");
 
-    print "ok ", ++$i, "\n";
-}
+pop @FOO;
+pop @BAR;
+is_deeply(\@FOO, \@BAR, "Pop");
+
+shift @FOO;
+shift @BAR;
+is_deeply(\@FOO, \@BAR, "Shift");
+
+push @FOO, 'c';
+push @BAR, 'c';
+is_deeply(\@FOO, \@BAR, "Push");
+
+unshift @FOO, 'a';
+unshift @BAR, 'a';
+is_deeply(\@FOO, \@BAR, "Unshift");
+
+@FOO = reverse @FOO;
+@BAR = reverse @BAR;
+is_deeply(\@FOO, \@BAR, "Reverse");
+
+@FOO = sort @FOO;
+@BAR = sort @BAR;
+is_deeply(\@FOO, \@BAR, "Sort");
 
-print "1..11\n";
-
-test "Assignment", sub {
-    @FOO = qw(a B c);
-    @BAR = qw(a B c);
-};
-
-test "Storing", sub {
-    $FOO[1] = 'b';
-    $BAR[1] = 'b';
-};
-
-test "Truncation", sub {
-    $#FOO = 0;
-    $#BAR = 0;
-};
-
-test "Push", sub {
-    push @FOO, 'b', 'c';
-    push @BAR, 'b', 'c';
-};
-
-test "Pop", sub {
-    pop @FOO;
-    pop @BAR;
-};
-
-test "Shift", sub {
-    shift @FOO;
-    shift @BAR;
-};
-
-test "Push", sub {
-    push @FOO, 'c';
-    push @BAR, 'c';
-};
-
-test "Unshift", sub {
-    unshift @FOO, 'a';
-    unshift @BAR, 'a';
-};
-
-test "Reverse", sub {
-    @FOO = reverse @FOO;
-    @BAR = reverse @BAR;
-};
-
-test "Sort", sub {
-    @FOO = sort @FOO;
-    @BAR = sort @BAR;
-};
-
-test "Splice", sub {
-    splice @FOO, 1, 1, 'B';
-    splice @BAR, 1, 1, 'B';
-};
+splice @FOO, 1, 1, 'B';
+splice @BAR, 1, 1, 'B';
+is_deeply(\@FOO, \@BAR, "Splice");