diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-11-20 14:08:21 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-11-20 14:08:21 +0100 |
| commit | d2b7a6a7e2739869f8b718c80cad7c9515f10070 (patch) | |
| tree | d3e8ac04dc4d1178fe24bc0511ada49caadf25db /tests/models | |
| parent | 434b521ddb70287b55d1dc8f5e24f18aeaa01fdc (diff) | |
Replace nutrient-value alists with hashes everywhere.
Diffstat (limited to 'tests/models')
| -rw-r--r-- | tests/models/nutrient-measurement.rkt | 12 |
1 files changed, 6 insertions, 6 deletions
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))))))) |