First stab at restructuring with tests_recursive() - no functional changes

[dbsrgits/DBIx-Class.git] / t / cdbi-t / copy.t

diff --git a/t/cdbi-t/copy.t b/t/cdbi-t/copy.t
deleted file mode 100644 (file)
index cdcae15..0000000
--- a/t/cdbi-t/copy.t
+++ /dev/null
@@ -1,43 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use Test::More;
-
-BEGIN {
-  eval "use DBIx::Class::CDBICompat;";
-  plan $@ ? (skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@")
-          : (tests=> 4);
-}
-
-INIT {
-    use lib 't/testlib';
-}
-
-{
-    package # hide from PAUSE 
-        MyFilm;
-
-    use base 'DBIx::Class::Test::SQLite';
-    use strict;
-
-    __PACKAGE__->set_table('Movies');
-    __PACKAGE__->columns(All => qw(id title));
-
-    sub create_sql {
-        return qq{
-                id              INTEGER PRIMARY KEY AUTOINCREMENT,
-                title           VARCHAR(255)
-        }
-    }
-}
-
-my $film = MyFilm->create({ title => "For Your Eyes Only" });
-ok $film->id;
-
-my $new_film = $film->copy;
-ok $new_film->id;
-isnt $new_film->id, $film->id, "copy() gets new primary key";
-
-$new_film = $film->copy(42);
-is $new_film->id, 42, "copy() with new id";
-