From 072e6de2ed5c11f26b8db5cf1f30ce78b43f7cbc Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Mon, 5 May 2003 22:59:03 +0000
Subject: [PATCH] (-): Add test for negative inum subtract bignum.

---
 test-suite/tests/numbers.test | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/test-suite/tests/numbers.test b/test-suite/tests/numbers.test
index 49949186f..b90eab208 100644
--- a/test-suite/tests/numbers.test
+++ b/test-suite/tests/numbers.test
@@ -1,5 +1,5 @@
 ;;;; numbers.test --- tests guile's numbers     -*- scheme -*-
-;;;; Copyright (C) 2000, 2001 Free Software Foundation, Inc.
+;;;; Copyright (C) 2000, 2001, 2003 Free Software Foundation, Inc.
 ;;;;
 ;;;; This library is free software; you can redistribute it and/or
 ;;;; modify it under the terms of the GNU Lesser General Public
@@ -1609,6 +1609,12 @@
 ;;; -
 ;;;
 
+(with-test-prefix "-"
+
+  (pass-if "-inum - +bignum"
+    (= #x-100000000000000000000000000000001
+       (- -1 #x100000000000000000000000000000000))))
+
 ;;;
 ;;; *
 ;;;