]>
iEval git - aard.git/blob - t/Aard.t
6 use Test
::More tests
=> 9;
7 BEGIN { use_ok
('Aard') };
9 my $dict = Aard
->new('t/jargon-4.4.7-1.aar');
10 is
lc $dict->uuid_string, '4e5c4639-9d1d-42ee-b27d-b552d6b7386d', 'uuid_string';
11 is
$dict->volume, 1, 'volume';
12 is
$dict->total_volumes, 1, 'total_volumes';
13 is
$dict->count, 2307, 'count';
15 is
$dict->title, 'The Jargon File', 'title';
16 is
$dict->index_language, 'ENG', 'index_language';
18 is
$dict->key(20), 'admin', 'key 20';
19 like
$dict->article(20), qr/administrator/, 'value 20';
This page took 0.049509 seconds and 4 git commands to generate.