From 40205a3923522999ca96aa0e57e013cb12db7e29 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Tue, 8 Jun 2010 15:26:03 +0100 Subject: [PATCH] More information in scan diagnostics --- t/15-scan.t | 2 +- t/25-scan.t | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/t/15-scan.t b/t/15-scan.t index f894513..7bbbd69 100644 --- a/t/15-scan.t +++ b/t/15-scan.t @@ -127,6 +127,6 @@ sub scan { my $n = Net::Z3950::ZOOM::scanset_size($ss); ok(defined $n, "got size"); - ok($n == $nexpected, "got $n terms (expected $nexpected)"); + ok($n == $nexpected, "got $n terms '$startterm' (expected $nexpected)"); return ($ss, $n); } diff --git a/t/25-scan.t b/t/25-scan.t index a6da292..145fa1a 100644 --- a/t/25-scan.t +++ b/t/25-scan.t @@ -115,6 +115,6 @@ sub scan { my $n = $ss->size(); ok(defined $n, "got size"); - ok($n == $nexpected, "got $n terms (expected $nexpected)"); + ok($n == $nexpected, "got $n terms for '$startterm' (expected $nexpected)"); return ($ss, $n); } -- 1.7.10.4