Equinox-Migration/t/02-SubfieldMapper.t

   1 #!perl -T
   2
   3 use Test::More tests => 41;
   4 #use Test::More qw(no_plan);
   5 use Equinox::Migration::SubfieldMapper;
   6
   7 # baseline object creation
   8 eval { my $sm = Equinox::Migration::SubfieldMapper->new( file => "thefileisalie.txt" ) };
   9 is ($@ =~ /^Can't open file:/, 1, 'cannot open that');
  10
  11 my $sm = Equinox::Migration::SubfieldMapper->new();
  12 is(ref $sm, "Equinox::Migration::SubfieldMapper", "self is self");
  13
  14 # test validation death routines
  15 my $tokens = {};
  16 eval { $sm->validate($tokens) };
  17 is ($@, "Required field missing (line 1)\n", 'nothing there');
  18 $tokens = { field => 'foo' };
  19 eval { $sm->validate($tokens) };
  20 is ($@, "Required field missing (line 1)\n", 'only 1 field');
  21 $tokens = { field => 'foo', tag => 99 };
  22 eval { $sm->validate($tokens) };
  23 is ($@, "Required field missing (line 1)\n", 'only 2 fields');
  24
  25 $tokens = { field => '9wm', tag => 650, sub => 'a' };
  26 eval { $sm->validate($tokens) };
  27 is ($@, "Fieldnames must start with letter (line 1)\n", 'field must start with letter');
  28
  29 $tokens = { field => 'foo', tag => 'q', sub => 'a' };
  30 eval { $sm->validate($tokens) };
  31 is ($@, "Invalid tag (line 1)\n", 'nonnumeric tag');
  32 $tokens = { field => 'foo', tag => -1, sub => 'a' };
  33 eval { $sm->validate($tokens) };
  34 is ($@, "Invalid tag (line 1)\n", 'tag value < 0');
  35 $tokens = { field => 'foo', tag => 1042, sub => 'a' };
  36 eval { $sm->validate($tokens) };
  37 is ($@, "Invalid tag (line 1)\n", 'tag value > 999');
  38
  39 $tokens = { field => 'foo', tag => 650, sub => '%' };
  40 eval { $sm->validate($tokens) };
  41 is ($@, "Invalid subfield code (line 1)\n", 'non-alphanum subfield');
  42 $tokens = { field => 'foo', tag => 650, sub => '' };
  43 eval { $sm->validate($tokens) };
  44 is ($@, "Invalid subfield code (line 1)\n", 'zero-length subfield');
  45 $tokens = { field => 'foo', tag => 650, sub => 'qq' };
  46 eval { $sm->validate($tokens) };
  47 is ($@, "Invalid subfield code (line 1)\n", 'over-length subfield');
  48
  49 # and some which should have no problems
  50 $tokens = { field => 'foo', tag => 650, sub => 'a' };
  51 eval { $sm->validate($tokens) };
  52 is ($@, '', 'should be fine!');
  53 $tokens = { field => 'foo', tag => 650, sub => 'a', mod => '#', 'this', 'is', 'a', 'comment' };
  54 eval { $sm->validate($tokens) };
  55 is ($@, '', 'should be fine!');
  56
  57 # two more death: dupes
  58 $sm->{fields}{foo} = 1;
  59 $tokens = { field => 'foo', tag => 650, sub => 'a', mod => '#', 'this', 'is', 'a', 'comment' };
  60 eval { $sm->validate($tokens) };
  61 is ($@, "Fieldnames must be unique (line 1)\n", 'dupe fieldname');
  62 $sm->{tags}{650}{a} = 1;
  63 $tokens = { field => 'bar', tag => 650, sub => 'a', mod => '#', 'this', 'is', 'a', 'comment' };
  64 eval { $sm->validate($tokens) };
  65 is ($@, "Subfields cannot be mapped twice (line 1)\n", 'dupe fieldname');
  66
  67 # test load from file
  68 $sm = Equinox::Migration::SubfieldMapper->new( file => "./t/corpus/sm0.txt" );
  69 is(ref $sm, "Equinox::Migration::SubfieldMapper", "self is self");
  70 is ($sm->{tags}{949}{a}, 'call_number');
  71 is ($sm->{tags}{999}{a}, 'call_number_alt');
  72
  73 # has method tests
  74 is ($sm->has, undef, 'has nothing');
  75 is ($sm->has(949), 1, 'has tag');
  76 is ($sm->has(959), 0, 'has not tag');
  77 is ($sm->has(999, 'a'), 1, 'has tag and subfield');
  78 is ($sm->has('call_number'), 1, 'has fieldname');
  79 is ($sm->has('call_number', 949), 1, 'has tag');
  80 is ($sm->has('call_number', 700), 0, 'does not has tag');
  81 is ($sm->has('call_number', 949, 'a'), 1, 'has code');
  82 is ($sm->has('call_number', 949, 'q'), 0, 'does not has code');
  83
  84 # field method tests
  85 is ($sm->{fields}{call_number}{tag}, 949);
  86 is ($sm->{fields}{call_number}{sub}, 'a');
  87 is ($sm->field, undef, 'null mapping is undef');
  88 is ($sm->field(650), undef, 'half-null mapping is undef');
  89 is ($sm->field(650,'z'), undef, 'tag+code not mapped');
  90 is ($sm->field(949,'a'), 'call_number', 'mapping returned');
  91
  92 # mod method tests
  93 is ($sm->{fields}{note}{mods}{multi}, 1);
  94 is ($sm->mods('zzz'), undef, 'nonexistant field');
  95 is_deeply ($sm->mods('note'), { multi => 1}, 'multi');
  96 is_deeply ($sm->mods('note_alt'), { multi => 1, req => 1 }, 'multi, req');
  97 is_deeply ($sm->mods('date_a'), { foo => 1, bar => 1, quux => 1 });
  98 is_deeply ($sm->filters('date_a'), ['one two three']);
  99 is_deeply ($sm->filters('type'), ['foo']);
 100