CLJS-1799: Fix cljs.predicates-test

Author: swannodette

src/test/cljs/cljs/predicates_test.cljs

@@ -1,6 +1,6 @@
 (ns cljs.predicates-test
-  (:require [cljs.test :refer-macros [deftest is]])
-  (:import [goog.math Long]))
+  (:require [cljs.test :as test :refer-macros [deftest is]])
+  (:import [goog.math Long Integer]))
 
 (def pred-val-table
   (let [now (js/Date.)
@@ -32,20 +32,26 @@
 (def int-val-table
   (let [posint 10e10
         negint -10e10
-        natl (goog.math.Long.getZero)
-        posl (goog.math.Long.fromNumber posint)
-        negl (goog.math.Long.fromNumber negint)]
+        natl   (Long.getZero)
+        posl   (Long.fromNumber posint)
+        negl   (Long.fromNumber negint)
+        nati   (Integer.ZERO)
+        posi   (Integer.fromNumber posint)
+        negi   (Integer.fromNumber negint)]
     [[identity  neg?  pos?   integer? int?   neg-int?  pos-int?  nat-int?]
-     [0         false false  true     false  false     false     false    ]
-     [1         false true   true     false  false     false     false    ]
-     [-1        true  false  true     false  false     false     false    ]
-     [1.0       false true   true     false  false     false     false    ]
-     [-1.0      true  false  true     false  false     false     false    ]
-     [posint    false true   true     false  false     false     false    ]
-     [negint    true  false  true     false  false     false     false    ]
+     [0         false false  true     true   false     false     true     ]
+     [1         false true   true     true   false     true      true     ]
+     [-1        true  false  true     true   true      false     false    ]
+     [1.0       false true   true     true   false     true      true     ]
+     [-1.0      true  false  true     true   true      false     false    ]
+     [posint    false true   true     true   false     true      true     ]
+     [negint    true  false  true     true   true      false     false    ]
      [natl      false false  false    true   false     false     true     ]
      [posl      false true   false    true   false     true      true     ]
-     [negl      true  false  false    true   true      false     false    ]]))
+     [negl      true  false  false    true   true      false     false    ]
+     [nati      false false  false    true   false     false     true     ]
+     [posi      false true   false    true   false     true      true     ]
+     [negi      true  false  false    true   true      false     false    ]]))
 
 (deftest test-int-preds
   (let [[preds & rows] int-val-table]

src/test/cljs/test_runner.cljs

@@ -61,6 +61,5 @@
   'cljs.clojure-alias-test
   'cljs.hash-map-test
   'cljs.pprint-test
-  ;; TODO: CLJS-1799
-  #_'cljs.predicates-test
+  'cljs.predicates-test
   'cljs.syntax-quote-test)