t/03-deprecated.t

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use lib 't/lib';
   7 use DBICDHTest;
   8 use aliased 'DBIx::Class::DeploymentHandler::Deprecated';
   9
  10 use File::Path 'remove_tree';
  11 use Test::More;
  12 use File::Temp 'tempdir';
  13 use Test::Exception;
  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   is $s->schema_version, '1.0', 'schema version is at 1.0';
  23   ok($s, 'DBICVersion::Schema 1.0 instantiates correctly');
  24   my $handler = Deprecated->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.0 instantiates correctly');
  32
  33   my $version = $s->schema_version();
  34   $handler->prepare_deploy();
  35
  36   dies_ok {
  37     $s->resultset('Foo')->create({
  38       bar => 'frew',
  39     })
  40   } 'schema not deployed';
  41   $handler->install({ version => '1.0' });
  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   is $s->schema_version, '2.0', 'schema version is at 2.0';
  56   ok($s, 'DBICVersion::Schema 2.0 instantiates correctly');
  57   my $handler = Deprecated->new({
  58     script_directory => $sql_dir,
  59     schema => $s,
  60     databases => 'SQLite',
  61   });
  62
  63   ok($handler, 'DBIx::Class::DeploymentHandler w/2.0 instantiates correctly');
  64
  65   my $version = $s->schema_version();
  66   $handler->prepare_deploy();
  67   $handler->prepare_upgrade({ from_version => '1.0', 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   is $s->schema_version, '3.0', 'schema version is at 3.0';
  93   ok($s, 'DBICVersion::Schema 3.0 instantiates correctly');
  94   my $handler = Deprecated->new({
  95     script_directory => $sql_dir,
  96     schema => $s,
  97     databases => 'SQLite',
  98   });
  99
 100   ok($handler, 'DBIx::Class::DeploymentHandler w/3.0 instantiates correctly');
 101
 102   my $version = $s->schema_version();
 103   $handler->prepare_deploy;
 104   $handler->prepare_upgrade({ from_version => '2.0', 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 done_testing;