Release commit for 1.62

[dbsrgits/SQL-Translator.git] / t / sqlite-rename-field.t

#!/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;