blob: 010c812d142f2b8fa7a5c9a48f631563b5e4e73b (
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
|
#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 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)))
(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))
(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 "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)) 1
"wrong number of nutrient measurements were deleted")
(check-true (null? (get-nutrient-measurement-values nm)))))))
|
