[Oorexx-svn] SF.net SVN: oorexx-code-0:[11186] test/trunk/ooRexx/base

[<eri...@us...>]

Revision: 11186
          http://sourceforge.net/p/oorexx/code-0/11186
Author:   erich_st
Date:     2017-01-11 18:27:22 +0000 (Wed, 11 Jan 2017)
Log Message:
-----------
add tests for [bugs:#1415] Incorrect FORMAT() BIF/method output

Modified Paths:
--------------
    test/trunk/ooRexx/base/bif/FORMAT.testGroup
    test/trunk/ooRexx/base/class/String/format.testGroup

Modified: test/trunk/ooRexx/base/bif/FORMAT.testGroup
===================================================================
--- test/trunk/ooRexx/base/bif/FORMAT.testGroup	2017-01-11 18:25:57 UTC (rev 11185)
+++ test/trunk/ooRexx/base/bif/FORMAT.testGroup	2017-01-11 18:27:22 UTC (rev 11186)
@@ -2707,4 +2707,15 @@
     self~assertSame('12345.73', FORMAT('12345.73', , ,3,6))
     self~assertSame('123456700000.000', FORMAT('1234567e5', ,3,0))
 
+-- tests for the NumberString case digitsCount = -numberExponent
+-- with unspecified digits width
+-- e. g. 0.1~format(, 1) should be 0.1, not .1
+::method test_format_bug_1415
 
+  do d = 1 to 20
+    if d > digits() then
+      numeric digits d
+    v = "0." || 1~copies(d)
+    self~assertSame(v, format(v, , d))
+  end
+

Modified: test/trunk/ooRexx/base/class/String/format.testGroup
===================================================================
--- test/trunk/ooRexx/base/class/String/format.testGroup	2017-01-11 18:25:57 UTC (rev 11185)
+++ test/trunk/ooRexx/base/class/String/format.testGroup	2017-01-11 18:27:22 UTC (rev 11186)
@@ -2689,5 +2689,15 @@
     self~assertSame('12345.73', '12345.73'~format( , ,3,6))
     self~assertSame('123456700000.000', '1234567e5'~format( ,3,0))
 
+-- tests for the NumberString case digitsCount = -numberExponent
+-- with unspecified digits width
+-- e. g. 0.1~format(, 1) should be 0.1, not .1
+::method test_format_bug_1415
 
+  do d = 1 to 20
+    if d > digits() then
+      numeric digits d
+    v = "0." || 1~copies(d)
+    self~assertSame(v, v~format(, d))
+  end