This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Convert threads-shared/t/disabled.t from Test to Test::More.
authorNicholas Clark <nick@ccl4.org>
Wed, 19 Jan 2011 12:01:44 +0000 (12:01 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 21 Jan 2011 08:36:52 +0000 (08:36 +0000)
Curiously it was the only test of Threads::Shared that used Test.

dist/threads-shared/t/disabled.t

index 46e781e..9134570 100644 (file)
@@ -1,50 +1,47 @@
 use strict;
 use warnings;
 
-use Test;
-plan tests => 31;
+use Test::More tests => 27;
 
 use threads::shared;
 
 ### Start of Testing ###
 
-# Make sure threads are really off
-ok( !$INC{"threads.pm"} );
+ok( !$INC{"threads.pm"}, 'make sure threads are really off' );
 
 # Check each faked function.
 foreach my $func (qw(share cond_wait cond_signal cond_broadcast)) {
-    ok( my $func_ref = __PACKAGE__->can($func) ? 1 : 0 );
+    isnt( __PACKAGE__->can($func), 0, "Have $func" );
 
     eval qq{$func()};
-    ok( $@, qr/^Not enough arguments / );
+    like( $@, qr/^Not enough arguments /, 'Expected error with no arguments');
 
     my %hash = (foo => 42, bar => 23);
     eval qq{$func(\%hash)};
-    ok( $@, '' );
-    ok( $hash{foo}, 42 );
-    ok( $hash{bar}, 23 );
+    is( $@, '', 'no error' );
+    is_deeply( \%hash, {foo => 42, bar => 23}, 'argument is unchanged' );
 }
 
 # These all have no return value.
 foreach my $func (qw(cond_wait cond_signal cond_broadcast)) {
     my @array = qw(1 2 3 4);
-    ok( eval qq{$func(\@array)}, undef );
-    ok( "@array", "1 2 3 4" );
+    is( eval qq{$func(\@array)}, undef, "$func has no return value" );
+    is_deeply( \@array, [1, 2, 3, 4], 'argument is unchanged' );
 }
 
-# share() is supposed to return back it's argument as a ref.
 {
     my @array = qw(1 2 3 4);
-    ok( share(@array), \@array );
-    ok( ref &share({}), 'HASH' );
-    ok( "@array", "1 2 3 4" );
+    is_deeply( share(@array), \@array,
+       'share() is supposed to return back its argument as a ref' );
+    is( ref &share({}), 'HASH' );
+    is_deeply( \@array, [1, 2, 3, 4], 'argument is unchanged' );
 }
 
 # lock() should be a no-op.  The return value is currently undefined.
 {
     my @array = qw(1 2 3 4);
     lock(@array);
-    ok( "@array", "1 2 3 4" );
+    is_deeply( \@array, [1, 2, 3, 4], 'lock() should be a no-op' );
 }
 
 exit(0);