projects
/
dh-make-perl
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
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