t/schema/anon.t

   1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
   2
   3 use strict;
   4 use warnings;
   5 use Test::More;
   6 use Test::Exception;
   7
   8
   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;