From: rkinyon <rkinyon@50811bd7-b8ce-0310-adc1-d9db26280581>
Date: Mon, 20 Mar 2006 19:16:56 +0000 (+0000)
Subject: Fixed TODO test to check the right die message
X-Git-Tag: 0-99_01~52
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5b35c3847b3e8abbd2055bc80e9fde29b2cc50af;p=dbsrgits%2FDBM-Deep.git

Fixed TODO test to check the right die message
---

diff --git a/t/30_already_tied.t b/t/30_already_tied.t
index 8d65829..5422851 100644
--- a/t/30_already_tied.t
+++ b/t/30_already_tied.t
@@ -73,9 +73,6 @@ my $db = DBM::Deep->new( $filename );
     tie $scalar, 'My::Tie::Scalar';
     isa_ok( tied($scalar), 'My::Tie::Scalar' );
 
-TODO: {
-    local $TODO = "Scalar refs are just broked";
-    throws_ok {
-        $db->{foo} = \$scalar;
-    } qr/Cannot store something that is tied/, "Cannot store tied scalars";
-}
+throws_ok {
+    $db->{foo} = \$scalar;
+} qr/Storage of variables of type 'SCALAR' is not supported/, "Cannot store scalar references, let alone tied scalars";