[Bast-commits] r6896 - trunk/DBIx-Class-TimeStamp/t

rafl at dev.catalyst.perl.org rafl at dev.catalyst.perl.org
Tue Jun 30 20:03:21 GMT 2009


Author: rafl
Date: 2009-06-30 20:03:21 +0000 (Tue, 30 Jun 2009)
New Revision: 6896

Added:
   trunk/DBIx-Class-TimeStamp/t/generate_schema.pl
Log:
Add script to generate test schema.

Added: trunk/DBIx-Class-TimeStamp/t/generate_schema.pl
===================================================================
--- trunk/DBIx-Class-TimeStamp/t/generate_schema.pl	                        (rev 0)
+++ trunk/DBIx-Class-TimeStamp/t/generate_schema.pl	2009-06-30 20:03:21 UTC (rev 6896)
@@ -0,0 +1,12 @@
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/lib", "$FindBin::Bin/../lib";
+
+use DBIC::Test::Schema;
+
+my $schema = DBIC::Test::Schema->connect('dbi:SQLite:t/foo.sqlite');
+use Data::Dump qw/pp/;
+print $_, ";\n" for $schema->deployment_statements;
+unlink 't/foo.sqlite';




More information about the Bast-commits mailing list