1 2 3# I'm not sure exactly what aspect of `reload' this is testing... 4 5use strict; 6use lib 't/springfield'; 7use Springfield; 8 9# $Tangram::TRACE = \*STDOUT; 10 11Springfield::begin_tests(5); 12 13{ 14 my $storage = Springfield::connect_empty; 15 $storage->insert( NaturalPerson->new( firstName => 'Marge', name => 'Bouvier' ) ); 16 $storage->disconnect; 17} 18 19Springfield::leaktest; 20 21{ 22 my $storage = Springfield::connect; 23 my ($marge) = $storage->select('NaturalPerson'); 24 25 testcase($marge->{name} eq 'Bouvier'); 26 27 $marge->{name} = 'Simpson'; 28 $marge->{children} = [ NaturalPerson->new( firstName => 'Bart', name => 'Simpson' ) ]; 29 $storage->update($marge); 30 31 $storage->reload($marge); 32 33 testcase($marge->{name} eq 'Simpson'); 34 testcase(@{ $marge->{children} } == 1); 35 36 $storage->disconnect; 37} 38 39Springfield::leaktest; 40 411; 42