From 72e96705e75843344f0d0acf17a163ba97178bb5 Mon Sep 17 00:00:00 2001
From: "H.Merijn Brand" <merijn@nb09.procura.nl>
Date: Fri, 26 Sep 2008 10:30:01 +0200
Subject: [PATCH] Generate test data

---
 sandbox/genout.pl | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100755 sandbox/genout.pl

diff --git a/sandbox/genout.pl b/sandbox/genout.pl
new file mode 100755
index 0000000..f04df98
--- /dev/null
+++ b/sandbox/genout.pl
@@ -0,0 +1,36 @@
+#!/pro/bin/perl
+
+use strict;
+use warnings;
+
+BEGIN { unshift @INC, qw( blib/lib blib/arch ) }
+
+use DDumper;
+use Data::Dumper;
+   $Data::Dumper::Sortkeys = 1;
+   $Data::Dumper::Indent   = 1;
+
+my ($use_perlio, $dump_hash) = (@ARGV, 0, 0);
+$dump_hash or $DDumper::has_perlio = $DDumper::has_perlio = $use_perlio;
+
+my $var = "";
+foreach my $ref ("", "\\") {
+    foreach my $in (
+	    'undef', 0, 1,
+	    '""', '"\xa8"', '"ab\x0a\x{20ac}"',
+	    ) {
+	eval "\$var = $ref$in;";
+	my $dump;
+	if ($dump_hash) {
+	    my %hash = DDump  ($var);
+	       $dump = Dumper (\%hash);
+	    }
+	else {
+	       $dump = DDump  ($var);
+	    }
+	$dump =~ s/\b0x[0-9a-f]+\b/0x****/g;
+	$dump =~ s/\bab(\\n|\\12|n)/ab\\n/g;
+	$dump =~ s/\b(REFCNT'?\s+=>?\s*) ('?)[0-9]{4,}\2/$1 $2-1$2/g;
+	print "$ref$in\n--\n$dump==\n";
+	}
+    }
-- 
2.11.4.GIT