Increase nutrient measurement test coverage.

1 files changed, 27 insertions, 4 deletions

diff --git a/tests/nutrient-measurement-model.rkt b/tests/nutrient-measurement-model.rkt
index d6b2b60..010c812 100644
--- a/tests/nutrient-measurement-model.rkt
+++ b/tests/nutrient-measurement-model.rkt
@@ -23,7 +23,7 @@
     #:after (λ ()
               (disconnect!))
 
-    (test-case "Create measurement with values"
+    (test-case "Create measurement with date and values"
       (define nitrogen (get-nutrient #:name "Nitrogen"))
       (define phosphorus (get-nutrient #:name "Phosphorus"))
       (create-nutrient-measurement! measurement-date
@@ -32,15 +32,38 @@
       (check-equal? (length (get-nutrient-measurements)) 1)
       (define nm (get-nutrient-measurement #:measured-on measurement-date))
       (check-true (nutrient-measurement? nm))
-      (check-equal? (nutrient-measurement-date nm) measurement-date)
+      (check-equal? (nutrient-measurement-date nm) measurement-date))
+
+    (test-case "Check all measurement values"
+      (define nitrogen (get-nutrient #:name "Nitrogen"))
+      (define phosphorus (get-nutrient #:name "Phosphorus"))
+
+      (define nm (get-nutrient-measurement #:measured-on measurement-date))
+      (check-equal? (get-nutrient-measurement-value nm nitrogen) 12.3)
+      (check-equal? (get-nutrient-measurement-value nm phosphorus) 4.5)
+
       (define nmv (nutrient-measurement-values nm))
+      (check-equal? (get-nutrient-measurement-values nm) nmv
+                    "return value of get-nutrient-measurement-values ≠ nutrient-measurement-values struct accessor")
       (check-equal? (length nmv) 2)
       (check-equal? (cdr (assoc nitrogen nmv)) 12.3)
       (check-equal? (cdr (assoc phosphorus nmv)) 4.5))
 
-    (test-case "Delete measurement cascades its values"
+    (test-case "Retrieve latest measurement values"
+      (define nitrogen (get-nutrient #:name "Nitrogen"))
+      (define phosphorus (get-nutrient #:name "Phosphorus"))
+      (define second-measurement-date "2025-09-02")
+      (create-nutrient-measurement! second-measurement-date
+                                    `((,nitrogen . 6.7)
+                                      (,phosphorus . 8.9)))
+
+      (check-equal? (get-latest-nutrient-measurement-value nitrogen) 6.7)
+      (check-equal? (get-latest-nutrient-measurement-value phosphorus) 8.9))
+
+    (test-case "Delete measurement and cascade to measurement values"
       (define nm (get-nutrient-measurement #:measured-on measurement-date))
       (delete-nutrient-measurement! nm)
       (check-false (get-nutrient-measurement #:id (nutrient-measurement-id nm)))
-      (check-equal? (length (get-nutrient-measurements)) 0)
+      (check-equal? (length (get-nutrient-measurements)) 1
+                    "wrong number of nutrient measurements were deleted")
       (check-true (null? (get-nutrient-measurement-values nm)))))))