X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class-DeploymentHandler.git;a=blobdiff_plain;f=t%2Fmysql%2Fbasic.t;fp=t%2Fmysql%2Fbasic.t;h=7ace92a4ce0ef5448ffe944efed1f4c5cfe70579;hp=0000000000000000000000000000000000000000;hb=41a539b4f7147fb311409eb99ddd3a71f5787bbe;hpb=7d876442f151bedf8bcf7d594f30d58f6dad8b59

diff --git a/t/mysql/basic.t b/t/mysql/basic.t
new file mode 100644
index 0000000..7ace92a
--- /dev/null
+++ b/t/mysql/basic.t
@@ -0,0 +1,119 @@
+#!/usr/bin/env perl
+
+use warnings;
+use strict;
+use lib 't/lib';
+
+use Test::More;
+use Test::Requires qw(Test::postgresql);
+use Test::Requires qw(Test::mysqld);
+use File::Spec::Functions 'catdir', 'catfile';
+use File::Path 'remove_tree';
+use DBIx::Class::DeploymentHandler;
+use DBICDHTest;
+
+
+VERSION1: {
+  ok my $testdb = build_test_mysql(),
+    'good test db';
+
+  my $dbh = DBI->connect("DBI:mysql:test;mysql_socket=${\$testdb->base_dir}/tmp/mysql.sock",'root','');
+
+  use_ok 'DBICVersion_v1';
+  $DBICVersion::Schema::VERSION = 1;
+  ok my $schema = DBICVersion::Schema->connect(sub { $dbh }),
+    'got schema';
+
+  ok my $dbic_dh = build_dh($schema),
+    'got dbicdh';
+
+  $dbic_dh->prepare_install;
+  $dbic_dh->install;
+
+  is $dbic_dh->database_version, 1, 'correct db version';
+}
+
+VERSION2: {
+  ok my $testdb = build_test_mysql(),
+    'good test db';
+
+  my $dbh = DBI->connect("DBI:mysql:test;mysql_socket=${\$testdb->base_dir}/tmp/mysql.sock",'root','');
+
+  use_ok 'DBICVersion_v2';
+  $DBICVersion::Schema::VERSION = 2;
+  ok my $schema = DBICVersion::Schema->connect(sub { $dbh }),
+    'got schema';
+
+  ok my $dbic_dh = build_dh($schema,1),
+    'got dbicdh';
+
+  $dbic_dh->prepare_install();
+  $dbic_dh->prepare_upgrade();
+  $dbic_dh->prepare_downgrade();
+  $dbic_dh->upgrade;
+
+  is $dbic_dh->database_version, 2, 'correct db version';
+
+}
+
+ok -d catdir('t','share','var','mysql-deploy','MySQL','downgrade','2-1'),
+  'reasonable defaults properly creates a downgrade';
+
+VERSION1FORCE: {
+
+  remove_tree catdir('t','share','var','mysql');
+
+  ok my $testdb = build_test_mysql(),
+    'good test db';
+
+  my $dbh = DBI->connect("DBI:mysql:test;mysql_socket=${\$testdb->base_dir}/tmp/mysql.sock",'root','');
+
+  use_ok 'DBICVersion_v2';
+  $DBICVersion::Schema::VERSION = 2;
+  ok my $schema = DBICVersion::Schema->connect(sub { $dbh }),
+    'got schema';
+
+  my $dbic_dh = DBIx::Class::DeploymentHandler->new({
+    script_directory => catdir('t','share','var','mysql-deploy'),
+    to_version => 1,
+    schema => $schema,
+    databases => ['MySQL']});
+
+  $dbic_dh->install;
+
+  is $dbic_dh->database_version, 1, 'correct db version';
+}
+
+done_testing();
+
+sub build_dh {
+  DBIx::Class::DeploymentHandler->new({
+    script_directory => catdir('t','share','var','mysql-deploy'),
+    schema => shift,
+    databases => ['MySQL']});
+}
+
+sub build_test_mysql {
+  my $base_dir = catdir('t','share','var','mysql');
+  my $auto_start = -d $base_dir ? 1:2;
+  my %config = (
+    base_dir => $base_dir,
+    auto_start => $auto_start);
+
+  return Test::mysqld->new(
+    auto_start => $auto_start,
+    base_dir => $base_dir);
+
+
+  if(my $testdb = Test::mysqld->new(%config)) {
+    return $testdb;
+  } else {
+    die $Test::mysqld::errstr;
+  }
+}
+
+END {
+  remove_tree catdir('t','share','var','mysql');
+  remove_tree catdir('t','share','var','mysql-deploy');
+}
+