Commit | Line | Data |
---|---|---|
c0329273 | 1 | BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) } |
2 | ||
551e711a | 3 | use strict; |
4 | use warnings; | |
5 | use Test::More; | |
6 | use Test::Exception; | |
7 | ||
c0329273 | 8 | |
551e711a | 9 | use DBICTest; |
10 | ||
11 | lives_ok (sub { | |
12 | DBICTest->init_schema()->resultset('Artist')->find({artistid => 1 })->update({name => 'anon test'}); | |
13 | }, 'Schema object not lost in chaining'); | |
14 | ||
15 | done_testing; |