From 70e74e5c8b12446475bfcf73e92bb8f2116c4a7d Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sat, 29 Nov 2025 13:13:41 +0100 Subject: Fix nutrient creation in unit tests. --- services/nnls.rkt | 16 ++++++++-------- tests/models/nutrient-measurement.rkt | 6 +++--- 2 files changed, 11 insertions(+), 11 deletions(-) diff --git a/services/nnls.rkt b/services/nnls.rkt index 40f03ab..abc76fe 100644 --- a/services/nnls.rkt +++ b/services/nnls.rkt @@ -185,8 +185,8 @@ (connect! #:path 'memory) (migrate-all!) - (define n1 (create-nutrient! "N1" "N1")) - (define n2 (create-nutrient! "N2" "N2")) + (define n1 (create-nutrient! "N1" "" "N1")) + (define n2 (create-nutrient! "N2" "" "N2")) (define nutrients (list n1 n2)) (define f1 (create-fertilizer-product! "F1" "F1" (hash n1 10 n2 20))) @@ -257,8 +257,8 @@ (connect! #:path 'memory) (migrate-all!) - (define nitrogen (create-nutrient! "Nitrogen" "N")) - (define phosphorus (create-nutrient! "Phosphorus" "P")) + (define nitrogen (create-nutrient! "Nitrogen" "" "N")) + (define phosphorus (create-nutrient! "Phosphorus" "" "P")) (create-nutrient-measurement! test-date (hash nitrogen 0 phosphorus 0)) (create-nutrient-target! test-date (hash nitrogen 100 phosphorus 50)) @@ -285,7 +285,7 @@ (connect! #:path 'memory) (migrate-all!) - (define n (create-nutrient! "TestNutrient" "TN")) + (define n (create-nutrient! "TestNutrient" "" "TN")) ;; No measurement, no target (check-false (get-latest-nutrient-measurement-value n)) @@ -311,9 +311,9 @@ (connect! #:path 'memory) (migrate-all!) - (define n (create-nutrient! "N" "N")) - (define p (create-nutrient! "P" "P")) - (define k (create-nutrient! "K" "K")) + (define n (create-nutrient! "N" "" "N")) + (define p (create-nutrient! "P" "" "P")) + (define k (create-nutrient! "K" "" "K")) ;; Current levels (create-nutrient-measurement! test-date (hash n 50 p 10 k 100)) diff --git a/tests/models/nutrient-measurement.rkt b/tests/models/nutrient-measurement.rkt index ed9e750..f64f9cd 100644 --- a/tests/models/nutrient-measurement.rkt +++ b/tests/models/nutrient-measurement.rkt @@ -16,9 +16,9 @@ (connect! #:path 'memory) ;; (connect! #:path "test.sqlite3") (migrate-all!) - (create-nutrient! "Nitrogen" "N") - (create-nutrient! "Phosphorus" "P") - (create-nutrient! "Potassium" "K")) + (create-nutrient! "Nitrogen" "" "N") + (create-nutrient! "Phosphorus" "" "P") + (create-nutrient! "Potassium" "" "K")) #:after (λ () (disconnect!)) (test-case "Create measurement with date and values" -- cgit v1.2.3