Permalink
Switch branches/tags
Find file
Fetching contributors…
Cannot retrieve contributors at this time
16 lines (10 sloc) 310 Bytes
BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use strict;
use warnings;
use Test::More;
use Test::Exception;
use DBICTest;
lives_ok (sub {
DBICTest->init_schema()->resultset('Artist')->find({artistid => 1 })->update({name => 'anon test'});
}, 'Schema object not lost in chaining');
done_testing;