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

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

diff --git a/t/cdbi-t/construct.t b/t/cdbi-t/construct.t
deleted file mode 100644 (file)
index e824b06..0000000
--- a/t/cdbi-t/construct.t
+++ /dev/null
@@ -1,45 +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=> 5);
-}
-
-INIT {
-    use lib 't/testlib';
-    use Film;
-}
-
-{
-    Film->insert({
-        Title     => "Breaking the Waves",
-        Director  => 'Lars von Trier',
-        Rating    => 'R'
-    });
-
-    my $film = Film->construct({
-        Title     => "Breaking the Waves",
-        Director  => 'Lars von Trier',
-    });
-
-    isa_ok $film, "Film";
-    is $film->title,    "Breaking the Waves";
-    is $film->director, "Lars von Trier";
-    is $film->rating,   "R",
-        "constructed objects can get missing data from the db";
-}
-
-{
-    package Foo;
-    use base qw(Film);
-    Foo->columns( TEMP => qw(temp_thing) );
-    my $film = Foo->construct({
-        temp_thing  => 23
-    });
-    
-    ::is $film->temp_thing, 23, "construct sets temp columns";
-}