From bba260549decd811a3a3c55b00c503d7035a3a20 Mon Sep 17 00:00:00 2001
From: mdw <mdw>
Date: Sun, 14 Nov 1999 13:54:27 +0000
Subject: [PATCH] Replaced by more portable AWK version.

---
 tests/mpx-gen.pl | 40 ----------------------------------------
 1 file changed, 40 deletions(-)
 delete mode 100755 tests/mpx-gen.pl

diff --git a/tests/mpx-gen.pl b/tests/mpx-gen.pl
deleted file mode 100755
index 6e53730..0000000
--- a/tests/mpx-gen.pl
+++ /dev/null
@@ -1,40 +0,0 @@
-#! /usr/bin/perl
-
-$len = shift || 32;
-$op = shift || "+";
-
-sub r {
-  my $l = shift || $len;
-  my $i;
-  my $s;
-  for ($i = 0; $i < $l; $i++) {
-    my $x = rand(256);
-    $s .= sprintf("%02x", $x);
-  }
-  return $s;
-}
-
-$| = 1;
-open(BC, "|bc | tr A-Z a-z") or die;
-print BC "obase=16\nibase=16\n";
-$x = r();
-if ($op eq "<<" || $op eq ">>") {
-  $y = int(rand($len * 4)) + int(rand($len * 4));
-  $op = ($op eq "<<" ? "*" : "/");
-  $z = sprintf("%x", $y);
-  print "$x $y\n";
-  print BC "\U$x $op (2^$z)\n";
-} elsif ($op eq "/") {
-  $ylen = int(rand($len)) + 1;
-  $y = r($ylen);
-  print "$x\n$y\n";
-  print BC "\U$x / $y\n$x % $y\n";
-} elsif ($op eq "2") {
-  print "$x\n";
-  print BC "\U$x * $x\n";
-} else {
-  $y = r();
-  print "$x\n$y\n";
-  print BC "\U$x $op $y\n";
-}
-close(BC);
-- 
2.11.0