The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# -*- Mode: CPerl -*-
# t/01_ini.t; just to load module(s) by using it (them)

$TEST_DIR = './t';
#use lib qw(../blib/lib ../blib/arch); $TEST_DIR = '.'; # for debugging

# load common subs
do "$TEST_DIR/common.plt"
  or die("could not load $TEST_DIR/common.plt");


@modules = qw(Algorithm::BinarySearch::Vec);
plan(test => scalar(@modules)+1);

# 1--N: load submodules (1 subtest/module)
foreach $module (@modules) {
  print "Test 'use $module;'\n";
  ok(eval("require $module;"));
  die("require $module failed: $@") if ($@);
}

no warnings 'once';
ok($Algorithm::BinarySearch::Vec::HAVE_XS);

print "\n";
# end of t/01_ini.t