X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F56-sqlite-producer.t;h=25d43ccae7acc714e8aef3a7faee6e51db4c4901;hb=00e289412e615f4822630691f17044a18c8ae127;hp=2bf388172c67b68e569bd48f6f8bebe31362a394;hpb=d4c630fa5bb9860106694743d475aa05187700d7;p=dbsrgits%2FSQL-Translator-2.0-ish.git diff --git a/t/56-sqlite-producer.t b/t/56-sqlite-producer.t index 2bf3881..25d43cc 100644 --- a/t/56-sqlite-producer.t +++ b/t/56-sqlite-producer.t @@ -1,11 +1,14 @@ use strict; +use warnings; use Test::More; -use FindBin qw/$Bin/; +use SQL::Translator; use SQL::Translator::Object::View; -use SQL::Translator::Producer::SQL::SQLite; { + my $sqlt = SQL::Translator->new( to => 'SQLite' ); + my $producer = $sqlt->_producer; + my $view1 = SQL::Translator::Object::View->new( name => 'view_foo', fields => [qw/id name/], sql => 'SELECT id, name FROM thing', @@ -13,19 +16,19 @@ use SQL::Translator::Producer::SQL::SQLite; temporary => 1, if_not_exists => 1, }); + my $create_opts = { no_comments => 1 }; - my $view1_sql1 = SQL::Translator::Producer::SQL::SQLite::create_view($view1, $create_opts); + my $view1_sql1 = $producer->create_view($view1, $create_opts); my $view_sql_replace = "CREATE TEMPORARY VIEW IF NOT EXISTS view_foo AS SELECT id, name FROM thing"; is($view1_sql1, $view_sql_replace, 'correct "CREATE TEMPORARY VIEW" SQL'); - my $view2 = SQL::Translator::Object::View->new( name => 'view_foo', fields => [qw/id name/], sql => 'SELECT id, name FROM thing',); - my $view1_sql2 = SQL::Translator::Producer::SQL::SQLite::create_view($view2, $create_opts); + my $view1_sql2 = $producer->create_view($view2, $create_opts); my $view_sql_noreplace = "CREATE VIEW view_foo AS SELECT id, name FROM thing"; is($view1_sql2, $view_sql_noreplace, 'correct "CREATE VIEW" SQL');