                                         :baz "30s"})))))
 
   (testing "partial conversion"
-    (let [schema {:foo s/String
-                  :bar s/Int
+    (let [schema {:foo String
+                  :bar Number
                   :baz Period}
           result {:foo "foo"
                   :bar 10

                                        :baz "30s"})))))

  (testing "conversion with an optional and a maybe"
    (let [schema {:foo s/String
                  :bar s/Int
                  (s/optional-key :baz) (s/maybe Period)}
          result {:foo "foo"
                  :bar 10

            [com.puppetlabs.time :as pl-time]))

(deftest defaulted-maybe-test
  (let [defaulted-schema {:foo (defaulted-maybe Number 10)}]
    (is (= {:foo 10}
           (s/validate defaulted-schema
                       {:foo 10})))
