X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=t%2F15-scan.t;fp=t%2F15-scan.t;h=4e42f13731f8dc96be0434f25ac6581d42a3ddf6;hb=4f76ac1e710b77d83dec1f05d118484b3967ffb3;hp=beaf1bd71b297f68f90a90f639408b06583a312d;hpb=3c219af67e67909e1cfd606bc9e908b1ec2c5b5f;p=ZOOM-Perl-moved-to-github.git

diff --git a/t/15-scan.t b/t/15-scan.t
index beaf1bd..4e42f13 100644
--- a/t/15-scan.t
+++ b/t/15-scan.t
@@ -1,4 +1,4 @@
-# $Id: 15-scan.t,v 1.4 2005-11-09 16:47:42 mike Exp $
+# $Id: 15-scan.t,v 1.5 2005-11-09 17:00:43 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'
@@ -76,7 +76,7 @@ ok(Net::Z3950::ZOOM::scanset_option_get($ss, "position") == 0,
    "seed-term before start of returned list");
 
 # Silly test of option setting and getting
-Net::Z3950::ZOOM::scanset_option_set($ss, "position", "fruit");
+Net::Z3950::ZOOM::scanset_option_set($ss, position => "fruit");
 ok(Net::Z3950::ZOOM::scanset_option_get($ss, "position") eq "fruit",
    "option setting/getting works");