view release on metacpan or  search on metacpan

t/db.t  view on Meta::CPAN

#!/usr/bin/env perl
use Test::More tests => 10;
use utf8;
use lib 'lib';
use App::I18N::DB;

use_ok('App::I18N::DB');

my $db = App::I18N::DB->new();
ok( $db );

$db->insert( 'zh-tw',  'test' , '測試' );

$entry = $db->find( 'zh-tw', 'test' );


ok( $entry );
ok( $entry->{id} );
ok( $entry->{msgid} );
ok( $entry->{lang} );
ok( $entry->{msgstr} );

is( $entry->{msgstr} , '測試' );

my $entries = $db->get_entry_list( 'zh-tw' );
ok( @$entries );
is( scalar(@$entries) , 1 );