xapian-bindings/perl/t/exception.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 => 4 };
  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';
  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 $database;
  39 ok( $database = Xapian::WritableDatabase->new( $db_dir, Xapian::DB_CREATE ) );
  40 eval {
  41   # this should work
  42   my $other_database = Xapian::Database->new( $db_dir );
  43 };
  44 ok( !$@ );
  45 eval {
  46   # should fail because database is already locked
  47   my $other_database = Xapian::WritableDatabase->new( $db_dir, Xapian::DB_CREATE );
  48 };
  49 ok( $@ );
  50
  51 1;