From e0d56fc007e8617cb449d64b90c59e44cb06ed29 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sat, 1 Nov 2025 12:44:55 +0100 Subject: Increase nutrient measurement test coverage. --- tests/nutrient-measurement-model.rkt | 31 +++++++++++++++++++++++++++---- 1 file changed, 27 insertions(+), 4 deletions(-) (limited to 'tests') 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))))))) -- cgit v1.2.3