#!/usr/bin/perl -w use strict; use Test::More tests => 2; use FindBin qw($Bin); use lib "t/lib"; use Person1; delete $INC{'Person1.pm'}; eval { require Person1 }; print $@ if($@); ok(!$@, 'redefine 1'); eval { require Rose::DateTime::Util }; SKIP: { if($@) { skip("datetime tests: could not load Rose::DateTime::Util", 1); } require Person2; delete $INC{'Person2.pm'}; eval { require Person2 }; print $@ if($@); ok(!$@, 'redefine 2'); }