1 files changed, 23 insertions, 0 deletions
diff --git a/tests/ii/arithmetic/generate.pl b/tests/ii/arithmetic/generate.pl
new file mode 100644
index 0000000..24236a8
--- /dev/null
+++ b/tests/ii/arithmetic/generate.pl
@@ -0,0 +1,23 @@
+use strict;
+use warnings;
+use FindBin;
+use lib "$FindBin::Bin/..";
+use Random;
+my ($seed, $count) = @ARGV;
+my $rng = Random->new($seed, "arithmetic");
+my @edges = (
+    '9223372036854775807 1',
+    '-9223372036854775808 1',
+    '-9223372036854775808 2',
+    '0 -1',
+    '7 -3',
+    '-7 3',
+    '-7 -3',
+    '1 1',
+);
+$rng->emit($count, \@edges, sub {
+my $a = $rng->integer(-1000000, 1000000);
+my $b = $rng->integer(-1000000, 1000000);
+$b = 1 if $b == 0;
+return "$a $b";
+});