diff options
| author | Yves Orton <demerphq@gmail.com> | 2006-10-12 02:46:50 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-10-12 08:43:20 +0000 |
| commit | 0a4db386e1881073eaec2c3026e38146ff1d6b18 (patch) | |
| tree | 22dc82474a42a26c55deb83dfafc99ada28994c9 /t/op/pat.t | |
| parent | 6980eebd7cd40424ba72081bd69d31d2b7576f4f (diff) | |
| download | perl-0a4db386e1881073eaec2c3026e38146ff1d6b18.tar.gz | |
Add Regex conditionals. Various bugfixes. More tests.
Message-ID: <9b18b3110610111546j74ca490dg21bd9fd1e7e10d42@mail.gmail.com>
p4raw-id: //depot/perl@28998
Diffstat (limited to 't/op/pat.t')
| -rwxr-xr-x | t/op/pat.t | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 465757df1d..a6ea46c8f5 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -3714,9 +3714,13 @@ sub iseq($$;$) { iseq(0+@k, 3, 'Got 3 keys in %+ via keys'); iseq("@k","A B C", "Got expected keys"); iseq("@v","bar baz foo", "Got expected values"); + eval' + print for $+{this_key_doesnt_exist}; + '; + ok(!$@,'lvalue $+{...} should not throw an exception'); } - - + + # stress test CURLYX/WHILEM. # # This test includes varying levels of nesting, and according to @@ -3831,5 +3835,5 @@ ok((q(a)x 100) =~ /^(??{'(.)'x 100})/, or print "# Unexpected outcome: should pass or crash perl\n"; # Don't forget to update this! -BEGIN{print "1..1274\n"}; +BEGIN{print "1..1275\n"}; |