From 110187f80887a514bdbe8ffa9f39908baf980674 Mon Sep 17 00:00:00 2001
From: mgcaret <mgcaret@users.noreply.github.com>
Date: Fri, 13 Mar 2020 22:24:56 -0700
Subject: [PATCH] move some tests to the correct suite

---
 test/7.3.4.fs | 16 ----------------
 test/7.3.5.fs | 17 +++++++++++++++++
 2 files changed, 17 insertions(+), 16 deletions(-)

diff --git a/test/7.3.4.fs b/test/7.3.4.fs
index fd6e721..47c5962 100644
--- a/test/7.3.4.fs
+++ b/test/7.3.4.fs
@@ -11,22 +11,6 @@ t{ parse-word test swap 0> -> 4 true }t
 t{ source 0> swap 0> -> true true }t
 t{ bl word test count swap 0> -> 4 true }t
 
-\ IEEE 1275-1994 number input
-
-\ first make sure >number (ANS word) works
-t{ 0 s>d s" 123" >number nip -> 123 0 0 }t
-t{ 0 s>d s" 123?456" >number nip -> 123 0 4 }t
-
-t{ 1,234,567 -> 1234567 }t
-t{ 1.234.567 -> 1234567 }t
-t{ 1234567. -> 1234567 s>d }t
-t{ -1234567. -> -1234567 s>d }t
-
-\ Things that should fail
-t{ s" 123," ' eval catch >r clear r> -> -d }t
-t{ s" ,123" ' eval catch >r clear r> -> -d }t
-t{ s" .123" ' eval catch >r clear r> -> -d }t
-
 testing 7.3.4.2 Console input
 
 \ covers: \
diff --git a/test/7.3.5.fs b/test/7.3.5.fs
index b3fba02..8b46b4d 100644
--- a/test/7.3.5.fs
+++ b/test/7.3.5.fs
@@ -9,6 +9,23 @@ testing 7.3.5.2 Numeric input
 
 hex
 
+\ IEEE 1275-1994 number input
+
+\ first make sure >number (ANS word) works
+t{ 0 s>d s" 123" >number nip -> 123 0 0 }t
+t{ 0 s>d s" 123?456" >number nip -> 123 0 4 }t
+
+t{ 1,234,567 -> 1234567 }t
+t{ 1.234.567 -> 1234567 }t
+t{ 1234567. -> 1234567 s>d }t
+t{ -1234567. -> -1234567 s>d }t
+
+\ Things that should fail
+t{ s" 123," ' eval catch >r clear r> -> -d }t
+t{ s" ,123" ' eval catch >r clear r> -> -d }t
+t{ s" .123" ' eval catch >r clear r> -> -d }t
+
+
 t{ s" 123" $number -> 123 false }t
 t{ s" $xyz" $number -> true }t