2 # =============================================================================
3 # $Id: 07_sort.CRASH.t,v 1.1 2004-09-15 14:11:06 heikki Exp $
6 # =============================================================================
11 push (@INC,'demo','blib/lib','blib/arch');
17 use Test::More skip_all =>"sort into a new rset crashes due to rset_dup bug";
18 #use Test::More tests => 13;
20 # ----------------------------------------------------------------------------
21 # Session opening and closing
25 IDZebra::logFile("test07.log");
26 # IDZebra::logLevel(0x4F);
27 # IDZebra::logLevel(15);
28 use_ok('IDZebra::Session');
33 # ----------------------------------------------------------------------------
34 # Session opening and closing
35 my $sess = IDZebra::Session->open(configFile => 'demo/zebra.cfg',
36 groupName => 'demo2');
37 # ----------------------------------------------------------------------------
38 # Insert some test data
45 $sess->databases('demo1', 'demo2');
46 $ret=$sess->end_trans;
49 for $F (<lib/IDZebra/*.pm>)
51 ($ret,$sysno)=$sess->insert_record (file=>$F, recordType => 'grs.perl.pod');
52 ok( $ret==0, "inserted $F");
53 #print STDERR "Inserted $F ok. ret=$ret sys=$sysno\n";
56 $ret=$sess->end_trans;
57 ok($filecount>0,"Inserted files");
58 is($ret->{inserted},$filecount, "Inserted all");
61 # -----------------------------------------------------------------------------
62 # Search 1 database, retrieve records, sort "titles" locally (dangerous!)
64 my $rs1 = $sess->search(cqlmap => 'demo/cql.map',
66 databases => [qw(demo1)]);
67 $rs1 = $rs1->sort('1=4 id');
69 # -----------------------------------------------------------------------------
70 # Sort descending, new rs
72 my $rs2 = $rs1->sort('1=4 id');
74 isa_ok ($rs2, 'IDZebra::Resultset');
76 # ----------------------------------------------------------------------------