diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-12-06 18:14:57 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-12-06 18:14:57 +0100 |
| commit | ff3aae7a4d816bc1964de5f97ee35e3d07566c8a (patch) | |
| tree | b43ee3fa71bbcabdd56ac201a480bcac42033dad | |
| parent | 4166f49e1267ab8a4a48cf395251eb27a3d92cda (diff) | |
Miscellaneous clean-up.
| -rw-r--r-- | db/migrations.rkt | 1 | ||||
| -rw-r--r-- | models/fertilizer-product.rkt | 3 | ||||
| -rw-r--r-- | services/nnls.rkt | 2 |
3 files changed, 1 insertions, 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)) |