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;