X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=perl%2Ft%2F01_base.t;h=85b21912c5d0f9455eb61076e9131deb98ebfcf7;hb=619b7a25eae7bffe31395d103d8eb4c5d0a84581;hp=535d8800bbd5c2545437ac6bcf2b913e30cf24b6;hpb=8e1d114f1969b19d12afc6ab0b04031e35ae5c88;p=idzebra-moved-to-github.git diff --git a/perl/t/01_base.t b/perl/t/01_base.t index 535d880..85b2191 100644 --- a/perl/t/01_base.t +++ b/perl/t/01_base.t @@ -1,6 +1,6 @@ #!perl -Tw # ============================================================================= -# $Id: 01_base.t,v 1.1 2003-03-03 00:44:39 pop Exp $ +# $Id: 01_base.t,v 1.2 2003-03-04 19:33:53 pop Exp $ # # Perl API header # ============================================================================= @@ -14,7 +14,7 @@ BEGIN { use strict; use warnings; -use Test::More tests => 9; +use Test::More tests=>9; # ---------------------------------------------------------------------------- # Session opening and closing @@ -54,3 +54,4 @@ ok(($sess->group->{databaseName} eq "demo2"),"Record group is selected"); # Close session $sess->close; +