This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In taint.t, avoid using ok() where better test functions are more suitable.
authorNicholas Clark <nick@ccl4.org>
Mon, 28 Feb 2011 13:22:34 +0000 (13:22 +0000)
committerNicholas Clark <nick@ccl4.org>
Wed, 2 Mar 2011 09:13:23 +0000 (09:13 +0000)
t/op/taint.t

index 13cbaca..fc5b60d 100644 (file)
@@ -1582,12 +1582,12 @@ SKIP: {
 }
 
 
-ok( ${^TAINT} == 1, '$^TAINT is on' );
+is(${^TAINT}, 1, '$^TAINT is on');
 
 eval { ${^TAINT} = 0 };
-ok( ${^TAINT},  '$^TAINT is not assignable' );
-ok( $@ =~ /^Modification of a read-only value attempted/,
-                                'Assigning to ${^TAINT} fails' );
+is(${^TAINT}, 1, '$^TAINT is not assignable');
+like($@, qr/^Modification of a read-only value attempted/,
+     'Assigning to ${^TAINT} fails');
 
 {
     # bug 20011111.105
@@ -1890,11 +1890,11 @@ SKIP:
     eval { printf($TAINT . "# %s\n", "foo") };
     like($@, qr/^Insecure dependency in printf/, q/printf doesn't like tainted formats/);
     eval { printf("# %s\n", $TAINT . "foo") };
-    ok(!$@, q/printf accepts other tainted args/);
+    is($@, '', q/printf accepts other tainted args/);
     eval { sprintf($TAINT . "# %s\n", "foo") };
     like($@, qr/^Insecure dependency in sprintf/, q/sprintf doesn't like tainted formats/);
     eval { sprintf("# %s\n", $TAINT . "foo") };
-    ok(!$@, q/sprintf accepts other tainted args/);
+    is($@, '', q/sprintf accepts other tainted args/);
 }
 
 {