#!/usr/bin/perl -w ## Before 'make install' is performed this script should be runnable with # 'make test'. After 'make install' it should work as 'perl t09.t' ######################### use strict; use warnings; { package one; our $VERSION='0.0.5'; use mem; our @EXPORT; use mem(@EXPORT=qw(expone)); sub expone() {"oneok"} use Xporter; 1} { package two; our $VERSION='0.1.1'; use mem; our @EXPORT; use mem(@EXPORT=qw(exptwo)); sub exptwo() {"twook"} use Xporter; 1} #...(but with 10 cases not shown) package main; use Test::More; my $res1 = eval "use one '0.1.1'; expone;"; ok(!defined($res1), "undef for res1: wanted ver '0.1.1' from ver '0.0.5'"); my $res2 = eval "use two '0.0.5'; exptwo;"; ok($res2 eq "twook", "got answer w/min '0.0.5' from ver '0.1.1'"); #...(same comment as above) done_testing(); # vim: ts=2 sw=2 ai number foldcolumn=1