LRS-30 for 2.0.0+, version is JUST 2.0.0

Author: milt

src/xapi_schema/spec.cljc

@@ -288,10 +288,7 @@
   (s/with-gen
     (s/and string?
            (partial re-matches xAPIVersionRegEx))
-    #(sgen/fmap (fn [i]
-                  (#?(:clj format
-                      :cljs gstring/format) "1.0.%d" i))
-                (sgen/int))))
+    #(sgen/return "2.0.0")))
 
 (s/def ::sha2
   (s/with-gen

src/xapi_schema/spec/regex.cljc

@@ -148,7 +148,7 @@
 (def xAPIVersionRegEx
   (let [suf-part "[0-9a-zA-Z-]+(?:\\.[0-9a-zA-Z-]+)*"
         suffix   (str "(\\.[0-9]+(?:-" suf-part ")?(?:\\+" suf-part ")?)?")
-        ver-str  (str "^[1-2]\\.0" suffix "$")]
+        ver-str  (str "^(1\\.0" suffix ")|(2\\.0\\.0)$")]
     (re-pattern ver-str)))
 
 (def Base64RegEx

test/xapi_schema/spec/regex_test.cljc

@@ -151,11 +151,9 @@
              (re-matches xAPIVersionRegEx "1.0")
              (re-matches xAPIVersionRegEx "1.0.32-abc.def+ghi.jkl")))
     (is (not (re-matches xAPIVersionRegEx "0.9.5"))))
-  (testing "matches xAPI 2.0.x versions"
+  (testing "matches xAPI 2.0.0 version only"
     (is (and (re-matches xAPIVersionRegEx "2.0.0")
-             (re-matches xAPIVersionRegEx "2.0.2")
-             (re-matches xAPIVersionRegEx "2.0")
-             (re-matches xAPIVersionRegEx "2.0.32-abc.def+ghi.jkl")))))
+             (not (re-matches xAPIVersionRegEx "2.0.2"))))))
 
 (deftest duration-regex-test
   (testing "matches ISO durations"