Changeset 16640


Ignore:
Timestamp:
Nov 17, 2015, 6:23:00 PM (6 years ago)
Author:
rme
Message:

Add tests for change r16639.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tests/ansi-tests/ccl.lsp

    r16306 r16640  
    19101910      (gethash "a" h))
    19111911  t t)
     1912
     1913(deftest ccl.bug#563
     1914    (= (length (format nil "~8,2e" 0.010009956)) 8)
     1915  t)
     1916
     1917(deftest ccl.bug#1186
     1918    (let ((actual
     1919           (loop for d in '(1 2 3 4 5 6)
     1920                 collect
     1921                 (format nil "~,ve ~,ve" d 1.2345678e-10 d 1.2345678e+10)))
     1922          (desired
     1923           '("1.2E-10 1.2E+10"
     1924             "1.23E-10 1.23E+10"
     1925             "1.235E-10 1.235E+10"
     1926             "1.2346E-10 1.2346E+10"
     1927             "1.23457E-10 1.23457E+10"
     1928             "1.234568E-10 1.234568E+10")))
     1929      (mapcar 'string-equal actual desired))
     1930  (t t t t t t))
     1931
Note: See TracChangeset for help on using the changeset viewer.