#!perl
use strict;
use Test::More tests => 5;

# a bit less quirky, hopefully squeeze out that heisenbug

sub f00 { }

require_ok('Acme::Magpie::l33t');
Acme::Magpie::l33t->import;

is_deeply( [ sort keys %Acme::Magpie::Nest ],
    ["main::f00"], "Stole main::f00" );

eval { main->f00() };
ok( $@, "f00 really went" );

Acme::Magpie->unimport;
eval { main->f00() };
ok( !$@, "f00 came back" );

ok( 1, "Everything ran" );