[Bast-commits] r5605 - DBIx-Class/0.08/trunk/t/ordered

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-02-20 14:34:13 +0000 (Fri, 20 Feb 2009)
New Revision: 5605

Added:
   DBIx-Class/0.08/trunk/t/ordered/cascade_delete.t
Removed:
   DBIx-Class/0.08/trunk/t/ordered/87ordered.t
Log:
rename test

Deleted: DBIx-Class/0.08/trunk/t/ordered/87ordered.t
===================================================================
--- DBIx-Class/0.08/trunk/t/ordered/87ordered.t	2009-02-20 14:33:24 UTC (rev 5604)
+++ DBIx-Class/0.08/trunk/t/ordered/87ordered.t	2009-02-20 14:34:13 UTC (rev 5605)
@@ -1,33 +0,0 @@
-use strict;
-use warnings;  
-
-use Test::More;
-use Test::Exception;
-use lib qw(t/lib);
-use DBICTest;
-
-use POSIX qw(ceil);
-
-my $schema = DBICTest->init_schema();
-
-plan tests => 1;
-
-{
-  my $artist = $schema->resultset ('Artist')->search ({}, { rows => 1})->single, # braindead sqlite
-
-  $schema->storage->debug (1);
-  my $cd = $schema->resultset ('CD')->create ({
-    artist => $artist,
-    title => 'Get in order',
-    year => 2009,
-    tracks => [
-      { title => 'T1' },
-      { title => 'T2' },
-      { title => 'T3' },
-    ],
-  });
-
-  lives_ok (sub { $cd->delete}, "Cascade delete on ordered has_many doesn't bomb");
-}
-
-1;

Copied: DBIx-Class/0.08/trunk/t/ordered/cascade_delete.t (from rev 5604, DBIx-Class/0.08/trunk/t/ordered/87ordered.t)
===================================================================
--- DBIx-Class/0.08/trunk/t/ordered/cascade_delete.t	                        (rev 0)
+++ DBIx-Class/0.08/trunk/t/ordered/cascade_delete.t	2009-02-20 14:34:13 UTC (rev 5605)
@@ -0,0 +1,33 @@
+use strict;
+use warnings;  
+
+use Test::More;
+use Test::Exception;
+use lib qw(t/lib);
+use DBICTest;
+
+use POSIX qw(ceil);
+
+my $schema = DBICTest->init_schema();
+
+plan tests => 1;
+
+{
+  my $artist = $schema->resultset ('Artist')->search ({}, { rows => 1})->single, # braindead sqlite
+
+  $schema->storage->debug (1);
+  my $cd = $schema->resultset ('CD')->create ({
+    artist => $artist,
+    title => 'Get in order',
+    year => 2009,
+    tracks => [
+      { title => 'T1' },
+      { title => 'T2' },
+      { title => 'T3' },
+    ],
+  });
+
+  lives_ok (sub { $cd->delete}, "Cascade delete on ordered has_many doesn't bomb");
+}
+
+1;


Property changes on: DBIx-Class/0.08/trunk/t/ordered/cascade_delete.t
___________________________________________________________________
Name: svn:mergeinfo
   +