[Bast-commits] r6940 - DBIx-Class/0.08/trunk/t/cdbi

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-07-02 11:38:31 +0000 (Thu, 02 Jul 2009)
New Revision: 6940

Modified:
   DBIx-Class/0.08/trunk/t/cdbi/02-Film.t
Log:
cleanup

Modified: DBIx-Class/0.08/trunk/t/cdbi/02-Film.t
===================================================================
--- DBIx-Class/0.08/trunk/t/cdbi/02-Film.t	2009-07-02 11:16:46 UTC (rev 6939)
+++ DBIx-Class/0.08/trunk/t/cdbi/02-Film.t	2009-07-02 11:38:31 UTC (rev 6940)
@@ -8,8 +8,7 @@
     plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required');
     next;
   }
-  eval "use DBD::SQLite";
-  plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 98);
+  plan tests => 98;
 }
 
 INIT {
@@ -187,17 +186,14 @@
 	ok(!Film->retrieve('Ishtar'), 'Ishtar no longer there');
 	{
 		my $deprecated = 0;
-		#local $SIG{__WARN__} = sub { $deprecated++ if $_[0] =~ /deprecated/ };
+		local $SIG{__WARN__} = sub { $deprecated++ if $_[0] =~ /deprecated/ };
 		ok(
 			Film->delete(Director => 'Elaine May'),
 			"In fact, delete all films by Elaine May"
 		);
 		cmp_ok(Film->search(Director => 'Elaine May'), '==',
 			0, "0 Films by Elaine May");
-                SKIP: {
-                    skip "No deprecated warnings from compat layer", 1;
-		    is $deprecated, 1, "Got a deprecated warning";
-                }
+		is $deprecated, 0, "No deprecated warnings from compat layer";
 	}
 };
 is $@, '', "No problems with deletes";