LRS-30 Allow whitespace instead of T per RFC 3339 I guess

Author: milt

src/xapi_schema/spec/regex.cljc

@@ -117,7 +117,7 @@
         ;; Time
         time (str "(?:" hour ":" min ":" sec sec-frac "?" ")")
         date (str "(?:" year "-" month "-" day ")")]
-    (str date "T" time)))
+    (str date "[T\\s]" time)))
 
 (def TimestampRegEx ; RFC 3339
   (let [;; Time

test/xapi_schema/spec/regex_test.cljc

@@ -140,7 +140,9 @@
     (is (not (re-matches TimestampRegEx "20150513T15Z")))
     (is (not (re-matches TimestampRegEx "20150513T15:16:00Z")))
     ;; negative offset
-    (is (not (re-matches TimestampRegEx "2008-09-15T15:53:00.601-00:00")))))
+    (is (not (re-matches TimestampRegEx "2008-09-15T15:53:00.601-00:00"))))
+  (testing "matches valid but terrible stamps in rfc3339 OUTSIDE of 8601"
+    (is (re-matches TimestampRegEx "2015-05-13 15:16:00Z"))))
 
 (deftest xapi-version-regex-test
   (testing "matches xAPI 1.0.X versions"