 -------------------------
 Detected 1 error\n"
            (expound/expound-str
-            :defmsg-test/parent-foo
+            :defmsg-test/identifier
             :oak
             {:print-specs? false})))
 
-    (expound/defmsg :defmsg-test/parent-bar "should be a bar")
+    (expound/defmsg :defmsg-test/name "should be a bar")
     (is (= "-- Spec failed --------------------
 
   :oak

-------------------------
Detected 1 error\n"
           (expound/expound-str
            :defmsg-test/parent-bar
            :oak
            {:print-specs? false})))


            {:print-specs? false}))))

  (testing "messages can be fetched from parent specs"
    (s/def :defmsg-test/string string?)
    (s/def :defmsg-test/identifier :defmsg-test/string)
    (s/def :defmsg-test/name :defmsg-test/identifier)

    (expound/defmsg :defmsg-test/string "should be a string")
    (is (= "-- Spec failed --------------------

  :oak
