#! /usr/bin/perl
use strict;
use warnings;
use Test::More tests => 2;
use File::Redirect qw(mount);
mount( 'Simple', { '/Foo.pm' => 'package Foo; sub foo { 42 }; 1' }, 'redirect:');
use lib qw(redirect:);
require Foo;
ok(1, 'require');
ok(42 == Foo::foo(), 'compiled');