t/02-instantiation.t

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use lib 't/lib';
   7 use DBICDHTest;
   8 use DBIx::Class::DeploymentHandler;
   9 use aliased 'DBIx::Class::DeploymentHandler', 'DH';
  10
  11 use Test::More;
  12 use File::Temp 'tempdir';
  13 use Test::Fatal qw(lives_ok dies_ok);
  14
  15 my $dbh = DBICDHTest::dbh();
  16 my @connection = (sub { $dbh }, { ignore_version => 1 });
  17 my $sql_dir = tempdir( CLEANUP => 1 );
  18
  19 VERSION1: {
  20   use_ok 'DBICVersion_v1';
  21   my $s = DBICVersion::Schema->connect(@connection);
  22   $DBICVersion::Schema::VERSION = 1;
  23   ok($s, 'DBICVersion::Schema 1 instantiates correctly');
  24   my $handler = DH->new({
  25     script_directory => $sql_dir,
  26     schema => $s,
  27     databases => 'SQLite',
  28     sql_translator_args => { add_drop_table => 0 },
  29   });
  30
  31   ok($handler, 'DBIx::Class::DeploymentHandler w/1 instantiates correctly');
  32
  33   my $version = $s->schema_version;
  34   $handler->prepare_install;
  35
  36   dies_ok {
  37     $s->resultset('Foo')->create({
  38       bar => 'frew',
  39     })
  40   } 'schema not deployed';
  41   $handler->install;
  42   dies_ok {
  43     $handler->install;
  44   } 'cannot install twice';
  45   lives_ok {
  46     $s->resultset('Foo')->create({
  47       bar => 'frew',
  48     })
  49   } 'schema is deployed';
  50 }
  51
  52 VERSION2: {
  53   use_ok 'DBICVersion_v2';
  54   my $s = DBICVersion::Schema->connect(@connection);
  55   $DBICVersion::Schema::VERSION = 2;
  56   ok($s, 'DBICVersion::Schema 2 instantiates correctly');
  57   my $handler = DH->new({
  58     script_directory => $sql_dir,
  59     schema => $s,
  60     databases => 'SQLite',
  61   });
  62
  63   ok($handler, 'DBIx::Class::DeploymentHandler w/2 instantiates correctly');
  64
  65   my $version = $s->schema_version();
  66   $handler->prepare_install;
  67   $handler->prepare_upgrade({ from_version => 1, to_version => $version} );
  68   dies_ok {
  69     $s->resultset('Foo')->create({
  70       bar => 'frew',
  71       baz => 'frew',
  72     })
  73   } 'schema not deployed';
  74   dies_ok {
  75     $s->resultset('Foo')->create({
  76       bar => 'frew',
  77       baz => 'frew',
  78     })
  79   } 'schema not uppgrayyed';
  80   $handler->upgrade;
  81   lives_ok {
  82     $s->resultset('Foo')->create({
  83       bar => 'frew',
  84       baz => 'frew',
  85     })
  86   } 'schema is deployed';
  87 }
  88
  89 VERSION3: {
  90   use_ok 'DBICVersion_v3';
  91   my $s = DBICVersion::Schema->connect(@connection);
  92   $DBICVersion::Schema::VERSION = 3;
  93   ok($s, 'DBICVersion::Schema 3 instantiates correctly');
  94   my $handler = DH->new({
  95     script_directory => $sql_dir,
  96     schema => $s,
  97     databases => 'SQLite',
  98   });
  99
 100   ok($handler, 'DBIx::Class::DeploymentHandler w/3 instantiates correctly');
 101
 102   my $version = $s->schema_version();
 103   $handler->prepare_install;
 104   $handler->prepare_upgrade({ from_version => 2, to_version => $version });
 105   dies_ok {
 106     $s->resultset('Foo')->create({
 107         bar => 'frew',
 108         baz => 'frew',
 109         biff => 'frew',
 110       })
 111   } 'schema not deployed';
 112   $handler->upgrade;
 113   lives_ok {
 114     $s->resultset('Foo')->create({
 115       bar => 'frew',
 116       baz => 'frew',
 117       biff => 'frew',
 118     })
 119   } 'schema is deployed';
 120 }
 121
 122 DOWN2: {
 123   use_ok 'DBICVersion_v4';
 124   my $s = DBICVersion::Schema->connect(@connection);
 125   $DBICVersion::Schema::VERSION = 2;
 126   ok($s, 'DBICVersion::Schema 2 instantiates correctly');
 127   my $handler = DH->new({
 128     script_directory => $sql_dir,
 129     schema => $s,
 130     databases => 'SQLite',
 131   });
 132
 133   ok($handler, 'DBIx::Class::DeploymentHandler w/2 instantiates correctly');
 134
 135   my $version = $s->schema_version();
 136   $handler->prepare_downgrade({ from_version => 3, to_version => $version });
 137   lives_ok {
 138     $s->resultset('Foo')->create({
 139       bar => 'frew',
 140       baz => 'frew',
 141       biff => 'frew',
 142     })
 143   } 'schema at version 3';
 144   $handler->downgrade;
 145   dies_ok {
 146     $s->resultset('Foo')->create({
 147       bar => 'frew',
 148       baz => 'frew',
 149       biff => 'frew',
 150     })
 151   } 'schema not at version 3';
 152   lives_ok {
 153     $s->resultset('Foo')->create({
 154       bar => 'frew',
 155       baz => 'frew',
 156     })
 157   } 'schema is at version 2';
 158 }
 159
 160 done_testing;