use Test::More tests => 2;

for (1 .. 2) {
    eval "require Foo" or delete $INC{'Foo.pm'};
    ok( $@, "Saw error loading Foo" );
}
__END__
ok 1 - Saw error loading Foo
ok 2 - Saw error loading Foo