Blame t/export.t

Packit b48d6e
print "1..2\n";
Packit b48d6e
Packit b48d6e
use Devel::Symdump::Export "symdump";
Packit b48d6e
$x = symdump();
Packit b48d6e
if (length($x) > 500){
Packit b48d6e
	print "ok 1\n";
Packit b48d6e
} else {
Packit b48d6e
	print "not ok 1\n", length($x), ":\n$x\n";
Packit b48d6e
}
Packit b48d6e
Packit b48d6e
if ($x =~ /arrays.*functions.*hashes.*ios.*packages.*scalars.*unknowns/xs){
Packit b48d6e
	print "ok 2\n";
Packit b48d6e
} else {
Packit b48d6e
	print "not ok 2 $x\n";
Packit b48d6e
}
Packit b48d6e