From: Brian Cassidy <bricas@cpan.org>
Date: Thu, 16 Nov 2006 15:42:33 +0000 (+0000)
Subject: moving it to -current branch
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=825a32a809a6cc63f574debd33d7b5a2c2aadd7a;p=dbsrgits%2FDBIx-Class-Historic.git

moving it to -current branch
---

diff --git a/t/94pk_mutation.t b/t/94pk_mutation.t
deleted file mode 100644
index 4623332..0000000
--- a/t/94pk_mutation.t
+++ /dev/null
@@ -1,35 +0,0 @@
-use strict;
-use warnings;  
-
-use Test::More;
-use lib qw(t/lib);
-use DBICTest;
-
-my $schema = DBICTest->init_schema();
-
-plan tests => 5;
-
-my $old_artistid = 1;
-my $new_artistid = $schema->resultset("Artist")->get_column('artistid')->max + 1;
-
-# Update the PK
-{
-  my $artist = $schema->resultset("Artist")->find($old_artistid);
-  ok(defined $artist, 'found an artist with the new PK');
-
-  $artist->update({ artistid => $new_artistid });
-  is($artist->artistid, $new_artistid, 'artist ID matches');
-}
-
-# Look for the old PK
-{
-  my $artist = $schema->resultset("Artist")->find($old_artistid);
-  ok(!defined $artist, 'no artist found with the old PK');
-}
-
-# Look for the new PK
-{
-  my $artist = $schema->resultset("Artist")->find($new_artistid);
-  ok(defined $artist, 'found an artist with the new PK');
-  is($artist->artistid, $new_artistid, 'artist ID matches');
-}