Port double (jank-lang#583)

* Port `double`

* Run the `double?` Clojure test suite test

* Disable `double` test case

Blocked by
jank-lang/clojure-test-suite#790 (comment).

* Repoint Clojure test suite

Author: shantanu-sardesai

compiler+runtime/src/jank/clojure/core.jank

@@ -5352,8 +5352,7 @@
 (defn double
   "Coerce to double"
   [#_Number x]
-  ;; (clojure.lang.RT/doubleCast x)
-  (throw "TODO: port double"))
+  (cpp/jank.runtime.to_real x))
 
 (defn short
   "Coerce to short"

compiler+runtime/test/bash/clojure-test-suite/clojure-test-suite

@@ -23,30 +23,30 @@
     ;clojure.core-test.bit-shift-right  ; invalid object type: 0
     ;clojure.core-test.bit-test ; Uncaught exception: invalid object type: 0
     ;clojure.core-test.bit-xor ; Uncaught exception: invalid object type: 0
-    ;clojure.core-test.boolean ; TODO: port double, Expecting whitespace after the last token. due to M.
+    clojure.core-test.boolean
     ;clojure.core-test.bound-fn ; TODO: port future
     ;clojure.core-test.bound-fn-star ; TODO: port future
     clojure.core-test.butlast
     ;clojure.core-test.byte ; TODO: port byte, Expecting whitespace after the last token. due to M.
     ;clojure.core-test.char ; TODO: port char
-    ;clojure.core-test.char-qmark ; TODO: port double, Read error (405 - 423): number out of rangeExpecting whitespace after the last token. due to M.
+    clojure.core-test.char-qmark
     ;clojure.core-test.compare ; Uncaught exception: not comparable: []
     clojure.core-test.conj
     ;clojure.core-test.count ;https://github.com/jank-lang/jank/issues/244
     ;clojure.core-test.dec ; TODO underflow \n Uncaught exception: failed
     clojure.core-test.decimal-qmark
     ;clojure.core-test.denominator ; Failed a test. Expecting whitespace after the last token. due to M.
-    ;clojure.core-test.double ; TODO: port double, Expecting whitespace after the last token. due to M.
-    ;clojure.core-test.double-qmark ; TODO: port double, Expecting whitespace after the last token. due to M.
+    ;clojure.core-test.double
+    clojure.core-test.double-qmark
     ;clojure.core-test.drop ; Uncaught exception: not a number: nil, https://github.com/jank-lang/jank/issues/243 , https://github.com/jank-lang/jank/issues/245
     ;clojure.core-test.drop-last ; Uncaught exception: not a number: nil, https://github.com/jank-lang/jank/issues/244
     ;clojure.core-test.drop-while ; Assertion failed! val.is_some(), In clojure.core-test.drop-while$fn_8-90, duplicate definition of symbol '_fn_55_1', https://github.com/jank-lang/jank/issues/243 , https://github.com/jank-lang/jank/issues/212
     ;clojure.core-test.empty ; expected: (= (quote ()) (empty (range))) actual: (not (= () nil))
     ;clojure.core-test.even-qmark ; Uncaught exception: invalid object type: 3, Expecting whitespace after the last token. due to M.
-    ;clojure.core-test.false-qmark ; TODO: port double, Expecting whitespace after the last token. due to M.
+    clojure.core-test.false-qmark
     clojure.core-test.first ; In clojure.core-test.first$fn_2-61, duplicate definition of symbol '_jank_global_init_60'
     ;clojure.core-test.float ; Failed a test. Expecting whitespace after the last token. due to M.
-    ;clojure.core-test.float-qmark ; TODO: port double, Expecting whitespace after the last token. due to M.
+    clojure.core-test.float-qmark
     ;clojure.core-test.fnil  ; Assertion failed! ret, unloadable.
     ;clojure.core-test.format ;TODO: port format
     ;clojure.core-test.get ; Assertion failed! ret, unloadable.
@@ -114,15 +114,15 @@
     ;clojure.core-test.star ; error: Unable to resolve symbol 'Exception'.
     ;clojure.core-test.star-squote ; error: Unable to resolve symbol 'clojure.lang.BigInt'.
     ;clojure.core-test.str ; TODO: port double, Expecting whitespace after the last token. due to M.
-    ;clojure.core-test.string-qmark ; TODO: port double, Expecting whitespace after the last token. due to M.
+    clojure.core-test.string-qmark
     ;clojure.core-test.subs ; Uncaught exception: end index 1 is less than start 2, In clojure.core-test.subs$fn_2-70, duplicate definition of symbol '_fn_2_0', https://github.com/jank-lang/jank/issues/244
     ;clojure.core-test.symbol  ; Read error (1409 - 1414): invalid ratio: expecting an integer denominator
     clojure.core-test.symbol-qmark ; Expecting whitespace after the last token. due to M.
     ;clojure.core-test.take ; Uncaught exception: not a number: nil, In clojure.core-test.take$fn_2-57, duplicate definition of symbol '_fn_2_0', https://github.com/jank-lang/jank/issues/245 , https://github.com/jank-lang/jank/issues/243
     ;clojure.core-test.take-last ; Uncaught exception: not a number: nil, In clojure.core-test.take-last$fn_2-43, duplicate definition of symbol '_fn_2_0', https://github.com/jank-lang/jank/issues/243 , https://github.com/jank-lang/jank/issues/244
     ;clojure.core-test.take-while ; Uncaught exception: invalid call with 1 arg to: nil, In clojure.core-test.take-while$fn_2-86, duplicate definition of symbol '_fn_2_0', https://github.com/jank-lang/jank/issues/243
     ;clojure.core-test.taps ; Read error (0 - 0): unbound symbol: clojure.lang.IPending
-    ;clojure.core-test.true-qmark ; TODO: port double, Expecting whitespace after the last token. due to M.
+    clojure.core-test.true-qmark
     ;clojure.core-test.unsigned-bit-shift-right ; Uncaught exception: invalid object type: 0, In clojure.core-test.unsigned-bit-shift-right$fn_2-37, duplicate definition of symbol '_jank_global_init_36', Exception: invalid object type: 0
     ;clojure.core-test.with-out-str ; Exception: TODO: port with-out-str
     ;clojure.core-test.with-precision ; TODO: port with-precision, Read error (372 - 374): invalid number: chars 'M' are invalid for radix 10