From: pop <pop>
Date: Mon, 3 Mar 2003 00:49:37 +0000 (+0000)
Subject: test.pl removed
X-Git-Tag: ZEBRA.1.3.8~46
X-Git-Url: http://sru.miketaylor.org.uk/cgi-bin?a=commitdiff_plain;h=85d30f28b52160da8d5bb52e3977503f953624cb;p=idzebra-moved-to-github.git

test.pl removed
---

diff --git a/perl/test.pl b/perl/test.pl
deleted file mode 100755
index 9fec1e2..0000000
--- a/perl/test.pl
+++ /dev/null
@@ -1,126 +0,0 @@
-#!/usr/bin/perl
-# =============================================================================
-# $Id: test.pl,v 1.7 2003-02-28 18:38:28 pop Exp $
-#
-# Perl API header
-# =============================================================================
-BEGIN {
-    use Test::More tests => 15;
-    push (@INC,'demo','blib/lib','blib/arch');
-    use_ok('IDZebra::Session'); 
-}
-use pod;
-
-
-IDZebra::logFile("test.log");
-
-#IDZebra::logLevel(15);
-
-IDZebra::init();
-
-# ----------------------------------------------------------------------------
-# Session opening and closing
-my $sess = IDZebra::Session->new(configFile => 'demo/zebra.cfg');
-isa_ok($sess,"IDZebra::Session");
-
-$sess->open();
-ok(defined($sess->{zh}), "Zebra handle opened");
-$sess->close();
-ok(!defined($sess->{zh}), "Zebra handle closed");
-
-
-my $sess = IDZebra::Session->open(configFile => 'demo/zebra.cfg',
-				  groupName  => 'demo1');
-isa_ok($sess,"IDZebra::Session");
-ok(defined($sess->{zh}), "Zebra handle opened");
-#use IDZebra::Repository;
-
-# ----------------------------------------------------------------------------
-# Record group tests
-
-ok(($sess->group->{databaseName} eq "demo1"),"Record group is selected");
-
-$sess->group(groupName => 'demo2');
-
-ok(($sess->group->{databaseName} eq "demo2"),"Record group is selected");
-
-# ----------------------------------------------------------------------------
-# init repository
-$sess->init();
-
-# ----------------------------------------------------------------------------
-# repository upadte
-
-our $filecount = 5;
-
-$sess->begin_trans;
-$sess->update(path      =>  'lib');
-my $stat = $sess->end_trans;
-
-ok(($stat->{inserted} == $filecount), 
-   "Inserted $stat->{inserted}/$filecount records");
-
-$sess->begin_trans;
-$sess->update(groupName => 'demo1',
-	      path      =>  'lib');
-
-my $stat = $sess->end_trans;
-ok(($stat->{inserted} == $filecount), 
-   "Inserted $stat->{inserted}/$filecount records");
-
-$sess->begin_trans;
-$sess->delete(groupName => 'demo1',
-	      path      =>  'lib');
-my $stat = $sess->end_trans;
-ok(($stat->{deleted} == $filecount), 
-   "Deleted $stat->{deleted}/$filecount records");
-
-$sess->begin_trans;
-$sess->update(groupName => 'demo1',
-	      path      =>  'lib');
-
-my $stat = $sess->end_trans;
-ok(($stat->{inserted} == $filecount), 
-   "Inserted $stat->{inserted}/$filecount records");
-
-ok(($sess->group->{databaseName} eq "demo2"),"Original group is selected");
-
-# ----------------------------------------------------------------------------
-# per record update
-my $rec1=`cat lib/IDZebra/Data1.pm`;
-my $rec2=`cat lib/IDZebra/Filter.pm`;
-
-$sess->begin_trans;
-my $s1=$sess->update_record(data       => $rec2,
-			    recordType => 'grs.perl.pod',
-			    groupName  => "demo1",
-			    );
-my $stat = $sess->end_trans;
-ok(($stat->{updated} == 1), "Updated 1 records");
-
-# ----------------------------------------------------------------------------
-# search
-$sess->databases('demo2');
-#$sess->begin_read;
-my $rs1 = $sess->search(cqlmap    => 'demo/cql.map',
-			cql       => 'IDZebra',
-			databases => [qw(demo1 demo2)]);
-
-print STDERR "$rs1->{recordCount} hits.\n";
-
-#my $s2=$sess->update_record(data       => $rec2);
-#					recordType => "grs.perl.pod");
-
-
-#my $s3=$sess->update_record(file       => "lib/IDZebra/Data1.pm");
-
-
-
-#$sess->cqlmap("cql.map");
-#print STDERR $sess->cql2pqf("job.id <= 5");
-#print STDERR $sess->cql2pqf("job.id=5 and dc.title=computer");
-#print STDERR "RES:$res\n";
-
-$sess->close;
-ok(!defined($sess->{zh}), "Zebra handle closed");
-