| Current Path : /usr/share/doc/perl-DBIx-Class/t/schema/ |
| Current File : //usr/share/doc/perl-DBIx-Class/t/schema/anon.t |
use strict;
use warnings;
use Test::More;
use Test::Exception;
use lib qw(t/lib);
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;