diff options
| author | Abigail <abigail@abigail.be> | 2003-10-27 15:50:24 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2003-10-31 20:28:11 +0000 |
| commit | f6fc61a976a4e982e1e2299ddb1e1e737e95f9e4 (patch) | |
| tree | e8fc3c57c4340ea7d31428faf6f8b95e3704d742 | |
| parent | 329dbf03a0bd1d216535ad6d12f0895f8835ed70 (diff) | |
| download | perl-f6fc61a976a4e982e1e2299ddb1e1e737e95f9e4.tar.gz | |
Integrate (as TODO test):
[ 21565]
Subject: [PATCH t/comp/proto.t] Test (5.9.x)
Message-ID: <20031027135024.GA12666@abigail.nl>
p4raw-link: @21565 on //depot/perl: b8ec4db0281494f81643a75b165d473ad70184cd
p4raw-id: //depot/maint-5.8/perl@21594
p4raw-edited: from //depot/perl@21585 'edit in' t/comp/proto.t
(@15754..)
| -rwxr-xr-x | t/comp/proto.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/t/comp/proto.t b/t/comp/proto.t index e317a94b2a..0105a65c92 100755 --- a/t/comp/proto.t +++ b/t/comp/proto.t @@ -16,7 +16,7 @@ BEGIN { use strict; -print "1..140\n"; +print "1..141\n"; my $i = 1; @@ -629,3 +629,7 @@ print "ok ", $i++, "\n"; eval "sub good (\$\t\$\n\$) { 1; }"; print "not " if $@; print "ok ", $i++, "\n"; + +eval 'sub bug (\[%@]) { } my $array = [0 .. 1]; bug %$array;'; +print "not " unless $@ =~ /Not a HASH reference/; +print "ok ", $i++, " # TODO Ought to fail, doesn't in 5.8.2\n"; |