ext/DynaLoader/t/XSLoader.t

   1 #!/usr/bin/perl -w
   2
   3 BEGIN {
   4     chdir 't';
   5 #    @INC = '../lib';
   6 }
   7
   8 use Test;
   9 plan tests => 4;
  10
  11 use XSLoader;
  12 ok(1);
  13 ok( ref XSLoader->can('load') );
  14
  15 eval { XSLoader::load(); };
  16 ok( $@ =~ /^XSLoader::load\('Your::Module', \$Your::Module::VERSION\)/ );
  17
  18 package SDBM_File;
  19 XSLoader::load('SDBM_File');
  20 ::ok( ref SDBM_File->can('TIEHASH') );