5 use Test::More tests => 2;
6 use Test::SQL::Translator qw(maybe_plan);
9 use SQL::Translator::Schema::View;
10 use SQL::Translator::Producer::SQLite;
13 my $view1 = SQL::Translator::Schema::View->new( name => 'view_foo',
14 fields => [qw/id name/],
15 sql => 'SELECT id, name FROM thing',
20 my $create_opts = { no_comments => 1 };
21 my $view1_sql1 = [ SQL::Translator::Producer::SQLite::create_view($view1, $create_opts) ];
23 my $view_sql_replace = [ "CREATE TEMPORARY VIEW IF NOT EXISTS 'view_foo' AS
24 SELECT id, name FROM thing" ];
25 is_deeply($view1_sql1, $view_sql_replace, 'correct "CREATE TEMPORARY VIEW" SQL');
28 my $view2 = SQL::Translator::Schema::View->new( name => 'view_foo',
29 fields => [qw/id name/],
30 sql => 'SELECT id, name FROM thing',);
32 my $view1_sql2 = [ SQL::Translator::Producer::SQLite::create_view($view2, $create_opts) ];
33 my $view_sql_noreplace = [ "CREATE VIEW 'view_foo' AS
34 SELECT id, name FROM thing" ];
35 is_deeply($view1_sql2, $view_sql_noreplace, 'correct "CREATE VIEW" SQL');