diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-05-25 07:54:04 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-05-25 07:54:36 +0200 |
| commit | 035fa39eee98425014af34fb056b07c8b4edc4c8 (patch) | |
| tree | fe0325047c16a25ff24dcf5dfe45f84dac4044d7 /lib | |
| parent | e21a6cc6e23cb05573794c3438f5a45564a045d6 (diff) | |
| download | perl-035fa39eee98425014af34fb056b07c8b4edc4c8.tar.gz | |
Revert "Fix failing autodie test with new smartmatch semantics."
This should now work, since we now allow objects with ~~-overloading
on the left side of ~~.
This reverts commit 7fecd077a7bc92add80772966a8c824277223d09.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/autodie/t/exceptions.t | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lib/autodie/t/exceptions.t b/lib/autodie/t/exceptions.t index 60d5d95514..2f8c2382fc 100644 --- a/lib/autodie/t/exceptions.t +++ b/lib/autodie/t/exceptions.t @@ -18,10 +18,10 @@ eval { }; ok($@, "Exception thrown" ); -ok('open' ~~ $@, "Exception from open" ); -ok(':file' ~~ $@, "Exception from open / class :file" ); -ok(':io' ~~ $@, "Exception from open / class :io" ); -ok(':all' ~~ $@, "Exception from open / class :all" ); +ok($@ ~~ 'open', "Exception from open" ); +ok($@ ~~ ':file', "Exception from open / class :file" ); +ok($@ ~~ ':io', "Exception from open / class :io" ); +ok($@ ~~ ':all', "Exception from open / class :all" ); eval { no warnings 'once'; # To prevent the following close from complaining. @@ -38,8 +38,8 @@ eval { like($@, qr{Can't close filehandle 'THIS_FILEHANDLE_AINT_OPEN'},"Nice msg from close"); ok($@, "Exception thrown" ); -ok('close' ~~ $@, "Exception from close" ); -ok(':file' ~~ $@, "Exception from close / class :file" ); -ok(':io' ~~ $@, "Exception from close / class :io" ); -ok(':all' ~~ $@, "Exception from close / class :all" ); +ok($@ ~~ 'close', "Exception from close" ); +ok($@ ~~ ':file', "Exception from close / class :file" ); +ok($@ ~~ ':io', "Exception from close / class :io" ); +ok($@ ~~ ':all', "Exception from close / class :all" ); |