This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
8113e1c
)
coreamp.t: rename badly-named tests
author
Father Chrysostomos
<sprout@cpan.org>
Mon, 30 Apr 2012 04:16:51 +0000
(21:16 -0700)
committer
Father Chrysostomos
<sprout@cpan.org>
Tue, 22 May 2012 04:37:57 +0000
(21:37 -0700)
t/op/coreamp.t
patch
|
blob
|
blame
|
history
diff --git
a/t/op/coreamp.t
b/t/op/coreamp.t
index
78ced66
..
062ee5c
100644
(file)
--- a/
t/op/coreamp.t
+++ b/
t/op/coreamp.t
@@
-637,12
+637,12
@@
$tests += 2;
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');
- ::lis [$b,$banana],[(undef)x2], '
2
-arg &reset';
+ ::lis [$b,$banana],[(undef)x2], '
1
-arg &reset';
}
test_proto 'reverse';