[Bast-commits] r7312 - in DBIx-Class/0.08/trunk/t/lib: . DBICTest/Schema

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-08-12 14:13:48 +0000 (Wed, 12 Aug 2009)
New Revision: 7312

Modified:
   DBIx-Class/0.08/trunk/t/lib/DBICTest/Schema/Track.pm
   DBIx-Class/0.08/trunk/t/lib/sqlite.sql
Log:
Remove leftovers from frew's tests

Modified: DBIx-Class/0.08/trunk/t/lib/DBICTest/Schema/Track.pm
===================================================================
--- DBIx-Class/0.08/trunk/t/lib/DBICTest/Schema/Track.pm	2009-08-12 14:11:24 UTC (rev 7311)
+++ DBIx-Class/0.08/trunk/t/lib/DBICTest/Schema/Track.pm	2009-08-12 14:13:48 UTC (rev 7312)
@@ -34,11 +34,6 @@
     data_type => 'smalldatetime',
     is_nullable => 1
   },
-  increment => {
-      data_type => 'integer',
-      is_nullable => 1,
-      accessor => '_increment',
-  }
 );
 __PACKAGE__->set_primary_key('trackid');
 
@@ -55,20 +50,4 @@
 __PACKAGE__->might_have( cd_single => 'DBICTest::Schema::CD', 'single_track' );
 __PACKAGE__->might_have( lyrics => 'DBICTest::Schema::Lyrics', 'track_id' );
 
-sub increment {
-    my $self = shift;
-    if(@_) {
-        return $self->_increment($_[0] + 1);
-    }
-    return $self->_increment();
-}
-
-sub set_increment {
-    my $self = shift;
-    if(@_) {
-        return $self->_increment($_[0]);
-    }
-    return $self->_increment();
-}
-
 1;

Modified: DBIx-Class/0.08/trunk/t/lib/sqlite.sql
===================================================================
--- DBIx-Class/0.08/trunk/t/lib/sqlite.sql	2009-08-12 14:11:24 UTC (rev 7311)
+++ DBIx-Class/0.08/trunk/t/lib/sqlite.sql	2009-08-12 14:13:48 UTC (rev 7312)
@@ -1,6 +1,6 @@
 -- 
 -- Created by SQL::Translator::Producer::SQLite
--- Created on Thu Jul 30 09:37:43 2009
+-- Created on Wed Aug 12 16:10:43 2009
 -- 
 
 
@@ -285,8 +285,7 @@
   title varchar(100) NOT NULL,
   last_updated_on datetime,
   last_updated_at datetime,
-  small_dt smalldatetime,
-  increment integer
+  small_dt smalldatetime
 );
 
 CREATE INDEX track_idx_cd ON track (cd);