[Bast-commits] r8982 - ironman/IronMan-Schema/t

idn at dev.catalyst.perl.org idn at dev.catalyst.perl.org
Thu Mar 11 20:52:36 GMT 2010


Author: idn
Date: 2010-03-11 20:52:36 +0000 (Thu, 11 Mar 2010)
New Revision: 8982

Added:
   ironman/IronMan-Schema/t/02_testdb_deploy.t
Removed:
   ironman/IronMan-Schema/t/02_deploy.t
Log:
Renaming deploy to make it more obvious what this does

Deleted: ironman/IronMan-Schema/t/02_deploy.t
===================================================================
--- ironman/IronMan-Schema/t/02_deploy.t	2010-03-11 20:48:14 UTC (rev 8981)
+++ ironman/IronMan-Schema/t/02_deploy.t	2010-03-11 20:52:36 UTC (rev 8982)
@@ -1,31 +0,0 @@
-use strict;
-use warnings;
-
-use Test::More;
-
-use IronMan::Schema;
-
-my $schema;
-my $dir = "t/var/";
-my $file = "test.db";
-
-# Check the var directory exists for our testing.
-unless(-d $dir) {
-    mkdir($dir);
-}
-
-# Check we don't already have a test database prior to stomping all over it...
-if(-e $dir . $file) {
-    plan skip_all => 'Test database file already exists.  Skipping creation.';
-} else {
-    plan tests => 3;
-}
-
-ok($schema = IronMan::Schema->connect("dbi:SQLite:$dir$file"), "Creating a schema object");
-ok($schema->deploy(), "Deploying the new schema object");
-
-# Check the file exists
-my $file_exists = (-e $dir . $file);
-
-ok($file_exists, "Test database file exists");
-

Copied: ironman/IronMan-Schema/t/02_testdb_deploy.t (from rev 8974, ironman/IronMan-Schema/t/02_deploy.t)
===================================================================
--- ironman/IronMan-Schema/t/02_testdb_deploy.t	                        (rev 0)
+++ ironman/IronMan-Schema/t/02_testdb_deploy.t	2010-03-11 20:52:36 UTC (rev 8982)
@@ -0,0 +1,31 @@
+use strict;
+use warnings;
+
+use Test::More;
+
+use IronMan::Schema;
+
+my $schema;
+my $dir = "t/var/";
+my $file = "test.db";
+
+# Check the var directory exists for our testing.
+unless(-d $dir) {
+    mkdir($dir);
+}
+
+# Check we don't already have a test database prior to stomping all over it...
+if(-e $dir . $file) {
+    plan skip_all => 'Test database file already exists.  Skipping creation.';
+} else {
+    plan tests => 3;
+}
+
+ok($schema = IronMan::Schema->connect("dbi:SQLite:$dir$file"), "Creating a schema object");
+ok($schema->deploy(), "Deploying the new schema object");
+
+# Check the file exists
+my $file_exists = (-e $dir . $file);
+
+ok($file_exists, "Test database file exists");
+


Property changes on: ironman/IronMan-Schema/t/02_testdb_deploy.t
___________________________________________________________________
Added: svn:mergeinfo
   + 




More information about the Bast-commits mailing list