use recursion to remove nested named errors

Author: milt

project.clj

@@ -1,4 +1,4 @@
-(defproject com.yetanalytics/xapi-schema "0.1.0"
+(defproject com.yetanalytics/xapi-schema "0.1.1"
   :description "Clojure(script) Schema for the Experience API v1.0.3"
   :url "https://github.com/yetanalytics/xapi-schema"
   :license {:name "Eclipse Public License"

spec/cljx/xapi_schema/schemata/util_spec.cljx

@@ -239,15 +239,19 @@
                    "enum" "Not in #{\"foo\" \"bar\" \"baz\"}: quxx"
                    "one" ["Not present: at least one string"]}
                   (errors->data @err))))
-    (context "given some xapi validation cases"
+   (context "given some xapi validation cases"
+            (with bad-xapi (errors->data
+                            (s/check json/Statement
+                                     (assoc d/long-statement
+                                            "actor"
+                                            {"mbox" "mailto:milt@yetanalytics.com"
+                                             "objectType" "NotAnAgent"}))))
              (it "parses an agent objectType error"
                  (should-not-throw
-                  (errors->data
-                   (s/check json/Statement
-                            (assoc d/long-statement
-                                   "actor"
-                                   {"mbox" "mailto:milt@yetanalytics.com"
-                                    "objectType" "NotAnAgent"})))))))
+                  @bad-xapi))
+             (it "coerces the errors to strings"
+                 (should= {"actor" {"objectType" "Not Agent: NotAnAgent"}}
+                          @bad-xapi))))
   (describe
    "errors->paths"
    (it "returns a map"

src/cljx/xapi_schema/schemata/util.cljx

@@ -148,7 +148,7 @@
   (if (named-error? node)
     (let [name #+clj (.name node) #+cljs (.-name node)
           error #+clj (.error node) #+cljs (.-error node)]
-      error)
+      (strip-named error))
     node))
 
 (defn errors->data [e & [ltag]]