#!perl
# =============================================================================
-# $Id: 07_sort.t,v 1.1 2003-03-03 18:27:25 pop Exp $
+# $Id: 07_sort.t,v 1.3 2004-09-15 14:11:06 heikki Exp $
#
# Perl API header
# =============================================================================
use strict;
use warnings;
-use Test::More tests => 14;
+use Test::More tests => 24;
# ----------------------------------------------------------------------------
# Session opening and closing
BEGIN {
use IDZebra;
- IDZebra::logFile("test.log");
+ unlink("test07.log");
+ IDZebra::logFile("test07.log");
+# IDZebra::logLevel(0x4F);
# IDZebra::logLevel(15);
use_ok('IDZebra::Session');
use_ok('pod');
my $sess = IDZebra::Session->open(configFile => 'demo/zebra.cfg',
groupName => 'demo2');
# ----------------------------------------------------------------------------
-# search
+# Insert some test data
+my $ret;
+my $sysno;
+my $F;
+my $filecount=0;
+$sess->init;
+$sess->begin_trans;
+$sess->databases('demo1', 'demo2');
+$ret=$sess->end_trans;
+
+$sess->begin_trans;
+for $F (<lib/IDZebra/*.pm>)
+{
+ ($ret,$sysno)=$sess->insert_record (file=>$F, recordType => 'grs.perl.pod');
+ ok( $ret==0, "inserted $F");
+ #print STDERR "Inserted $F ok. ret=$ret sys=$sysno\n";
+ $filecount++;
+}
+$ret=$sess->end_trans;
+ok($filecount>0,"Inserted files");
+is($ret->{inserted},$filecount, "Inserted all");
+
# -----------------------------------------------------------------------------
# Search 1 database, retrieve records, sort "titles" locally (dangerous!)
# -----------------------------------------------------------------------------
# Sort descending, new rs
+TODO: {
+ todo_skip "Sort into different rset crashes", 3;
+print STDERR "\nSort #4: $rs1\n";
my $rs2 = $rs1->sort('1=4 id');
+print STDERR "\nSort #5: $rs1\n";
isa_ok ($rs2, 'IDZebra::Resultset');
ok (($wasError == 0), "retrieval");
ok (($sortError == 0), "sorting descending");
+} # end of SKIP
+
# -----------------------------------------------------------------------------
# Search + sort ascending
my $rs3 = $sess->search(cql => 'IDZebra',