Support large unicode characters in bracket classes

This is an oversight from several commits ago, as I didn't
know these could show up there.

src/com/gfredericks/test/chuck/regexes.clj

@@ -129,6 +129,11 @@
     {:type :large-unicode-character
      :code-point code-point}))
 
+(defn ^:private large-unicode-character->string
+  [code-point]
+  (str (Character/highSurrogate code-point)
+       (Character/lowSurrogate code-point)))
+
 (defn analyze
   [parsed-regex]
   (insta/transform
@@ -478,6 +483,10 @@
   [m]
   (charsets/singleton (str (:character m))))
 
+(defmethod compile-class :large-unicode-character
+  [m]
+  (charsets/singleton (large-unicode-character->string (:code-point m))))
+
 (defmulti analyzed->generator :type)
 
 (defmethod analyzed->generator :default
@@ -510,8 +519,7 @@
 
 (defmethod analyzed->generator :large-unicode-character
   [{:keys [code-point]}]
-  (gen/return (str (Character/highSurrogate code-point)
-                   (Character/lowSurrogate code-point))))
+  (gen/return (large-unicode-character->string code-point)))
 
 (defmethod analyzed->generator :repetition
   [{:keys [elements bounds]}]

test/com/gfredericks/test/chuck/regexes_test.clj

@@ -171,7 +171,7 @@
 
    ;; tests strange behavior in the QE-unquoter related to initial
    ;; digits
-   "\\c\\Q0"])
+   "\\c\\Q0" "[^\\x{2f498}]"])
 
 (defspec generator-regression-spec (times 1000)
   ;; TODO: make a prop in test.chuck that's like for