From d2b7a6a7e2739869f8b718c80cad7c9515f10070 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Thu, 20 Nov 2025 14:08:21 +0100 Subject: Replace nutrient-value alists with hashes everywhere. --- tests/models/nutrient-measurement.rkt | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'tests') diff --git a/tests/models/nutrient-measurement.rkt b/tests/models/nutrient-measurement.rkt index c0c1ee1..ed9e750 100644 --- a/tests/models/nutrient-measurement.rkt +++ b/tests/models/nutrient-measurement.rkt @@ -24,7 +24,7 @@ (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 `((,nitrogen . 12.3) (,phosphorus . 4.5))) + (create-nutrient-measurement! measurement-date (hash nitrogen 12.3 phosphorus 4.5)) (check-equal? (length (get-nutrient-measurements)) 1) (define nm (get-nutrient-measurement #:measured-on measurement-date)) (check-true (nutrient-measurement? nm)) @@ -43,15 +43,15 @@ (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)) + (check-equal? (hash-count nmv) 2) + (check-equal? (hash-ref nmv nitrogen) 12.3) + (check-equal? (hash-ref nmv phosphorus) 4.5)) (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))) + (create-nutrient-measurement! second-measurement-date (hash 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)) @@ -63,4 +63,4 @@ (check-equal? (length (get-nutrient-measurements)) 1 "wrong number of nutrient measurements were deleted") - (check-true (null? (get-nutrient-measurement-values nm))))))) + (check-true (hash-empty? (get-nutrient-measurement-values nm))))))) -- cgit v1.2.3