Add seeding of nutrient targets.

1 files changed, 12 insertions, 2 deletions

diff --git a/db/seed.rkt b/db/seed.rkt
index d2353ee..4fbecb7 100644
--- a/db/seed.rkt
+++ b/db/seed.rkt
@@ -3,12 +3,14 @@
 (provide seed-database!)
 
 (require csv-reading
+         gregor
          racket/runtime-path
          "conn.rkt"
          "../models/nutrient.rkt"
          "../models/nutrient-measurement.rkt"
          "../models/crop.rkt"
          "../models/crop-requirement.rkt"
+         "../models/nutrient-target.rkt"
          "../models/fertilizer-product.rkt")
 
 (define (seed-database!)
@@ -20,6 +22,8 @@
   (seeded "crops")
   (seed-crop-requirements!)
   (seeded "crop requirements")
+  (seed-nutrient-targets!)
+  (seeded "nutrient targets")
   (seed-existing-fertilizer-products!)
   (seeded "existing fertilizer products"))
 
@@ -105,6 +109,13 @@
   (with-tx
     (csv-for-each row->seed! next-row)))
 
+(define (seed-nutrient-targets!)
+  (define effective-on (date->iso8601 (date 2025 01 01)))
+  (define nutrient-values
+    (average-crop-requirement-nutrient-values
+     (list (cons (get-crop-requirement #:id 1) 100))))
+  (create-nutrient-target! effective-on nutrient-values))
+
 (define-runtime-path fertilizer-csv "data/dolibarr_fertilizer_compositions_percentage.csv")
 (define (seed-existing-fertilizer-products!)
   (define next-row (make-csv-reader (open-input-file fertilizer-csv)))
@@ -129,7 +140,6 @@
 
 (module+ test
   (require "migrations.rkt")
-  (connect! #:path "test.sqlite3"
-            )
+  (connect! #:path 'memory)
   (migrate-all!)
   (seed-database!))