From a54cf098f0c0d06bac846eeb715fb11b170b5b79 Mon Sep 17 00:00:00 2001
From: Guilherme Affonso <guilherme.c.affonso@gmail.com>
Date: Mon, 8 Apr 2019 17:04:50 +0900
Subject: [PATCH] Add test init-ratio

---
 test/number.l | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/test/number.l b/test/number.l
index 1dd45d676..1e31c32b6 100644
--- a/test/number.l
+++ b/test/number.l
@@ -45,6 +45,9 @@
   (assert (eq (= 0 -0.0) t)            "(= 0 -0.0) is true.")
   )
 
+(deftest init-ratio
+  (assert (= 1/2 (instance ratio :init 1 2))))
+
 (eval-when (load eval)
   (run-all-tests)
   (exit))