Add unicode char tests (#904)

* Add unicode char tests

* Fix comment

Author: E-A-Griffin

test/clojure/core_test/char.cljc

@@ -1,5 +1,5 @@
 (ns clojure.core-test.char
-  (:require [clojure.test :as t :refer [are deftest is]]
+  (:require [clojure.test :as t :refer [are deftest is testing]]
             [clojure.core-test.portability #?(:cljs :refer-macros :default :refer) [when-var-exists] :as p]))
 
 (when-var-exists char
@@ -9,9 +9,18 @@
      \space 32
      \@     64
      \A     65
-     \A     \A
-     ;; TODO: Add Unicode tests
-     )
+     \A     \A)
+   (testing "unicode"
+     (testing "2 byte characters are valid"
+       (is (= \¡ (char 161))))
+     (testing "3 byte characters are valid"
+       (is (= \ষ (char 2487))))
+     (testing "4+ byte characters throw"
+       (is #?(:jank    (= (first "𐅦") (char 65895))
+              ;; this seems to be an off by one error
+              :lpy     (= (first "𐅧") (char 65895))
+              :cljs    (= \ŧ (char 65895))
+              :default (p/thrown? (char 65895))))))
 
    #?(:cljs nil :default (is (p/thrown? (char -1))))
    (is (p/thrown? (char nil)))))

test/clojure/core_test/concat.cljc

@@ -7,8 +7,10 @@
     (testing "arity 0"
       ;; returns an unrealized, empty lazy seq
       (let [s (concat)]
-        (is (p/lazy-seq? s))
-        (is (not (realized? s)))
+        (is #?(:lpy     (not (p/lazy-seq? s))
+               :default (p/lazy-seq? s)))
+        (is #?(:lpy     true
+               :default (not (realized? s))))
         (is (empty? s))))
 
     (testing "arity 1"