Implement cascade => "None"

[dbsrgits/DBIx-Class.git] / t / cdbi-t / 23-cascade.t

diff --git a/t/cdbi-t/23-cascade.t b/t/cdbi-t/23-cascade.t
index 7e17419..50a1647 100644 (file)
--- a/t/cdbi-t/23-cascade.t
+++ b/t/cdbi-t/23-cascade.t
@@ -2,27 +2,75 @@ use strict;
 use Test::More;
 
 BEGIN {
-       eval "use DBD::SQLite";
-       plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 5);
+  eval "use DBIx::Class::CDBICompat;";
+  if ($@) {
+    plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required');
+    next;
+  }
+  eval "use DBD::SQLite";
+  plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 12);
 }
 
-use lib 't/testlib';
-use Film;
-use Director;
-
-{ # Cascade Strategies
-       Director->has_many(nasties => Film => { cascade => 'Fail' });
-
-       my $dir = Director->insert({ name => "Nasty Noddy" });
-       my $kk = $dir->add_to_nasties({ Title => 'Killer Killers' });
-       is $kk->director, $dir, "Director set OK";
-       is $dir->nasties, 1, "We have one nasty";
-       eval { $dir->delete };
-       like $@, qr/1/, "Can't delete while films exist";
-       my $rr = $dir->add_to_nasties({ Title => 'Revenge of the Revengers' });
-       eval { $dir->delete };
-       like $@, qr/2/, "Still can't delete";
-       $dir->nasties->delete_all;
-       eval { $dir->delete };
-       is $@, '', "Can delete once films are gone";
+INIT {
+    use lib 't/testlib';
+    use Film;
+    use Director;
 }
+
+{ # Cascade on delete
+    Director->has_many(nasties => 'Film');
+
+    my $dir = Director->insert({
+        name => "Lewis Teague",
+    });
+    my $kk = $dir->add_to_nasties({
+        Title => 'Alligator'
+    });
+    is $kk->director, $dir, "Director set OK";
+    is $dir->nasties, 1, "We have one nasty";
+
+    ok $dir->delete;
+    ok !Film->retrieve("Alligator"), "has_many cascade deletes by default";
+}
+
+
+# Two ways of saying not to cascade
+for my $args ({ no_cascade_delete => 1 }, { cascade => "None" }) {
+    Director->has_many(nasties => 'Film', $args);
+
+    my $dir = Director->insert({
+        name => "Lewis Teague",
+    });
+    my $kk = $dir->add_to_nasties({
+        Title => 'Alligator'
+    });
+    is $kk->director, $dir, "Director set OK";
+    is $dir->nasties, 1, "We have one nasty";
+
+    ok $dir->delete;
+    ok +Film->retrieve("Alligator"), "has_many with @{[ keys %$args ]} => @{[ values %$args ]}";
+    $kk->delete;
+}
+
+
+#{ # Fail on cascade
+#    local $TODO = 'cascade => "Fail" unimplemented';
+#    
+#    Director->has_many(nasties => Film => { cascade => 'Fail' });
+#
+#    my $dir = Director->insert({ name => "Nasty Noddy" });
+#    my $kk = $dir->add_to_nasties({ Title => 'Killer Killers' });
+#    is $kk->director, $dir, "Director set OK";
+#    is $dir->nasties, 1, "We have one nasty";
+#
+#    ok !eval { $dir->delete };
+#    like $@, qr/1/, "Can't delete while films exist";
+#
+#    my $rr = $dir->add_to_nasties({ Title => 'Revenge of the Revengers' });
+#    ok !eval { $dir->delete };
+#    like $@, qr/2/, "Still can't delete";
+#
+#    $dir->nasties->delete_all;
+#    ok eval { $dir->delete };
+#    is $@, '', "Can delete once films are gone";
+#}