Equinox-Migration/t/03-MapDrivenMARCXMLProc.t

   1 #!perl -T
   2
   3 #use Test::More tests => 39;
   4 use Test::More qw(no_plan);
   5 use Equinox::Migration::MapDrivenMARCXMLProc;
   6
   7 # fails
   8 eval { my $mp =
   9          Equinox::Migration::MapDrivenMARCXMLProc->new(marcfile => 't/corpus/mdmp-0.txt') };
  10 is ($@, "Argument 'mapfile' must be specified\n", 'no mapfile');
  11
  12 eval { my $mp =
  13          Equinox::Migration::MapDrivenMARCXMLProc->new(mapfile => 't/corpus/mdmpmap-00.txt') };
  14 is ($@, "Argument 'marcfile' must be specified\n", 'no marcfile');
  15
  16 eval { my $mp = Equinox::Migration::MapDrivenMARCXMLProc->new };
  17 is ($@, "Argument 'mapfile' must be specified\n", 'no mapfile');
  18
  19
  20 # baseline object creation
  21 my $mp = Equinox::Migration::MapDrivenMARCXMLProc->new( marcfile => 't/corpus/mdmp-0.txt',
  22                                                         mapfile  => 't/corpus/mdmpmap-00.txt',
  23                                                       );
  24 is(ref $mp, "Equinox::Migration::MapDrivenMARCXMLProc", "self is self");
  25
  26 # parsing
  27 my $rec = $mp->parse_record;
  28 is (defined $rec, 1);