[Bast-commits] r9563 - in DBIx-Class/0.08/trunk/t: . cdbi multi_create

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-06-03 10:23:08 +0100 (Thu, 03 Jun 2010)
New Revision: 9563

Modified:
   DBIx-Class/0.08/trunk/t/67pager.t
   DBIx-Class/0.08/trunk/t/96_is_deteministic_value.t
   DBIx-Class/0.08/trunk/t/cdbi/columns_as_hashes.t
   DBIx-Class/0.08/trunk/t/cdbi/early_column_heisenbug.t
   DBIx-Class/0.08/trunk/t/cdbi/mk_group_accessors.t
   DBIx-Class/0.08/trunk/t/multi_create/cd_single.t
   DBIx-Class/0.08/trunk/t/multi_create/reentrance_count.t
Log:
Convert all no_plan tests to done_testing

Modified: DBIx-Class/0.08/trunk/t/67pager.t
===================================================================
--- DBIx-Class/0.08/trunk/t/67pager.t	2010-06-02 22:51:38 UTC (rev 9562)
+++ DBIx-Class/0.08/trunk/t/67pager.t	2010-06-03 09:23:08 UTC (rev 9563)
@@ -1,7 +1,7 @@
 use strict;
-use warnings;  
+use warnings;
 
-use Test::More qw(no_plan);
+use Test::More;
 use lib qw(t/lib);
 use DBICTest;
 
@@ -100,3 +100,5 @@
 })->single;
 
 is($row->cdid, $it->first->cdid, 'page with offset');
+
+done_testing;

Modified: DBIx-Class/0.08/trunk/t/96_is_deteministic_value.t
===================================================================
--- DBIx-Class/0.08/trunk/t/96_is_deteministic_value.t	2010-06-02 22:51:38 UTC (rev 9562)
+++ DBIx-Class/0.08/trunk/t/96_is_deteministic_value.t	2010-06-03 09:23:08 UTC (rev 9563)
@@ -9,7 +9,6 @@
 plan skip_all => "DateTime required" unless eval { require DateTime };
 eval "use DateTime::Format::Strptime";
 plan skip_all => 'DateTime::Format::Strptime required' if $@;
-plan 'no_plan';
 use Test::Exception;
 
 my $schema = DBICTest->init_schema();
@@ -63,5 +62,4 @@
   is($artist->name, undef);
 }
 
-
-1;
+done_testing;

Modified: DBIx-Class/0.08/trunk/t/cdbi/columns_as_hashes.t
===================================================================
--- DBIx-Class/0.08/trunk/t/cdbi/columns_as_hashes.t	2010-06-02 22:51:38 UTC (rev 9562)
+++ DBIx-Class/0.08/trunk/t/cdbi/columns_as_hashes.t	2010-06-03 09:23:08 UTC (rev 9563)
@@ -4,8 +4,7 @@
 
 BEGIN {
   eval "use DBIx::Class::CDBICompat;";
-  plan $@ ? (skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@")
-          : ('no_plan');
+  plan skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@" if $@;
 }
 
 use lib 't/cdbi/testlib';
@@ -101,4 +100,6 @@
     
     isa_ok $foo->{tdate}, 'Date::Simple';
     is $foo->{tdate}->year, 1949;
-}
\ No newline at end of file
+}
+
+done_testing;

Modified: DBIx-Class/0.08/trunk/t/cdbi/early_column_heisenbug.t
===================================================================
--- DBIx-Class/0.08/trunk/t/cdbi/early_column_heisenbug.t	2010-06-02 22:51:38 UTC (rev 9562)
+++ DBIx-Class/0.08/trunk/t/cdbi/early_column_heisenbug.t	2010-06-03 09:23:08 UTC (rev 9563)
@@ -4,8 +4,7 @@
 
 BEGIN {
   eval "use DBIx::Class::CDBICompat;";
-  plan $@ ? (skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@")
-          : ('no_plan');
+  plan skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@" if $@;
 }
 
 
@@ -25,4 +24,4 @@
 Thing->columns(Essential => qw(foo bar baz));
 is_deeply [Stuff->columns("Essential")], [];
 
-1;
+done_testing;

Modified: DBIx-Class/0.08/trunk/t/cdbi/mk_group_accessors.t
===================================================================
--- DBIx-Class/0.08/trunk/t/cdbi/mk_group_accessors.t	2010-06-02 22:51:38 UTC (rev 9562)
+++ DBIx-Class/0.08/trunk/t/cdbi/mk_group_accessors.t	2010-06-03 09:23:08 UTC (rev 9563)
@@ -7,8 +7,6 @@
 
     eval "use DBD::SQLite";
     plan skip_all => 'needs DBD::SQLite for testing' if $@;
-
-    plan 'no_plan';
 }
 
 INIT {
@@ -67,3 +65,5 @@
     $film->wibble_thing(23);
     is $film->wibble_thing, 23;
 }
+
+done_testing;

Modified: DBIx-Class/0.08/trunk/t/multi_create/cd_single.t
===================================================================
--- DBIx-Class/0.08/trunk/t/multi_create/cd_single.t	2010-06-02 22:51:38 UTC (rev 9562)
+++ DBIx-Class/0.08/trunk/t/multi_create/cd_single.t	2010-06-03 09:23:08 UTC (rev 9563)
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-use Test::More qw(no_plan);
+use Test::More;
 use Test::Exception;
 use lib qw(t/lib);
 use DBICTest;
@@ -32,3 +32,5 @@
 
   ok($single->cdid, 'Got cdid');
 };
+
+done_testing;

Modified: DBIx-Class/0.08/trunk/t/multi_create/reentrance_count.t
===================================================================
--- DBIx-Class/0.08/trunk/t/multi_create/reentrance_count.t	2010-06-02 22:51:38 UTC (rev 9562)
+++ DBIx-Class/0.08/trunk/t/multi_create/reentrance_count.t	2010-06-03 09:23:08 UTC (rev 9563)
@@ -6,8 +6,6 @@
 use lib qw(t/lib);
 use DBICTest;
 
-plan 'no_plan';
-
 my $schema = DBICTest->init_schema();
 
 my $query_stats;
@@ -177,4 +175,4 @@
 
 }
 
-1;
+done_testing;