[Bast-commits] r3140 - trunk/DBIx-Class-TimeStamp/t/lib

jshirley at dev.catalyst.perl.org jshirley at dev.catalyst.perl.org
Fri Mar 23 23:21:53 GMT 2007


Author: jshirley
Date: 2007-03-23 23:21:53 +0000 (Fri, 23 Mar 2007)
New Revision: 3140

Removed:
   trunk/DBIx-Class-TimeStamp/t/lib/TimeStampTest.pm
Log:
Removing unused file

Deleted: trunk/DBIx-Class-TimeStamp/t/lib/TimeStampTest.pm
===================================================================
--- trunk/DBIx-Class-TimeStamp/t/lib/TimeStampTest.pm	2007-03-23 23:20:35 UTC (rev 3139)
+++ trunk/DBIx-Class-TimeStamp/t/lib/TimeStampTest.pm	2007-03-23 23:21:53 UTC (rev 3140)
@@ -1,41 +0,0 @@
-package # hide from PAUSE
-    TimeStampTest;
-
-use strict;
-use warnings;
-use TimeStampTest::Schema;
-
-sub initialise {
-    my $db_file = "t/var/TimeStampTest.db";
-
-    unlink $db_file if -e $db_file;
-    unlink "${db_file}-journal" if -e "${db_file}-journal";
-
-    mkdir("t/var") unless -d "t/var";
-
-    my $dsn = "dbi:SQLite:${db_file}";
-
-    return TimeStampTest::Schema->compose_connection('TimeStampTest' => $dsn);
-}
-
-sub init_schema {
-    my $self = shift;
-
-    my $db_file = "t/var/TimeStampTest.db";
-    unlink $db_file if -e $db_file;
-    unlink "${db_file}-journal" if -e "${db_file}-journal";
-
-    mkdir("t/var") unless -d "t/var";
-
-    my $dsn = "dbi:SQLite:${db_file}";
-
-    my $schema =
-        TimeStampTest::Schema->compose_connection('TimeStampTest' => $dsn);
-
-    $schema->deploy();
-
-    return $schema;
-
-}
-
-1;




More information about the Bast-commits mailing list