Add ARM files

[dh-make-perl] / dev / arm / libdevel-symdump-perl / libdevel-symdump-perl-2.08 / t / export.t

diff --git a/dev/arm/libdevel-symdump-perl/libdevel-symdump-perl-2.08/t/export.t b/dev/arm/libdevel-symdump-perl/libdevel-symdump-perl-2.08/t/export.t
new file mode 100644 (file)
index 0000000..9ee4971
--- /dev/null
+++ b/dev/arm/libdevel-symdump-perl/libdevel-symdump-perl-2.08/t/export.t
@@ -0,0 +1,16 @@
+print "1..2\n";
+
+use Devel::Symdump::Export "symdump";
+$x = symdump();
+if (length($x) > 500){
+       print "ok 1\n";
+} else {
+       print "not ok 1\n", length($x), ":\n$x\n";
+}
+
+if ($x =~ /arrays.*functions.*hashes.*ios.*packages.*scalars.*unknowns/xs){
+       print "ok 2\n";
+} else {
+       print "not ok 2 $x\n";
+}
+