Add the original source packages to maemo, source lenny
[dh-make-perl] / dev / i386 / libdevel-symdump-perl / libdevel-symdump-perl-2.08 / t / export.t
1 print "1..2\n";
2
3 use Devel::Symdump::Export "symdump";
4 $x = symdump();
5 if (length($x) > 500){
6         print "ok 1\n";
7 } else {
8         print "not ok 1\n", length($x), ":\n$x\n";
9 }
10
11 if ($x =~ /arrays.*functions.*hashes.*ios.*packages.*scalars.*unknowns/xs){
12         print "ok 2\n";
13 } else {
14         print "not ok 2 $x\n";
15 }
16