]>
Commit | Line | Data |
---|---|---|
1 | #!/usr/bin/perl -w | |
2 | use v5.14; | |
3 | use strict; | |
4 | use warnings; | |
5 | ||
6 | use Test::More tests => 9; | |
7 | BEGIN { use_ok('Aard') }; | |
8 | ||
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'; | |
14 | ||
15 | is $dict->title, 'The Jargon File', 'title'; | |
16 | is $dict->index_language, 'ENG', 'index_language'; | |
17 | ||
18 | is $dict->key(20), 'admin', 'key 20'; | |
19 | like $dict->article(20), qr/administrator/, 'value 20'; |