From: gfx <gfuji@cpan.org>
Date: Thu, 9 Sep 2010 09:20:50 +0000 (+0900)
Subject: Fix tests for Test::Builder2
X-Git-Tag: 0.65~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6d97be621e327fb47ccdae402139885d653e8b02;p=gitmo%2FMouse.git

Fix tests for Test::Builder2
---

diff --git a/t/001_mouse/026-auto-deref.t b/t/001_mouse/026-auto-deref.t
index d4b1df5..80af05b 100644
--- a/t/001_mouse/026-auto-deref.t
+++ b/t/001_mouse/026-auto-deref.t
@@ -39,7 +39,7 @@ do {
 my $obj;
 lives_ok {
     $obj = Class->new;
-} qr/auto_deref without defaults don't explode on new/;
+} "auto_deref without defaults don't explode on new";
 
 my ($array, @array, $hash, %hash);
 lives_ok {
@@ -50,7 +50,7 @@ lives_ok {
 
     $obj->array;
     $obj->hash;
-} qr/auto_deref without default doesn't explode on get/;
+} "auto_deref without default doesn't explode on get";
 
 is($obj->array, undef, "array without value is undef in scalar context");
 is($obj->hash, undef, "hash without value is undef in scalar context");
@@ -72,7 +72,7 @@ lives_ok {
 
     $obj->array;
     $obj->hash;
-} qr/auto_deref without default doesn't explode on get/;
+} "auto_deref without default doesn't explode on get";
 
 is_deeply($array, [1, 2, 3], "auto_deref in scalar context gives the reference");
 is_deeply($hash, {foo => 1, bar => 2}, "auto_deref in scalar context gives the reference");