ext/DynaLoader/t/XSLoader.t

   1 #!./perl -w
   2
   3 BEGIN {
   4     chdir 't' if -d 't';
   5     @INC = '../lib';
   6     require Config; import Config;
   7     if (($Config{'extensions'} !~ /\bSDBM_File\b/) && ($^O ne 'VMS')){
   8         print "1..0 # Skip: no SDBM_File\n";
   9         exit 0;
  10     }
  11 }
  12
  13 use Test;
  14 plan tests => 4;
  15
  16 use XSLoader;
  17 ok(1);
  18 ok( ref XSLoader->can('load') );
  19
  20 eval { XSLoader::load(); };
  21 ok( $@ =~ /^XSLoader::load\('Your::Module', \$Your::Module::VERSION\)/ );
  22
  23 package SDBM_File;
  24 XSLoader::load('SDBM_File');
  25 ::ok( ref SDBM_File->can('TIEHASH') );