blob: d6b2b604de7f373c47033f23eb092e2e71615d51 (
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
|
#lang racket
(module+ test
(require rackunit
rackunit/text-ui
"../db/conn.rkt"
"../db/migrations.rkt"
"../models/nutrient.rkt"
"../models/nutrient-measurement.rkt")
(define measurement-date "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! measurement-date
`((,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))
(check-equal? (nutrient-measurement-date nm) measurement-date)
(define nmv (nutrient-measurement-values nm))
(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"
(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-true (null? (get-nutrient-measurement-values nm)))))))
|
