10 use SQL::Translator::Parser::SQLite;
11 use SQL::Translator::Diff;
13 eval "use DBD::SQLite";
14 plan skip_all => "DBD::SQLite required" if $@;
16 my ( $dbh , $ddl, $ret );
18 lives_ok { $dbh = DBI->connect("dbi:SQLite:dbname=:memory:")} "dbi connect";
20 my $source_ddl = <<DDL;
22 "foo" INTEGER PRIMARY KEY AUTOINCREMENT,
27 lives_ok { $ret = $dbh->do($source_ddl) } "create table";
29 lives_ok { $ret = $dbh->do(q| INSERT INTO Foo (bar) VALUES ('buzz') |) } "insert data";
31 cmp_ok( $ret, '==', 1, "one row inserted" );
33 my $target_ddl = <<DDL;
35 "foo" INTEGER PRIMARY KEY AUTOINCREMENT,
40 my $source_sqlt = SQL::Translator->new(
42 parser => 'SQL::Translator::Parser::SQLite',
43 )->translate(\$source_ddl);
45 my $target_sqlt = SQL::Translator->new(
47 parser => 'SQL::Translator::Parser::SQLite',
48 )->translate(\$target_ddl);
50 my $table = $target_sqlt->get_table('Foo');
51 my $field = $table->get_field('biff');
52 $field->extra( renamed_from => 'bar' );
54 my @diff = SQL::Translator::Diff->new({
55 output_db => 'SQLite',
56 source_schema => $source_sqlt,
57 target_schema => $target_sqlt,
58 })->compute_differences->produce_diff_sql;
60 foreach my $line (@diff) {
62 lives_ok { $dbh->do($line) || die } "$line";
65 lives_ok { $ret = $dbh->selectall_arrayref(q(SELECT biff FROM Foo), { Slice => {} }) } "query DB for data";
67 cmp_ok( scalar(@$ret), '==', 1, "Got 1 row");
69 cmp_ok( $ret->[0]->{biff}, 'eq', 'buzz', "col biff has value buzz" );