diff options
Diffstat (limited to 'services')
| -rw-r--r-- | services/nnls.rkt | 16 |
1 files changed, 8 insertions, 8 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)) |