-# $Id: 15-scan.t,v 1.14 2007-08-16 17:19:35 mike Exp $
-
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 15-scan.t'
my $disp = Net::Z3950::ZOOM::scanset_display_term($ss, $i-1, $occ, $len);
ok(defined $disp && $len eq length($disp),
"display term $i of $n: '$disp' ($occ occurences)");
- ok($disp eq $term, "display term $i identical to term");
+ ok($disp eq $term, "display term $i ($disp) identical to term ($term)");
}
Net::Z3950::ZOOM::scanset_destroy($ss);