Removed Perl API. It's a separate CVS project idzebra-perl now.

[idzebra-moved-to-github.git] / perl / t / 04_cql.t

diff --git a/perl/t/04_cql.t b/perl/t/04_cql.t
deleted file mode 100644 (file)
index ff8e743..0000000
--- a/perl/t/04_cql.t
+++ /dev/null
@@ -1,59 +0,0 @@
-#!perl
-# =============================================================================
-# $Id: 04_cql.t,v 1.3 2004-07-28 08:15:47 adam Exp $
-#
-# Perl API header
-# =============================================================================
-BEGIN {
-    if ($ENV{PERL_CORE}) {
-        chdir 't' if -d 't';
-    }
-    push (@INC,'demo','blib/lib','blib/arch');
-}
-
-use strict;
-use warnings;
-
-use Test::More tests => 7;
-
-# ----------------------------------------------------------------------------
-# Session opening and closing
-BEGIN {
-    use IDZebra;
-    unlink("test04.log");
-    IDZebra::logFile("test04.log");
-    use_ok('IDZebra::Session'); 
-}
-
-
-# ----------------------------------------------------------------------------
-# Session opening and closing
-my $sess = IDZebra::Session->new();
-
-# ----------------------------------------------------------------------------
-# CQL stuff
-$sess->cqlmap('demo/cql.map');
-
-$SIG{__WARN__} = \&catch_warn;
-
-&check_cql($sess, "IDZebra", 0);
-&check_cql($sess, "dc.title=IDZebra", 0);
-&check_cql($sess, "dc.title=(IDZebra and Session)", 0);
-&check_cql($sess, "dc.title=IDZebra and Session)", -1);
-&check_cql($sess, "dc.title='IDZebra::Session'", 0);
-&check_cql($sess, "anything=IDZebra", 16);
-
-sub check_cql {
-    my ($sess, $query, $exp) = @_;
-    my ($rpn, $stat) = $sess->cql2pqf($query);
-    if ($exp) {
-       ok(($stat == $exp), "Wrong query ($stat): '$query'");
-    } else {
-       ok((($stat == 0) && ($rpn ne "")), "Good query query: '$query'");
-    }
-}
-
-
-sub catch_warn {
-    1;
-}