[from now] 2012/06/23 17:21:14

diff --git a/t/model_ToDoDB2.t b/t/model_ToDoDB2.t
deleted file mode 100644
index 0ae5264..0000000
--- a/t/model_ToDoDB2.t
+++ /dev/null
@@ -1,85 +0,0 @@
-use strict;
-use warnings;
-use Test::Class;
-
-Test::Class->runtests;
-
-package HelloSchema;
-
-use strict;
-use warnings;
-use DBI;
-use Test::More;
-use Test::mysqld;
-
-use Hello::Schema;
-use Error qw(:try);
-
-use base 'Test::Class';
-
-sub startup : Test(startup) {
-    my $self = shift;
-
-    $self->{mysqld} = Test::mysqld->new(
-        my_cnf => {
-            'skip-networking' => '',
-        }
-    );
-
-    $self->{schema} = Hello::Schema->connection($self->{mysqld}->dsn);
-    $self->{schema}->deploy;
-}
-
-sub txn_helper {
-    my ($self, $func) = @_;
-
-    try {
-        $self->{schema}->txn_begin;
-        $func->();
-    } finally {
-        $self->{schema}->txn_rollback;
-    };
-}
-
-sub insert_and_search_user : Test(2) {
-    my $self = shift;
-
-    $self->txn_helper(sub {
-            my $resultset = $self->{schema}->resultset('User');
-            $resultset->create({
-                    name => "oota"
-                });
-
-            my @users = $resultset->all;
-            is($users[0]->id, 1);
-            is($users[0]->name => "oota");
-        });
-}
-
-
-sub insert_and_search_user_and_todo : Test(4) {
-    my $self = shift;
-
-    $self->txn_helper(sub {
-            my $resultset = $self->{schema}->resultset('User');
-            $resultset->create({
-                    name => "oota"
-                });
-
-            my @users = $resultset->all;
-            is(scalar(@users), 1);
-
-            $resultset = $self->{schema}->resultset('Todo');
-            $resultset->create({
-                    user => $users[0],
-                    memo => "hoge fuga"
-                });
-
-            my @todos = $resultset->all;
-            is($todos[0]->id, 1);
-            is($todos[0]->memo => "hoge fuga");
-            is_deeply($todos[0]->user, $users[0]);
-        });
-}
-
-1;
diff --git a/t/model_ToDoDB3.t b/t/model_ToDoDB3.t
deleted file mode 100644
index 0ae5264..0000000
--- a/t/model_ToDoDB3.t
+++ /dev/null
@@ -1,85 +0,0 @@
-use strict;
-use warnings;
-use Test::Class;
-
-Test::Class->runtests;
-
-package HelloSchema;
-
-use strict;
-use warnings;
-use DBI;
-use Test::More;
-use Test::mysqld;
-
-use Hello::Schema;
-use Error qw(:try);
-
-use base 'Test::Class';
-
-sub startup : Test(startup) {
-    my $self = shift;
-
-    $self->{mysqld} = Test::mysqld->new(
-        my_cnf => {
-            'skip-networking' => '',
-        }
-    );
-
-    $self->{schema} = Hello::Schema->connection($self->{mysqld}->dsn);
-    $self->{schema}->deploy;
-}
-
-sub txn_helper {
-    my ($self, $func) = @_;
-
-    try {
-        $self->{schema}->txn_begin;
-        $func->();
-    } finally {
-        $self->{schema}->txn_rollback;
-    };
-}
-
-sub insert_and_search_user : Test(2) {
-    my $self = shift;
-
-    $self->txn_helper(sub {
-            my $resultset = $self->{schema}->resultset('User');
-            $resultset->create({
-                    name => "oota"
-                });
-
-            my @users = $resultset->all;
-            is($users[0]->id, 1);
-            is($users[0]->name => "oota");
-        });
-}
-
-
-sub insert_and_search_user_and_todo : Test(4) {
-    my $self = shift;
-
-    $self->txn_helper(sub {
-            my $resultset = $self->{schema}->resultset('User');
-            $resultset->create({
-                    name => "oota"
-                });
-
-            my @users = $resultset->all;
-            is(scalar(@users), 1);
-
-            $resultset = $self->{schema}->resultset('Todo');
-            $resultset->create({
-                    user => $users[0],
-                    memo => "hoge fuga"
-                });
-
-            my @todos = $resultset->all;
-            is($todos[0]->id, 1);
-            is($todos[0]->memo => "hoge fuga");
-            is_deeply($todos[0]->user, $users[0]);
-        });
-}
-
-1;
diff --git a/t/model_ToDoDB4.t b/t/model_ToDoDB4.t
deleted file mode 100644
index 0ae5264..0000000
--- a/t/model_ToDoDB4.t
+++ /dev/null
@@ -1,85 +0,0 @@
-use strict;
-use warnings;
-use Test::Class;
-
-Test::Class->runtests;
-
-package HelloSchema;
-
-use strict;
-use warnings;
-use DBI;
-use Test::More;
-use Test::mysqld;
-
-use Hello::Schema;
-use Error qw(:try);
-
-use base 'Test::Class';
-
-sub startup : Test(startup) {
-    my $self = shift;
-
-    $self->{mysqld} = Test::mysqld->new(
-        my_cnf => {
-            'skip-networking' => '',
-        }
-    );
-
-    $self->{schema} = Hello::Schema->connection($self->{mysqld}->dsn);
-    $self->{schema}->deploy;
-}
-
-sub txn_helper {
-    my ($self, $func) = @_;
-
-    try {
-        $self->{schema}->txn_begin;
-        $func->();
-    } finally {
-        $self->{schema}->txn_rollback;
-    };
-}
-
-sub insert_and_search_user : Test(2) {
-    my $self = shift;
-
-    $self->txn_helper(sub {
-            my $resultset = $self->{schema}->resultset('User');
-            $resultset->create({
-                    name => "oota"
-                });
-
-            my @users = $resultset->all;
-            is($users[0]->id, 1);
-            is($users[0]->name => "oota");
-        });
-}
-
-
-sub insert_and_search_user_and_todo : Test(4) {
-    my $self = shift;
-
-    $self->txn_helper(sub {
-            my $resultset = $self->{schema}->resultset('User');
-            $resultset->create({
-                    name => "oota"
-                });
-
-            my @users = $resultset->all;
-            is(scalar(@users), 1);
-
-            $resultset = $self->{schema}->resultset('Todo');
-            $resultset->create({
-                    user => $users[0],
-                    memo => "hoge fuga"
-                });
-
-            my @todos = $resultset->all;
-            is($todos[0]->id, 1);
-            is($todos[0]->memo => "hoge fuga");
-            is_deeply($todos[0]->user, $users[0]);
-        });
-}
-
-1;