Revert "Fix failing autodie test with new smartmatch semantics."
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 25 May 2009 05:54:04 +0000 (07:54 +0200)
committerDavid Mitchell <davem@iabyn.com>
Wed, 10 Jun 2009 11:36:31 +0000 (12:36 +0100)
This should now work, since we now allow objects with ~~-overloading
on the left side of ~~.

This reverts commit 7fecd077a7bc92add80772966a8c824277223d09.

(cherry picked from commit 035fa39eee98425014af34fb056b07c8b4edc4c8)

lib/autodie/t/exceptions.t

index 60d5d95..2f8c238 100644 (file)
@@ -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"     );