This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
coreamp.t: rename badly-named tests
authorFather Chrysostomos <sprout@cpan.org>
Mon, 30 Apr 2012 04:16:51 +0000 (21:16 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 22 May 2012 04:37:57 +0000 (21:37 -0700)
t/op/coreamp.t

index 78ced66..062ee5c 100644 (file)
@@ -637,12 +637,12 @@ $tests += 2;
 my $oncer = sub { "a" =~ m?a? };
 &$oncer;
 &myreset;
 my $oncer = sub { "a" =~ m?a? };
 &$oncer;
 &myreset;
-ok &$oncer, '&reset with one arg';
+ok &$oncer, '&reset with no args';
 package resettest {
   $b = "c";
   $banana = "cream";
   &::myreset('b');
 package resettest {
   $b = "c";
   $banana = "cream";
   &::myreset('b');
-  ::lis [$b,$banana],[(undef)x2], '2-arg &reset';
+  ::lis [$b,$banana],[(undef)x2], '1-arg &reset';
 }
 
 test_proto 'reverse';
 }
 
 test_proto 'reverse';