8 eval "use DBD::SQLite";
9 plan skip_all
=> "DBD::SQLite is required to run this test" if $@
;
19 my $db = NewDB
->new();
26 user_i18n
=> { signature
=> 'привет' }
29 is
( $u->name, 'vti' );
31 is
( $u->orig_lang, 'ru' );
35 is
( scalar @
{ $u->user_i18n }, 3 );
37 $u->delete( cascade
=> 1 );