Add ARM files

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

diff --git a/dev/arm/libdevel-symdump-perl/libdevel-symdump-perl-2.08/t/diff.t b/dev/arm/libdevel-symdump-perl/libdevel-symdump-perl-2.08/t/diff.t
new file mode 100644 (file)
index 0000000..63f3b08
--- /dev/null
+++ b/dev/arm/libdevel-symdump-perl/libdevel-symdump-perl-2.08/t/diff.t
@@ -0,0 +1,72 @@
+#!/usr/bin/perl -w
+
+use lib 'lib' ;
+
+use Devel::Symdump ();
+BEGIN {
+    $SIG{__WARN__}=sub {return "" if $_[0] =~ /used only once/; print @_;};
+}
+
+print "1..1\n";
+
+$scalar = 1;
+@array  = 1;
+%hash   = (A=>B);
+%package::hash = (A=>B);
+sub package::function {}
+open FH, ">/dev/null";
+opendir DH, ".";
+
+my $a = Devel::Symdump->rnew;
+
+my($eval) = <<'END';
+$scalar2 = 1;
+undef @array;
+undef %hash;
+%hash2 = (A=>B);
+$package2::scalar3 = 3;
+close FH;
+closedir DH;
+END
+
+eval $eval;
+
+my $b = Devel::Symdump->rnew;
+
+# testing diff is too difficult at the stage between 5.003 and 5.004
+# we have new variables and new methods to determine them. Both have
+# an impact on diff, so we're backing out this test and always say ok
+
+if ( 1 || $a->diff($b) eq 'arrays
+- main::array
+dirhandles
+- main::DH
+filehandles
+- main::FH
+hashes
+- main::hash
++ main::hash2
+packages
++ package2
+scalars
++ main::scalar2
++ package2::scalar3
+unknowns
++ main::DH
++ main::FH
++ main::array
++ main::hash'
+){
+    print "ok 1\n";
+} else {
+    print "not ok:
+a
+-
+", $a->as_string, "
+b
+-
+", $b->as_string, "
+diff
+----
+", $a->diff($b), "\n";
+}