blob: b0b053d389f7047c9e73fff846b8e0c85bc6eb6c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
#lang racket
(module+ test
(require rackunit
rackunit/text-ui
"../db/conn.rkt"
"../db/migrations.rkt"
"../models/nutrient.rkt"
"../models/nutrient-measurement.rkt")
(define measured-on "2025-09-01")
(run-tests
(test-suite
"Nutrient measurement model"
#:before (λ ()
(connect! #:path 'memory)
;; (connect! #:path "test.sqlite3")
(migrate-all!)
(create-nutrient! "Nitrogen" "N")
(create-nutrient! "Phosphorus" "P")
(create-nutrient! "Potassium" "K"))
#:after (λ ()
(disconnect!))
(test-case "Create measurement with values"
(define nitrogen (get-nutrient #:name "Nitrogen"))
(define phosphorus (get-nutrient #:name "Phosphorus"))
(create-nutrient-measurement! measured-on (list
(cons nitrogen 12.3)
(cons phosphorus 4.5)))
(check-equal? (length (get-nutrient-measurements)) 1)
(define nm (get-nutrient-measurement #:measured-on measured-on))
(check-true (nutrient-measurement? nm))
(check-equal? (nutrient-measurement-measured-on nm) measured-on)
(define mvs (get-nutrient-measurement-values nm))
(check-equal? (length mvs) 2)
(check-equal? (cdr (assoc nitrogen mvs)) 12.3)
(check-equal? (cdr (assoc phosphorus mvs)) 4.5)
)
#;(test-case "Update a single measurement value"
(define nitrogen (get-nutrient #:name "Nitrogen"))
(define nm (get-nutrient-measurement #:measured-on measured-on))
(update-nutrient-measurement! nm #:nutrient-values (list (cons nitrogen 1.1)))
(define mvs (get-nutrient-measurement-values nm))
(check-equal? (length mvs) 2)
(check-equal? (cdr (assoc nitrogen mvs)) 1.1))
#;(test-case "Upsert measurement values"
(define nitrogen (get-nutrient #:name "Nitrogen"))
(define phosphorus (get-nutrient #:name "Phosphorus"))
(define potassium (get-nutrient #:name "Potassium"))
(define nm (get-nutrient-measurement #:measured-on measured-on))
;; Upsert: set K=8.8 and change N to 10.0, keep P as-is
(update-nutrient-measurement! nm
#:nutrient-values (list
(cons nitrogen 10.0)
(cons potassium 8.8)))
(define mvs (get-nutrient-measurement-values nm))
(check-equal? (length mvs) 3)
(check-equal? (cdr (assoc nitrogen mvs)) 10.0)
(check-equal? (cdr (assoc potassium mvs)) 8.8)
;; P should still be present at 4.5
(check-equal? (cdr (assoc phosphorus mvs)) 4.5))
(test-case "Delete measurement cascades its values"
(define nm (get-nutrient-measurement #:measured-on measured-on))
(delete-nutrient-measurement! nm)
(check-false (get-nutrient-measurement #:id (nutrient-measurement-id nm)))
(check-equal? (length (get-nutrient-measurements)) 0)
(check-true (null? (get-nutrient-measurement-values nm)))))))
|
