From: rkinyon <rkinyon@50811bd7-b8ce-0310-adc1-d9db26280581>
Date: Thu, 25 May 2006 18:21:16 +0000 (+0000)
Subject:  r13078@rob-kinyons-powerbook58:  rob | 2006-05-11 10:33:40 -0400
X-Git-Tag: 0-99_03~35
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1253549529a8c2fecd90442e1e230ad5e38ee7fd;p=dbsrgits%2FDBM-Deep.git

 r13078@rob-kinyons-powerbook58:  rob | 2006-05-11 10:33:40 -0400
 Removed unneeded test
---

diff --git a/t/autobless_2.t_fail b/t/autobless_2.t_fail
deleted file mode 100644
index d46589f..0000000
--- a/t/autobless_2.t_fail
+++ /dev/null
@@ -1,67 +0,0 @@
-use strict;
-$|++;
-
-{
-    package Foo;
-
-    sub export { 'export' };
-    sub foo { 'foo' };
-}
-
-use Test::More no_plan => 1;
-
-use_ok( 'DBM::Deep' );
-
-unlink 't/test.db';
-my $db = DBM::Deep->new(
-    file     => "t/test.db",
-    autobless => 0,
-);
-if ($db->error()) {
-	die "ERROR: " . $db->error();
-}
-
-$db->{unblessed} = {};
-$db->{unblessed}{a} = 1;
-$db->{unblessed}{b} = [];
-$db->{unblessed}{b}[0] = 1;
-$db->{unblessed}{b}[1] = 2;
-$db->{unblessed}{b}[2] = 3;
-
-undef $db;
-
-my $db2 = DBM::Deep->new(
-    file     => 't/test.db',
-    autobless => 1,
-);
-if ($db2->error()) {
-	die "ERROR: " . $db2->error();
-}
-
-is( $db2->{unblessed}{a}, 1 );
-is( $db2->{unblessed}{b}[0], 1 );
-is( $db2->{unblessed}{b}[1], 2 );
-is( $db2->{unblessed}{b}[2], 3 );
-
-$db2->{unblessed}{a} = 2;
-
-is( $db2->{unblessed}{a}, 2 );
-is( $db2->{unblessed}{b}[0], 1 );
-is( $db2->{unblessed}{b}[1], 2 );
-is( $db2->{unblessed}{b}[2], 3 );
-
-undef $db2;
-
-my $db3 = DBM::Deep->new(
-    file     => "t/test.db",
-    autobless => 0,
-);
-if ($db3->error()) {
-	die "ERROR: " . $db->error();
-}
-
-is( $db3->{unblessed}{a}, 2 );
-is( $db3->{unblessed}{b}[0], 1 );
-__END__
-is( $db3->{unblessed}{b}[1], 2 );
-is( $db3->{unblessed}{b}[2], 3 );