[Bast-commits] r6160 - DBIx-Class/0.08/branches/fix-update-and-delete-as_query/t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-05-07 17:00:48 +0000 (Thu, 07 May 2009)
New Revision: 6160

Removed:
   DBIx-Class/0.08/branches/fix-update-and-delete-as_query/t/53delete_chained.t
Log:
This test is completely borked, needs a rewrite

Deleted: DBIx-Class/0.08/branches/fix-update-and-delete-as_query/t/53delete_chained.t
===================================================================
--- DBIx-Class/0.08/branches/fix-update-and-delete-as_query/t/53delete_chained.t	2009-05-07 09:58:14 UTC (rev 6159)
+++ DBIx-Class/0.08/branches/fix-update-and-delete-as_query/t/53delete_chained.t	2009-05-07 17:00:48 UTC (rev 6160)
@@ -1,47 +0,0 @@
-use Test::More;
-use strict;
-use warnings;
-use lib qw(t/lib);
-use DBICTest;
-
-plan tests => 7;
-
-# This set of tests attempts to do a delete on a chained resultset, which
-# would lead to SQL DELETE with a JOIN, which is not supported by the 
-# SQL generator right now.
-# So it currently checks that these operations fail with a warning.
-# When the SQL generator is fixed this test will need fixing up appropriately.
-
-my $schema = DBICTest->init_schema();
-my $total_tracks = $schema->resultset('Track')->count;
-cmp_ok($total_tracks, '>', 0, 'need track records');
-
-# test that delete_related w/o conditions deletes all related records only
-{
-  my $w;
-  local $SIG{__WARN__} = sub { $w = shift };
-
-  my $artist = $schema->resultset("Artist")->find(3);
-  my $artist_tracks = $artist->cds->search_related('tracks')->count;
-  cmp_ok($artist_tracks, '<', $total_tracks, 'need more tracks than just related tracks');
-
-  my $rs = $artist->cds->search_related('tracks');
-  $total_tracks -= $rs->count;
-  ok($rs->delete);
-  is($schema->resultset('Track')->count, $total_tracks, '3 tracks should be deleted');
-}
-
-# test that delete_related w/conditions deletes just the matched related records only
-{
-  my $w;
-  local $SIG{__WARN__} = sub { $w = shift };
-
-  my $artist2 = $schema->resultset("Artist")->find(2);
-  my $artist2_tracks = $artist2->search_related('cds')->search_related('tracks')->count;
-  cmp_ok($artist2_tracks, '<', $total_tracks, 'need more tracks than related tracks');
-  
-  my $rs = $artist2->search_related('cds')->search_related('tracks');
-  $total_tracks -= $rs->count;
-  ok($rs->delete);
-  is($schema->resultset('Track')->count, $total_tracks, 'No tracks should be deleted');
-}