[Racket] Ferti hydroponic nutrient solver, redux.

Fix nutrient creation in unit tests.

Commit
70e74e5c8b12446475bfcf73e92bb8f2116c4a7d
Author
Marius Peter <dev@marius-peter.com>
Author date
Committer
Marius Peter <dev@marius-peter.com>
Committer date
Changed files
services/nnls.rkt
index 40f03ab9..abc76fe2 100644..100644
@@ -185,8 +185,8 @@
185 185 (connect! #:path 'memory)
186 186 (migrate-all!)
187 187
188 Removed: (define n1 (create-nutrient! "N1" "N1"))
189 Removed: (define n2 (create-nutrient! "N2" "N2"))
188 Added: (define n1 (create-nutrient! "N1" "" "N1"))
189 Added: (define n2 (create-nutrient! "N2" "" "N2"))
190 190 (define nutrients (list n1 n2))
191 191
192 192 (define f1 (create-fertilizer-product! "F1" "F1" (hash n1 10 n2 20)))
@@ -257,8 +257,8 @@
257 257 (connect! #:path 'memory)
258 258 (migrate-all!)
259 259
260 Removed: (define nitrogen (create-nutrient! "Nitrogen" "N"))
261 Removed: (define phosphorus (create-nutrient! "Phosphorus" "P"))
260 Added: (define nitrogen (create-nutrient! "Nitrogen" "" "N"))
261 Added: (define phosphorus (create-nutrient! "Phosphorus" "" "P"))
262 262
263 263 (create-nutrient-measurement! test-date (hash nitrogen 0 phosphorus 0))
264 264 (create-nutrient-target! test-date (hash nitrogen 100 phosphorus 50))
@@ -285,7 +285,7 @@
285 285 (connect! #:path 'memory)
286 286 (migrate-all!)
287 287
288 Removed: (define n (create-nutrient! "TestNutrient" "TN"))
288 Added: (define n (create-nutrient! "TestNutrient" "" "TN"))
289 289
290 290 ;; No measurement, no target
291 291 (check-false (get-latest-nutrient-measurement-value n))
@@ -311,9 +311,9 @@
311 311 (connect! #:path 'memory)
312 312 (migrate-all!)
313 313
314 Removed: (define n (create-nutrient! "N" "N"))
315 Removed: (define p (create-nutrient! "P" "P"))
316 Removed: (define k (create-nutrient! "K" "K"))
314 Added: (define n (create-nutrient! "N" "" "N"))
315 Added: (define p (create-nutrient! "P" "" "P"))
316 Added: (define k (create-nutrient! "K" "" "K"))
317 317
318 318 ;; Current levels
319 319 (create-nutrient-measurement! test-date (hash n 50 p 10 k 100))
tests/models/nutrient-measurement.rkt
index ed9e7503..f64f9cd5 100644..100644
@@ -16,9 +16,9 @@
16 16 (connect! #:path 'memory)
17 17 ;; (connect! #:path "test.sqlite3")
18 18 (migrate-all!)
19 Removed: (create-nutrient! "Nitrogen" "N")
20 Removed: (create-nutrient! "Phosphorus" "P")
21 Removed: (create-nutrient! "Potassium" "K"))
19 Added: (create-nutrient! "Nitrogen" "" "N")
20 Added: (create-nutrient! "Phosphorus" "" "P")
21 Added: (create-nutrient! "Potassium" "" "K"))
22 22 #:after (λ () (disconnect!))
23 23
24 24 (test-case "Create measurement with date and values"