--- gforth/test/gforth.fs	2004/12/31 13:24:04	1.5
+++ gforth/test/gforth.fs	2006/10/28 08:44:25	1.11
@@ -1,6 +1,6 @@
 \ test some gforth extension words
 
-\ Copyright (C) 2003,2004 Free Software Foundation, Inc.
+\ Copyright (C) 2003,2004,2005 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -19,7 +19,7 @@
 \ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
 
 require ./tester.fs
-require ./coretest.fs
+decimal
 
 \ f>str-rdp (then f.rdp and f>buf-rdb should also be ok)
 
@@ -42,3 +42,10 @@ decimal
 decimal
 { 'a' -> 97 }
 { 'A  -> 65 }
+{ 1. '1 -> 1. 49 }
+
+\ represent has no trailing 0s even for inf and nan
+
+{  1e 0e f/ pad 16 represent drop 2drop pad 15 + c@ '0 = -> false }
+{  0e 0e f/ pad 16 represent drop 2drop pad 15 + c@ '0 = -> false }
+{ -1e 0e f/ pad 16 represent drop 2drop pad 15 + c@ '0 = -> false }