use warnings;
use lib qw(lib t/lib);
-use DBICTest;
use DBICTest::Schema;
use SQL::Translator;
-my $schema = DBICTest::Schema->connect(DBICTest->_database);
+my $schema = DBICTest::Schema->connect;
print scalar ($schema->storage->deployment_statements(
$schema,
'SQLite',
--
-- Created by SQL::Translator::Producer::SQLite
--- Created on Sat Mar 6 11:57:45 2010
+-- Created on Sat Mar 6 18:04:27 2010
--
+;
--
-- Table: artist
-- View: year2000cds
--
CREATE VIEW year2000cds AS
- SELECT cdid, artist, title, year, genreid, single_track FROM cd WHERE year = "2000"
+ SELECT cdid, artist, title, year, genreid, single_track FROM cd WHERE year = "2000"
\ No newline at end of file