Untitled

#!/usr/bin/env perl
use strict;
use warnings;
use MultipleWithToolset;
require Devel::Symdump;
use Test::More;

my $obj = Devel::Symdump->rnew('main');
my $package_hash = {};
my @packages_imported = $obj->packages;
$package_hash->{$_} = 1 for @packages_imported;


ok($package_hash->{G39},'G39 package imported');
ok($package_hash->{Foo},'Foo package imported');
ok($package_hash->{Bar},'Bar package imported');

ok(Foo::baz() eq "baz\n"  ,'Foo::baz  returned correctly');
ok(Foo::quux() eq "quux\n",'Foo::quux returned correctly');
ok(Bar::foo() eq "foo\n",  'Bar::foo  returned correctly');

done_testing;