Add ARM files

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

diff --git a/dev/arm/libdevel-symdump-perl/libdevel-symdump-perl-2.08/t/tree.t b/dev/arm/libdevel-symdump-perl/libdevel-symdump-perl-2.08/t/tree.t
new file mode 100644 (file)
index 0000000..b97ebc4
--- /dev/null
+++ b/dev/arm/libdevel-symdump-perl/libdevel-symdump-perl-2.08/t/tree.t
@@ -0,0 +1,28 @@
+#!/usr/bin/perl -w
+
+# tree.t
+
+use Devel::Symdump;
+
+package Coffee;
+@ISA = qw(Liquid Black);
+
+package Liquid;
+package Black;
+
+package Martini;
+@ISA = qw(Liquid);
+
+package Martini::White;
+@ISA = qw(Martini);
+package Martini::Red;
+@ISA = qw(Martini);
+
+print "1..2\n";
+my @s = split /\n/, Devel::Symdump->isa_tree;
+print @s >= 11 ? "ok 1\n" : "not ok [@s]\n";
+@s = split /\n/, Devel::Symdump->inh_tree;
+print @s >= 9 ? "ok 2\n" : "not ok [@s]\n";
+
+# The tests are testing with the > operator, because we never know where
+# Exporter and Carp (and others) are developing into.