use strict;
use warnings;
use SQL::Exec::SQLite ':all';
use Test::Subs;

my $lax = {die_on_error => 0, print_error => 0, strict => undef};

test {
	connect(':memory:');
};

test {
	execute('create view v1 as select 1; select * from w',$lax);
	1
};

fail {
	query_one_value('select * from v1');
};

fail {
	execute('create view v2 as select 1; select * from w', {auto_transaction => 0});
	1
};

test {
	query_one_value('select * from v2');
};