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

[dbsrgits/DBIx-Class.git] / t / cdbi-t / 26-mutator.t

diff --git a/t/cdbi-t/26-mutator.t b/t/cdbi-t/26-mutator.t
deleted file mode 100644 (file)
index 1eeea25..0000000
--- a/t/cdbi-t/26-mutator.t
+++ /dev/null
@@ -1,47 +0,0 @@
-use strict;
-use Test::More;
-
-BEGIN {
-  eval "use DBIx::Class::CDBICompat;";
-  plan skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@"
-    if $@;
-}
-
-BEGIN {
-       eval "use DBD::SQLite";
-       plan $@
-               ? (skip_all => 'needs DBD::SQLite for testing')
-               : (tests => 6);
-}
-
-use lib 't/testlib';
-require Film;
-
-sub Film::accessor_name_for {
-       my ($class, $col) = @_;
-       return "sheep" if lc $col eq "numexplodingsheep";
-       return $col;
-}
-
-my $data = {
-       Title    => 'Bad Taste',
-       Director => 'Peter Jackson',
-       Rating   => 'R',
-};
-
-my $bt;
-eval {
-       my $data = $data;
-       $data->{sheep} = 1;
-       ok $bt = Film->insert($data), "Modified accessor - with  
-accessor";
-       isa_ok $bt, "Film";
-};
-is $@, '', "No errors";
-
-eval {
-       ok $bt->sheep(2), 'Modified accessor, set';
-       ok $bt->update, 'Update';
-};
-is $@, '', "No errors";
-