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 (file)
--- 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";