1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::Exception;
use DBI;
use SQL::Translator;
use SQL::Translator::Parser::SQLite;
use SQL::Translator::Diff;
eval "use DBD::SQLite";
plan skip_all => "DBD::SQLite required" if $@;
my ( $dbh , $ddl, $ret );
lives_ok { $dbh = DBI->connect("dbi:SQLite:dbname=:memory:")} "dbi connect";
my $source_ddl = <<DDL;
CREATE TABLE "Foo" (
"foo" INTEGER PRIMARY KEY AUTOINCREMENT,
"bar" VARCHAR(10)
);
DDL
lives_ok { $ret = $dbh->do($source_ddl) } "create table";
lives_ok { $ret = $dbh->do(q| INSERT INTO Foo (bar) VALUES ('buzz') |) } "insert data";
cmp_ok( $ret, '==', 1, "one row inserted" );
my $target_ddl = <<DDL;
CREATE TABLE "Foo" (
"foo" INTEGER PRIMARY KEY AUTOINCREMENT,
"biff" VARCHAR(10)
);
DDL
my $source_sqlt = SQL::Translator->new(
no_comments => 1,
parser => 'SQL::Translator::Parser::SQLite',
)->translate(\$source_ddl);
my $target_sqlt = SQL::Translator->new(
no_comments => 1,
parser => 'SQL::Translator::Parser::SQLite',
)->translate(\$target_ddl);
my $table = $target_sqlt->get_table('Foo');
my $field = $table->get_field('biff');
$field->extra( renamed_from => 'bar' );
my @diff = SQL::Translator::Diff->new({
output_db => 'SQLite',
source_schema => $source_sqlt,
target_schema => $target_sqlt,
})->compute_differences->produce_diff_sql;
foreach my $line (@diff) {
$line =~ s/\n//g;
lives_ok { $dbh->do($line) || die } "$line";
}
lives_ok { $ret = $dbh->selectall_arrayref(q(SELECT biff FROM Foo), { Slice => {} }) } "query DB for data";
cmp_ok( scalar(@$ret), '==', 1, "Got 1 row");
cmp_ok( $ret->[0]->{biff}, 'eq', 'buzz', "col biff has value buzz" );
done_testing;
|
