From: Moritz Onken Date: Tue, 11 Aug 2009 11:20:37 +0000 (+0000) Subject: removed TODO test X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2ee7656dd716f5d9bebf33131ead0697fe4af953;p=dbsrgits%2FDBIx-Class-Historic.git removed TODO test --- diff --git a/t/create/set_column.t b/t/create/set_column.t deleted file mode 100644 index 9a2edd2..0000000 --- a/t/create/set_column.t +++ /dev/null @@ -1,45 +0,0 @@ -use warnings; -use strict; - -use Test::More; -use Test::Exception; - -use lib qw(t/lib); -use DBICTest; - -my $schema = DBICTest->init_schema(); - -TODO: { - local $TODO = 'call accessors when calling create() or update()'; - - my $row = - $schema->resultset('Track')->new_result( { title => 'foo', cd => 1 } ); - $row->increment(1); - $row->insert; - is( $row->increment, 2 ); - - $row = - $schema->resultset('Track') - ->create( { title => 'bar', cd => 1, increment => 1 } ); - is( $row->increment, 2 ); - - # $row isa DBICTest::Schema::Track - $row->get_from_storage; - is( $row->increment, 2 ); - - $row->update( { increment => 3 } ); - $row->get_from_storage; - is( $row->increment, 4 ); - - $row->increment(3); - $row->get_from_storage; - is( $row->increment, 4 ); - - throws_ok (sub { - $row = - $schema->resultset('Track') - ->create( { title => 'bar', cd => 2, set_increment => 1 } ); - }, qr/no such column/i); -} - -done_testing;