From 000ae3c392a237eeff60a72156f5248866c05b96 Mon Sep 17 00:00:00 2001
From: Simon Brooke <simon@journeyman.cc>
Date: Sat, 19 Jan 2019 10:55:24 +0000
Subject: [PATCH] Not really a unit test, just trying to find where the problem
 is

---
 unit-tests/where-does-it-break.sh | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100755 unit-tests/where-does-it-break.sh

diff --git a/unit-tests/where-does-it-break.sh b/unit-tests/where-does-it-break.sh
new file mode 100755
index 0000000..5c51aca
--- /dev/null
+++ b/unit-tests/where-does-it-break.sh
@@ -0,0 +1,29 @@
+#!/bin/bash
+
+# Not really a unit test, but a check to see where bignum addition breaks
+
+broken=0
+i=1152921506900200000
+# we've already proven we can successfullu get up to here
+increment=10000
+
+while [ $broken -eq "0" ]
+do
+  expr="(+ $i $increment)"
+  # Use sbcl as our reference implementation...
+  expected=`echo "$expr" | sbcl --noinform | grep -v '*'`
+  actual=`echo "$expr" | target/psse | tail -1 | sed 's/\,//g'`
+
+  echo -n "adding $increment to $i: "
+
+  if [ "${expected}" = "${actual}" ]
+  then
+      echo "OK"
+  else
+      echo "Fail: expected '${expected}', got '${actual}'"
+      broken=1
+      exit 1
+  fi
+
+  i=$expected
+done