t/version_storages/standard.t

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7 use Test::Exception;
   8
   9 use lib 't/lib';
  10 use DBICDHTest;
  11 use aliased 'DBIx::Class::DeploymentHandler::VersionStorage::Standard';
  12 use aliased 'DBIx::Class::DeploymentHandler::DeployMethod::SQL::Translator';
  13 use File::Temp 'tempdir';
  14
  15 use DBICVersion_v1;
  16 use DBIx::Class::DeploymentHandler;
  17 my $dbh = DBICDHTest::dbh();
  18 my @connection = (sub { $dbh }, { ignore_version => 1 });
  19 my $sql_dir = tempdir( CLEANUP => 1 );
  20
  21 my $s = DBICVersion::Schema->connect(@connection);
  22 {
  23    my $warning;
  24    local $SIG{__WARN__} = sub {$warning = shift};
  25    my $t = DBICVersion::Schema->connect('frewfrew', '', '');
  26    like( $warning, qr/Your DB is currently unversioned. Please call upgrade on your schema to sync the DB/, 'warning when database is unversioned');
  27 }
  28
  29 my $dm = Translator->new({
  30    schema            => $s,
  31    script_directory => $sql_dir,
  32    databases         => ['SQLite'],
  33    sql_translator_args          => { add_drop_table => 0 },
  34 });
  35
  36 my $vs = Standard->new({ schema => $s });
  37
  38 $dm->prepare_resultsource_install({
  39    result_source => $vs->version_rs->result_source
  40 });
  41
  42 ok( $vs, 'DBIC::DH::VersionStorage::Standard instantiates correctly' );
  43
  44 ok( !$vs->version_storage_is_installed, 'VersionStorage is not yet installed' );
  45
  46 $dm->install_resultsource({
  47    result_source => $vs->version_rs->result_source,
  48    version => '1.0',
  49 });
  50
  51 ok( $vs->version_storage_is_installed, 'VersionStorage is now installed' );
  52
  53
  54 $vs->add_database_version({
  55    version => '1.0',
  56 });
  57
  58 ok(
  59    eq_array(
  60       [ $vs->version_rs->search(undef, {order_by => 'id'})->get_column('version')->all],
  61       [ '1.0' ],
  62    ),
  63    'initial version works correctly'
  64 );
  65
  66 is( $vs->database_version, '1.0', 'database version is 1.0');
  67 $vs->add_database_version({
  68    version => '2.0',
  69 });
  70 is( $vs->database_version, '2.0', 'database version is 2.0');
  71
  72 ok(
  73    eq_array(
  74       [ $vs->version_rs->search(undef, {order_by => 'id'})->get_column('version')->all],
  75       [ '1.0', '2.0', ],
  76    ),
  77    'adding another version works correctly'
  78 );
  79
  80 my $u;
  81 {
  82    my $warning;
  83    local $SIG{__WARN__} = sub {$warning = shift};
  84    $u = DBICVersion::Schema->connect(sub { $dbh });
  85    like( $warning, qr/Versions out of sync. This is 1\.0, your database contains version 2\.0, please call upgrade on your Schema\./, 'warning when database/schema mismatch');
  86 }
  87
  88
  89 $vs->version_rs->delete;
  90
  91 ok( $vs->version_storage_is_installed, 'VersionStorage is still installed even if all versions are deleted' );
  92 done_testing;