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