[LRS-83] Empty statement batches

.clj-kondo/config.edn

@@ -0,0 +1 @@
+{}

.gitignore

@@ -20,3 +20,7 @@ npm-debug.log
 package.json
 *.log
 /out_test
+.calva/
+.clj-kondo/*
+!.clj-kondo/config.edn
+.lsp/

deps.edn

@@ -3,7 +3,9 @@
  {org.clojure/clojure {:mvn/version "1.10.1"}
   org.clojure/clojurescript {:mvn/version "1.10.741"}
   org.clojure/core.async {:mvn/version "1.5.648"}
-  com.yetanalytics/xapi-schema {:mvn/version "1.3.0"
+  com.yetanalytics/xapi-schema {#_#_:mvn/version "1.3.0"
+                                :git/sha "63614c73224ecb54843177ce8878a32fc9cabc50"
+                                :git/url "https://github.com/yetanalytics/xapi-schema.git"
                                 :exclusions [org.clojure/clojurescript]}
   com.yetanalytics/gen-openapi {:mvn/version "0.0.5"}
   cheshire/cheshire {:mvn/version "5.10.1"}

src/test/com/yetanalytics/lrs_test.clj

@@ -54,12 +54,25 @@
                     lrs/authorize
                     lrs/authorize-async])
 
+(def auth-id
+  {:auth   {:no-op {}}
+   :prefix ""
+   :scopes #{:scope/all}
+   :agent  {"mbox" "mailto:[email protected]"}})
+
+(deftest empty-store-test
+  (let [lrs            (doto (mem/new-lrs {:statements-result-max 100})
+                         (lrs/store-statements auth-id [] []))
+        ret-statements (get-in (lrs/get-statements lrs
+                                                   auth-id
+                                                   {:limit 100}
+                                                   #{"en-US"})
+                               [:statement-result :statements])]
+    (is (s/valid? ::xs/statements ret-statements))
+    (is (empty? ret-statements))))
+
 (deftest query-test
-  (let [auth-id {:auth   {:no-op {}}
-                 :prefix ""
-                 :scopes #{:scope/all}
-                 :agent  {"mbox" "mailto:[email protected]"}}
-        ;; The serialized state shouldn't be used for this, because we're
+  (let [;; The serialized state shouldn't be used for this, because we're
         ;; changing things around.
         ;; The datasim data is not currently normalized, but only happens at a
         ;; max precision of 1 ms. That's timestamps though, looks like we have
@@ -75,8 +88,7 @@
                                       [:statement-result :statements]))
         ret-statements (get-ss {:limit 100})]
     (testing (format "%s valid return statements?" (count ret-statements))
-      (is (s/valid? (s/every ::xs/statement)
-                    ret-statements)))
+      (is (s/valid? ::xs/statements ret-statements)))
     (testing "preserved?"
       (is (= (dissoc (first ret-statements)
                      "authority"