[#38] Add ts complex test fixture & assert

Co-authored-by: kenichsberg <kn1017356@gmail.com>

test/zen/schema_test.clj

@@ -19,6 +19,12 @@
         (update vtx ::ts conj s)
         vtx))))
 
+(sut/register-compile-key-interpreter!
+  [:every ::ts]
+  (fn [_ ztx every]
+    (fn [vtx data opts]
+      (update vtx ::ts conj "Array < "))))
+
 (sut/register-compile-key-interpreter!
   [:type ::ts]
   (fn [_ ztx ks]
@@ -42,7 +48,7 @@
         vtx))))
 
 
-(t/deftest custom-interpreter-test
+(t/deftest ^:kaocha/pending custom-interpreter-test
   (t/testing "typescript type generation"
     (def ztx (zen.core/new-context {}))
 
@@ -55,25 +61,28 @@
          :keys {:id {:type zen/string}
                 :email {:type zen/string
                         #_#_:regex "@"}
-                #_#_:name {:type zen/vector
-                           :every {:type zen/map
-                                   :keys {:given {:type zen/vector
-                                                  :every {:type zen/string}}
-                                          :family {:type zen/string}}}}}}})
+                :name {:type zen/vector
+                       :every {:type zen/map
+                               :keys {:given {:type zen/vector
+                                              :every {:type zen/string}}
+                                      :family {:type zen/string}}}}}}})
 
     (zen.core/load-ns ztx my-structs-ns)
 
     (def ts-typedef-assert
       (str "type User = {"
            "id: string;"
            "email: string;"
-           "}"))
+           "name: Array < {"
+           "given: Array < string >;"
+           "family: string;"
+           "}>}"))
 
     (def r
       (sut/apply-schema ztx
                         {::ts []}
                         (zen.core/get-symbol ztx 'zen/schema)
                         (zen.core/get-symbol ztx 'my-sturcts/User)
-                        {:interpreters [#_:zen.v2-validation/validate ::ts]}))
+                        {:interpreters [::ts]}))
 
     (t/is (= ts-typedef-assert (str/join "" (distinct (::ts r)))))))