From 18b078e9a9ec27af837756936018caec5481dd9d Mon Sep 17 00:00:00 2001 From: mike Date: Wed, 9 Nov 2005 17:03:15 +0000 Subject: [PATCH] Fix typo in diagnostic. --- t/15-scan.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/t/15-scan.t b/t/15-scan.t index 4e42f13..31d1e13 100644 --- a/t/15-scan.t +++ b/t/15-scan.t @@ -1,4 +1,4 @@ -# $Id: 15-scan.t,v 1.5 2005-11-09 17:00:43 mike Exp $ +# $Id: 15-scan.t,v 1.6 2005-11-09 17:03:15 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' @@ -96,6 +96,6 @@ sub scan { ok($errcode == 0, "scan for '$startterm'"); $n = Net::Z3950::ZOOM::scanset_size($ss); ok(defined $n, "got size"); - ok($n == $nexpected, "got $n terms (expected $n)"); + ok($n == $nexpected, "got $n terms (expected $nexpected)"); return ($ss, $n); } -- 1.7.10.4