moving tlc init file

[migration-tools.git] / Equinox-Migration / t / 04-MARCXMLSampler.t

diff --git a/Equinox-Migration/t/04-MARCXMLSampler.t b/Equinox-Migration/t/04-MARCXMLSampler.t
index d1251aa..0d4a40e 100644 (file)
--- a/Equinox-Migration/t/04-MARCXMLSampler.t
+++ b/Equinox-Migration/t/04-MARCXMLSampler.t
@@ -18,14 +18,13 @@ is(ref $mp, "Equinox::Migration::MARCXMLSampler", "self is self");
 $mp = Equinox::Migration::MARCXMLSampler->new( marcfile  => 't/corpus/mdmp-0.txt',
                                                mapstring => '999',
                                              );
-$mp->parse_records;
 my $sample = $mp->{data}{samp};
 is (defined $sample->{999}, 1);
 is (defined $sample->{999}{x}, 1);
 is ($sample->{999}{x}{value}, 'MYSTERY', 'Should be the first seen value');
 is ($sample->{999}{x}{count}, 7, 'One real in each record, plus 3 synthetic in last rec');
-is ($sample->{999}{x}{rcnt}, 4, 'Occurs in all records');
-is ($sample->{999}{s}{rcnt}, 3, 'Was removed from one record');
+is ($sample->{999}{x}{tcnt}, 4, 'Occurs in all records');
+is ($sample->{999}{s}{tcnt}, 3, 'Was removed from one record');
 
 my $tags = $mp->{data}{tags};
 is ($tags->{961}, 4);