Commit | Line | Data |
27d619d8 |
1 | use warnings; |
2 | use strict; |
3 | |
4 | use Test::More; |
d7f44160 |
5 | use Test::Exception; |
27d619d8 |
6 | |
7 | use lib qw(t/lib); |
8 | use DBICTest; |
9 | |
10 | my $schema = DBICTest->init_schema(); |
11 | |
12 | TODO: { |
13 | local $TODO = 'call accessors when calling create() or update()'; |
14 | |
15 | my $row = |
16 | $schema->resultset('Track')->new_result( { title => 'foo', cd => 1 } ); |
17 | $row->increment(1); |
18 | $row->insert; |
19 | is( $row->increment, 2 ); |
20 | |
21 | $row = |
22 | $schema->resultset('Track') |
23 | ->create( { title => 'bar', cd => 1, increment => 1 } ); |
24 | is( $row->increment, 2 ); |
25 | |
26 | # $row isa DBICTest::Schema::Track |
27 | $row->get_from_storage; |
28 | is( $row->increment, 2 ); |
29 | |
30 | $row->update( { increment => 3 } ); |
31 | $row->get_from_storage; |
32 | is( $row->increment, 4 ); |
33 | |
34 | $row->increment(3); |
35 | $row->get_from_storage; |
36 | is( $row->increment, 4 ); |
37 | |
d7f44160 |
38 | throws_ok (sub { |
27d619d8 |
39 | $row = |
40 | $schema->resultset('Track') |
41 | ->create( { title => 'bar', cd => 2, set_increment => 1 } ); |
d7f44160 |
42 | }, qr/no such column/i); |
27d619d8 |
43 | } |
44 | |
45 | done_testing; |