t/Aard.t

   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';