diff options
| author | Tom Faulhaber <git_net@infolace.com> | 2010-05-01 00:01:13 -0700 |
|---|---|---|
| committer | Tom Faulhaber <git_net@infolace.com> | 2010-05-01 00:01:13 -0700 |
| commit | 912e5671cc8237addf55753ff524bf283830e684 (patch) | |
| tree | 2c010ca682d15e7aa1aa8e378ed5673ea5bb0c8b /src/test/clojure/clojure/contrib | |
| parent | 661dcfde7965c3e6650d169afca4a20ef146c940 (diff) | |
clojure.contrib.pprint (cl-format): Fixes to rounding and width issues in ~f and ~$. See #47.
Diffstat (limited to 'src/test/clojure/clojure/contrib')
| -rw-r--r-- | src/test/clojure/clojure/contrib/pprint/test_cl_format.clj | 25 |
1 files changed, 23 insertions, 2 deletions
diff --git a/src/test/clojure/clojure/contrib/pprint/test_cl_format.clj b/src/test/clojure/clojure/contrib/pprint/test_cl_format.clj index c1c997fd..4022e5e3 100644 --- a/src/test/clojure/clojure/contrib/pprint/test_cl_format.clj +++ b/src/test/clojure/clojure/contrib/pprint/test_cl_format.clj @@ -194,10 +194,31 @@ (cl-format nil "~1,1,6$" 0.001) " 0.0" (cl-format nil "~1,1,6$" 0.0015) " 0.0" (cl-format nil "~2,1,6$" 0.005) " 0.01" - (cl-format nil "~2,1,6$" 0.01) " 0.01") + (cl-format nil "~2,1,6$" 0.01) " 0.01" + (cl-format nil "~$" 0.099) "0.10" + (cl-format nil "~1$" 0.099) "0.1" + (cl-format nil "~1$" 0.1) "0.1" + (cl-format nil "~1$" 0.99) "1.0" + (cl-format nil "~1$" -0.99) "-1.0") (simple-tests f-tests - (cl-format nil "~,1f" -12.0) "-12.0") + (cl-format nil "~,1f" -12.0) "-12.0" + (cl-format nil "~,0f" 9.4) "9." + (cl-format nil "~,0f" 9.5) "10." + (cl-format nil "~,0f" -0.99) "-1." + (cl-format nil "~,1f" -0.99) "-1.0" + (cl-format nil "~,2f" -0.99) "-0.99" + (cl-format nil "~,3f" -0.99) "-0.990" + (cl-format nil "~,0f" 0.99) "1." + (cl-format nil "~,1f" 0.99) "1.0" + (cl-format nil "~,2f" 0.99) "0.99" + (cl-format nil "~,3f" 0.99) "0.990" + (cl-format nil "~f" -1) "-1.0" + (cl-format nil "~2f" -1) "-1." + (cl-format nil "~3f" -1) "-1." + (cl-format nil "~4f" -1) "-1.0" + (cl-format nil "~8f" -1) " -1.0" + (cl-format nil "~1,1f" 0.1) ".1") (simple-tests ampersand-tests (cl-format nil "The quick brown ~a jumped over ~d lazy dogs" 'elephant 5) |