From 639d3156685b2b5bd897841aaf52eae254644181 Mon Sep 17 00:00:00 2001 From: mike Date: Tue, 8 Nov 2005 11:45:29 +0000 Subject: [PATCH] Add no-op final test mirroring scanset re-destruction in OO API. --- t/15-scan.t | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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. -- 1.7.10.4