Fix meridiem parsing

Author: VyacheslavMik

src/cljs_time/internal/parse.cljs

@@ -167,12 +167,16 @@
    (fn [s]
      (let [[[m n] s] (split-at 2 s)
            meridiem (str m n)
+           err #(ex-info
+                 (str "Invalid meridiem format: " meridiem) {:type :parse-error})
            [meridiem s] (cond (#{"am" "pm" "AM" "PM"} meridiem)
                               [meridiem s]
                               (#{\a \p} m)
                               [({\a "am" \p "pm"} m) (cons n s)]
                               (#{\A \P} m)
-                              [({\A "am" \P "pm"} m) (cons n s)])]
+                              [({\A "am" \P "pm"} m) (cons n s)]
+                              :default
+                              (throw (err)))]
        [[:meridiem (keyword meridiem)] (string/join s)]))))
 
 (defn parse-period-name [s period periods short?]

test/cljs_time/format_test.cljs

@@ -31,6 +31,13 @@
       (try
         (format/parse (formatter "dd/MM/yyyy") "32/04/2013")
         (catch ExceptionInfo e (:type (ex-data e))))))
+
+  (is
+   (= :parse-error
+      (try
+        (format/parse (formatter "hh:mm A") "10:00 T")
+        (catch ExceptionInfo e (:type (ex-data e))))))
+
   (let [date (format/parse (formatter "dd/MM/yyyy") "12/08/1938")]
     (is (= 1938 (.getYear date)))
     (is (= 12   (.getDate date)))