8 eval "use DBD::SQLite";
9 plan skip_all
=> "DBD::SQLite is required to run this test" if $@
;
19 my $db = NewDB
->new();
33 $u = User
->new( id
=> $id );
34 $u->load( i18n
=> 'ru' );
36 is
( $u->name, 'john' );
38 is
( $u->i18n->lang, 'ru' );
40 $u->delete( cascade
=> 1 );