From ff3aae7a4d816bc1964de5f97ee35e3d07566c8a Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sat, 6 Dec 2025 18:14:57 +0100 Subject: Miscellaneous clean-up. --- db/migrations.rkt | 1 - models/fertilizer-product.rkt | 3 --- services/nnls.rkt | 2 +- 3 files changed, 1 insertion(+), 5 deletions(-) diff --git a/db/migrations.rkt b/db/migrations.rkt index cbcc0b2..db3093c 100644 --- a/db/migrations.rkt +++ b/db/migrations.rkt @@ -104,7 +104,6 @@ #:constraints (primary-key id) (unique measurement_date)))) - ;;;;;;;; ;; CROPS ;;;;;;;; diff --git a/models/fertilizer-product.rkt b/models/fertilizer-product.rkt index 7c0a267..152b72a 100644 --- a/models/fertilizer-product.rkt +++ b/models/fertilizer-product.rkt @@ -216,13 +216,10 @@ (test-case "Get product by id" (define fp (get-fertilizer-product #:canonical-name canonical-product-name)) (define fp-by-id (get-fertilizer-product #:id (fertilizer-product-id fp))) - (check-equal? fp fp-by-id)) (test-case "Handle missing nutrient in product" - (define nitrogen (get-nutrient #:name "Nitrogen")) (define potassium (get-nutrient #:name "Potassium")) - (define fp (get-fertilizer-product #:canonical-name canonical-product-name)) (check-false (get-fertilizer-product-value fp potassium))) diff --git a/services/nnls.rkt b/services/nnls.rkt index a5800f3..b0902f9 100644 --- a/services/nnls.rkt +++ b/services/nnls.rkt @@ -302,7 +302,7 @@ (create-crop-requirement! "Test requirement 2" (hash n 150 p 30 k 200))) (create-crop-rotation! test-date (hash test-crop-requirement 100)) - ;; Fertilizers with different NPK ratios + ;; Available fertilizer products (create-fertilizer-product! "" "Balanced" (hash n 100 p 100 k 100)) (create-fertilizer-product! "Nitrogen blend" "High-N" (hash n 200 p 50 k 50)) (create-fertilizer-product! "Phosphorus blend" "High-P" (hash n 50 p 200 k 50)) -- cgit v1.2.3