-# $Id: 25-scan.t,v 1.11 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 25-scan.t'
(my $disp, $occ) = $ss->display_term($i-1);
ok(defined $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)");
}
$ss->destroy();