From a8699a58d8632f21e897ea5c4900a15483a9a8ca Mon Sep 17 00:00:00 2001
From: Toby Goodwin <toby@paccrat.org>
Date: Tue, 2 Sep 2014 08:01:39 +0100
Subject: release: rc-1.7.2

---
 random.pl | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 random.pl

(limited to 'random.pl')

diff --git a/random.pl b/random.pl
new file mode 100644
index 0000000..90998d5
--- /dev/null
+++ b/random.pl
@@ -0,0 +1,15 @@
+#! /usr/bin/perl
+
+$count = 10;
+$size = rand(1000);
+
+for ($i = 0; $i < $count; ++$i) {
+    open OUT, "> t$i" or die;
+    for ($j = 0; $j < $size; ++$j) {
+	printf OUT "%c", rand(256);
+    }
+    close OUT;
+    $cmd = "./rc t$i";
+    print $cmd, "\n";
+    system $cmd;
+}
-- 
cgit v1.2.3