xapian-bindings/perl/t/create.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 # Make warnings fatal
   8 use warnings;
   9 BEGIN {$SIG{__WARN__} = sub { die "Terminating test due to warning: $_[0]" } };
  10
  11 use Test::More;
  12 BEGIN { plan tests => 4 };
  13 use Xapian qw(:standard);
  14
  15 ok(1); # If we made it this far, we're ok.
  16
  17 #########################
  18
  19 my $db_dir = 'testdb';
  20
  21 # Delete contents of database dir, if it exists.
  22 if (opendir( DB_DIR, $db_dir )) {
  23   while( defined( my $file = readdir( DB_DIR ) ) ) {
  24     next if $file =~ /^\.+$/;
  25     unlink( "$db_dir/$file" ) or die "Could not delete '$db_dir/$file': $!";
  26   }
  27   closedir( DB_DIR );
  28 }
  29
  30 is( $Xapian::DB_NAMES[Xapian::DB_CREATE], "DB_CREATE" );
  31
  32 my $database;
  33 ok( $database = Xapian::WritableDatabase->new( $db_dir, Xapian::DB_CREATE ) );
  34 ok( $database = Xapian::WritableDatabase->new() );
  35
  36 1;