#!/usr/local/bin/perl


	package TopPackage;

	package TopPackage::ModeratePackage;

	package TopPackage::MiddlePackage;

use Test::More tests => 2;
BEGIN { use_ok('Symbol::Table') };

 	my $st_pkg = Symbol::Table->New('PACKAGE', 'TopPackage');

	my %subpackages;

	foreach my $subpkg (keys(%$st_pkg))
		{
		$subpackages{$subpkg}=1;
		}

	my %expected = qw
		(
		ModeratePackage	1
		MiddlePackage	1
		);

	
	is_deeply(\%subpackages,\%expected,"confirm we can see subpackages");