[aard.git] / t / Aard.t

#!/usr/bin/perl -w
use v5.14;
use strict;
use warnings;

use Test::More tests => 9;
BEGIN { use_ok('Aard') };

my $dict = Aard->new('t/jargon-4.4.7-1.aar');
is lc $dict->uuid_string, '4e5c4639-9d1d-42ee-b27d-b552d6b7386d', 'uuid_string';
is $dict->volume, 1, 'volume';
is $dict->total_volumes, 1, 'total_volumes';
is $dict->count, 2307, 'count';

is $dict->title, 'The Jargon File', 'title';
is $dict->index_language, 'ENG', 'index_language';

is $dict->key(20), 'admin', 'key 20';
like $dict->article(20), qr/administrator/, 'value 20';
Commit	Line	Data
1b53d9d3 MG	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';