xapian-bindings/perl/t/databasemodified.t

   1 use strict;
   2 # Before 'make install' is performed this script should be runnable with
   3 # 'make test'. After 'make install' it should work as 'perl test.pl'
   4
   5 #########################
   6
   7 # change 'tests => 1' to 'tests => last_test_to_print';
   8
   9 # Make warnings fatal
  10 use warnings;
  11 BEGIN {$SIG{__WARN__} = sub { die "Terminating test due to warning: $_[0]" } };
  12
  13 use Test;
  14 use Devel::Peek;
  15 BEGIN { plan tests => 6 };
  16 use Xapian qw(:standard);
  17 ok(1); # If we made it this far, we're ok.
  18
  19 #########################
  20
  21 # Insert your test code below, the Test module is use()ed here so read
  22 # its man page ( perldoc Test ) for help writing this test script.
  23
  24 # first create database dir, if it doesn't exist;
  25 my $db_dir = 'testdb-exception-modified';
  26
  27 if( (! -e $db_dir) or (! -d $db_dir) ) {
  28   mkdir( $db_dir );
  29 }
  30
  31 opendir( DB_DIR, $db_dir );
  32 while( defined( my $file = readdir( DB_DIR ) ) ) {
  33   next if $file =~ /^\.+$/;
  34   unlink( "$db_dir/$file" ) or die "Could not delete '$db_dir/$file': $!";
  35 }
  36 closedir( DB_DIR );
  37
  38 my $create = Xapian::WritableDatabase->new( $db_dir, Xapian::DB_CREATE );
  39
  40 $create = undef;
  41
  42 my $read = Xapian::Database->new( $db_dir );
  43
  44 my $write = Xapian::WritableDatabase->new( $db_dir, Xapian::DB_CREATE_OR_OPEN );
  45
  46 my $enq = $read->enquire(OP_OR, "test");
  47
  48 # Let's try to index something.
  49 my $term = 'test';
  50
  51 my $docid;
  52 for my $num (1..1000) {
  53   my $doc = Xapian::Document->new();
  54
  55   $doc->set_data( "$term $num" );
  56
  57   $doc->add_posting( $term, 0 );
  58   $doc->add_posting( "$num", 1 );
  59
  60   $doc->add_value(0, "$num");
  61   $write->add_document( $doc );
  62 }
  63 $write->commit();
  64 $read->reopen();
  65
  66 for my $num (qw(three four five)) {
  67   my $doc = Xapian::Document->new();
  68
  69   $doc->set_data( "$term $num" );
  70
  71   $doc->add_posting( $term, 0 );
  72   $doc->add_posting( $num, 1 );
  73
  74   $doc->add_value(0, $num);
  75   $write->add_document( $doc );
  76   $write->commit();
  77 }
  78 $write->commit();
  79 eval {
  80     my $mset = $enq->get_mset(0, 10);
  81 };
  82 ok($@);
  83 ok(ref($@), "Xapian::DatabaseModifiedError", "correct class for exception");
  84 ok($@->isa('Xapian::Error'));
  85
  86 ok($@->get_msg, "The revision being read has been discarded - you should call Xapian::Database::reopen() and retry the operation", "get_msg works");
  87
  88 # WritableDatabase::reopen() is a no-op, but it shouldn't fail.
  89 $write->reopen();
  90 ok(1);
  91
  92 1;