This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
op/join.t: don't use done_testing
authorDavid Mitchell <davem@iabyn.com>
Thu, 19 Jul 2012 10:40:49 +0000 (11:40 +0100)
committerDavid Mitchell <davem@iabyn.com>
Thu, 19 Jul 2012 10:42:01 +0000 (11:42 +0100)
since the number of tests is known in advance.

t/op/join.t

index af1306c..9a3dead 100644 (file)
@@ -6,6 +6,8 @@ BEGIN {
     require './test.pl';
 }
 
+plan tests => 22;
+
 @x = (1, 2, 3);
 is( join(':',@x), '1:2:3', 'join an array with character');
 
@@ -95,4 +97,3 @@ is( $f, 'baeak', 'join back to self, self is join character');
   is( $ju2, $u );
 }
 
-done_testing;