diff options
Diffstat (limited to 'db')
| -rw-r--r-- | db/seed.rkt | 14 |
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!)) |