X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=t%2F15-scan.t;fp=t%2F15-scan.t;h=d74c8ce6867ff6707af8ed538be3ad1bfef23ad0;hb=639d3156685b2b5bd897841aaf52eae254644181;hp=9dd8720e90d0d718547c253c84043795c3b67a8e;hpb=999aae095ffa8d9f801fa1736b15eb23f919ed63;p=ZOOM-Perl-moved-to-github.git

diff --git a/t/15-scan.t b/t/15-scan.t
index 9dd8720..d74c8ce 100644
--- a/t/15-scan.t
+++ b/t/15-scan.t
@@ -1,11 +1,11 @@
-# $Id: 15-scan.t,v 1.2 2005-11-08 10:37:31 mike Exp $
+# $Id: 15-scan.t,v 1.3 2005-11-08 11:45:29 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'
 
 use strict;
 use warnings;
-use Test::More tests => 46;
+use Test::More tests => 47;
 
 BEGIN { use_ok('Net::Z3950::ZOOM') };
 
@@ -41,6 +41,7 @@ foreach my $i (1 .. $n) {
 
 Net::Z3950::ZOOM::scanset_destroy($ss);
 ok(1, "destroyed scanset");
+ok(1, "(can't re-destroy scanset)"); # Only meaningful in OO API.
 
 #   ###	There remains much testing still to do with scan, but I can't
 #	do it until Adam better explains ZOOM-C's scan functionality.