diff options
| author | Tom Faulhaber <git_net@infolace.com> | 2009-07-05 09:19:51 -0700 |
|---|---|---|
| committer | Tom Faulhaber <git_net@infolace.com> | 2009-07-05 09:19:51 -0700 |
| commit | d6e7b65cdc0b9432b0b13215ac5ccf2e2ef81631 (patch) | |
| tree | e53327fc35375518e10738bc3ec8007e972d73d7 /src/clojure/contrib/test_contrib | |
| parent | 02b4ae1309c09b25d06210796bd60680f2a95114 (diff) | |
Handle 0 correctly in non-java-supported bases
Diffstat (limited to 'src/clojure/contrib/test_contrib')
| -rw-r--r-- | src/clojure/contrib/test_contrib/pprint/cl_format.clj | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/clojure/contrib/test_contrib/pprint/cl_format.clj b/src/clojure/contrib/test_contrib/pprint/cl_format.clj index b101b92b..2ddaff76 100644 --- a/src/clojure/contrib/test_contrib/pprint/cl_format.clj +++ b/src/clojure/contrib/test_contrib/pprint/cl_format.clj @@ -33,6 +33,10 @@ (cl-format nil "~D" 'fred) "fred" ) +(simple-tests base-tests + (cl-format nil "~{~2r~^ ~}~%" (range 10)) + "0 1 10 11 100 101 110 111 1000 1001\n") + (simple-tests cardinal-tests (cl-format nil "~R" 0) "zero" (cl-format nil "~R" 4) "four" |