8 eval "use DBD::SQLite";
9 plan skip_all
=> "DBD::SQLite is required to run this test" if $@
;
19 my $db = NewDB
->new();
30 $u = User
->new( id
=> $u->id );
32 my @i18n = @
{ $u->user_i18n };
34 $u->delete( cascade
=> 1 );
36 $u = User
->new( id
=> $u->id );
37 $u->load( speculative
=> 1 );
40 foreach my $i18n ( @i18n ) {
41 $u = UserI18N
->new( i18nid
=> $i18n->i18nid );
42 $u->load( speculative
=> 1 );