mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-12-06 16:48:08 +00:00
Code Issues 1 Releases Wiki Activity

Better roundtrip jdn.

Browse Source 
Use the most precise format specifier, such that output jdn numbers
are more accurate.
This commit is contained in:
Calvin Rose
2020-06-18 21:52:20 -05:00
parent 9cfc3d9d37
commit 5c364e0f7c
5 changed files with 27 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
test/suite8.janet
View File

@@ -307,4 +307,16 @@ neldb\0\0\0\xD8\x05printG\x01\0\xDE\xDE\xDE'\x03\0marshal_tes/\x02
(assert (:match peg5 "abcabcabcac") "repeat alias 2")
(assert (not (:match peg5 "abcabc")) "repeat alias 3")
(defn check-jdn [x]
(assert (deep= (parse (string/format "%j" x)) x) "round trip jdn"))
(check-jdn 0)
(check-jdn nil)
(check-jdn [])
(check-jdn @[[] [] 1231 9.123123 -123123 0.1231231230001])
(check-jdn -0.123123123123)
(check-jdn 12837192371923)
(check-jdn "a string")
(check-jdn @"a buffer")
(end-suite)