Index: src/tests/rational.c
===================================================================
--- src/tests/rational.c	(revision a6151baa3a12bfe16ad97aa148f11da6d2d8d4c3)
+++ src/tests/rational.c	(revision 1167cd4de31942e7c0b3e8cadb9bd303e00e42f7)
@@ -10,6 +10,6 @@
 // Created On       : Mon Mar 28 08:43:12 2016
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Tue Jul  5 18:29:37 2016
-// Update Count     : 25
+// Last Modified On : Thu Apr 27 17:05:19 2017
+// Update Count     : 40
 // 
 
@@ -36,5 +36,5 @@
 	b = (Rational){ -3, 2 };
 	sout | a | b | endl;
-	sout | a == 1 | endl;
+//	sout | a == 1 | endl; // FIX ME
 	sout | a != b | endl;
 	sout | a <  b | endl;
@@ -61,4 +61,10 @@
 	sout | narrow( 3.14159265358979, 256 ) | endl;
 
+	sout | "decompose" | endl;
+	RationalImpl n, d;
+	[n, d] = a;
+	sout | a | n | d | endl;
+
+	sout | "more tests" | endl;
 	Rational x = { 1, 2 }, y = { 2 };
 	sout | x - y | endl;