diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-01-23 15:28:51 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-01-23 15:28:51 +0000 |
commit | 2d43ffd7ce8feba058a102d6f7a5d98caa61d6a4 (patch) | |
tree | d28a234f20c3d812882bc763d8495d23e9da8433 | |
parent | 569c7194e5b461f35d6e987fb81516da3a5cf6a5 (diff) | |
download | perl-2d43ffd7ce8feba058a102d6f7a5d98caa61d6a4.tar.gz |
Now that change #26410 is reverted, mark as TODO the tests added
by change #26925.
p4raw-link: @26925 on //depot/perl: 86f12da24a95dda38e6d599b881a5cca226226e4
p4raw-link: @26410 on //depot/perl: e26a497577f3ce7b9a4d9e1e62062839554dfd8f
p4raw-id: //depot/perl@26928
-rwxr-xr-x | t/op/pat.t | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 004499f80d..96a056ad79 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -3432,7 +3432,7 @@ ok(("foba ba$s" =~ qr/(foo|BaSS|bar)/i) my $aeek = bless {}, 'wooosh'; eval {$aeek->gloople() =~ /(.)/g;}; - ok($@ eq "", "# TODO 26410 caused a regression") or print "# $@\n"; + ok($@ eq "", "//g match against return value of sub") or print "# $@\n"; } { @@ -3445,8 +3445,6 @@ ok(("foba ba$s" =~ qr/(foo|BaSS|bar)/i) } { - # Prior to change 26410 this did not work: - package lv; $var = "abc"; sub variable : lvalue { $var } @@ -3455,18 +3453,16 @@ ok(("foba ba$s" =~ qr/(foo|BaSS|bar)/i) my $o = bless [], "lv"; my $f = ""; eval { for (1..2) { $f .= $1 if $o->variable =~ /(.)/g } }; - ok($f eq "ab", "# pos retained between calls") or print "# $@\n"; + ok($f eq "ab", "pos retained between calls # TODO") or print "# $@\n"; } { - # Prior to change 26410 this did not work: - $var = "abc"; sub variable : lvalue { $var } my $f = ""; eval { for (1..2) { $f .= $1 if variable() =~ /(.)/g } }; - ok($f eq "ab", "# pos retained between calls") or print "# $@\n"; + ok($f eq "ab", "pos retained between calls # TODO") or print "# $@\n"; } # last test 1199 |