search-xapian/t/symbol-test.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 use Test::More;
   8 BEGIN { plan tests => 3 };
   9
  10 my ($srcdir) = ($0 =~ m!(.*/)!);
  11 chdir("${srcdir}symbol-test") or die $!;
  12
  13 open ARGS, "../../makefile-pl-args" or die $!;
  14 my @args = <ARGS>;
  15 close ARGS;
  16 chomp @args;
  17
  18 # Avoid inheriting values with Search/Xapian path in.
  19 delete $ENV{LD};
  20 delete $ENV{MAKEFLAGS};
  21
  22 system($^X, "Makefile.PL", @args) == 0 or die $!;
  23 system("make 2>&1") == 0 or die $!;
  24
  25 use lib (
  26         # For shared objects when built with uninstalled xapian-core (libtool):
  27         "blib/arch/auto/SymbolTest/.libs",
  28         # For shared objects when built with installed xapian-core (no libtool):
  29         "blib/arch/auto/SymbolTest",
  30         # For .pm files:
  31         "blib/lib"
  32     );
  33
  34 use_ok("SymbolTest");
  35 eval { SymbolTest::throw_from_libxapian() };
  36 like( $@, qr/DatabaseOpeningError caught in SymbolTest/, 'Correct exception caught');
  37
  38 use Search::Xapian qw( :all );
  39
  40 eval { SymbolTest::throw_from_libxapian() };
  41 like( $@, qr/DatabaseOpeningError caught in SymbolTest/, 'Correct exception caught');
  42
  43 1;