diff options
Diffstat (limited to 'models/nutrient-measurement.rkt')
| -rw-r--r-- | models/nutrient-measurement.rkt | 35 |
1 files changed, 17 insertions, 18 deletions
diff --git a/models/nutrient-measurement.rkt b/models/nutrient-measurement.rkt index 3a5238b..7f954b6 100644 --- a/models/nutrient-measurement.rkt +++ b/models/nutrient-measurement.rkt @@ -221,29 +221,28 @@ (test-suite "Nutrient measurement model" #:before (λ () (connect! #:path 'memory) - ;; (connect! #:path "test.sqlite3") (migrate-all!) - (create-nutrient! "Nitrogen" "" "N") - (create-nutrient! "Phosphorus" "" "P") - (create-nutrient! "Potassium" "" "K")) + (create-nutrient! "Examplium" "Examplium" "Ex") + (create-nutrient! "Ignorium" "Ignorium" "Ig") + (create-nutrient! "Testium" "Testium" "Ts")) #:after (λ () (disconnect!)) (test-case "Create measurement with date and values" - (define nitrogen (get-nutrient #:name "Nitrogen")) - (define phosphorus (get-nutrient #:name "Phosphorus")) - (create-nutrient-measurement! measurement-date (hash nitrogen 12.3 phosphorus 4.5)) + (define examplium (get-nutrient #:name "Examplium")) + (define ignorium (get-nutrient #:name "Ignorium")) + (create-nutrient-measurement! measurement-date (hash examplium 12.3 ignorium 4.5)) (check-equal? (length (get-nutrient-measurements)) 1) (define nm (get-nutrient-measurement #:date measurement-date)) (check-true (nutrient-measurement? nm)) (check-equal? (nutrient-measurement-measurement-date nm) measurement-date)) (test-case "Check all measurement values" - (define nitrogen (get-nutrient #:name "Nitrogen")) - (define phosphorus (get-nutrient #:name "Phosphorus")) + (define examplium (get-nutrient #:name "Examplium")) + (define ignorium (get-nutrient #:name "Ignorium")) (define nm (get-nutrient-measurement #:date measurement-date)) - (check-equal? (get-nutrient-measurement-value nm nitrogen) 12.3) - (check-equal? (get-nutrient-measurement-value nm phosphorus) 4.5) + (check-equal? (get-nutrient-measurement-value nm examplium) 12.3) + (check-equal? (get-nutrient-measurement-value nm ignorium) 4.5) (define nmv (nutrient-measurement-nutrient-values nm)) (check-equal? @@ -251,17 +250,17 @@ nmv "return value of get-nutrient-measurement-values ≠ nutrient-measurement-values struct accessor") (check-equal? (hash-count nmv) 2) - (check-equal? (hash-ref nmv nitrogen) 12.3) - (check-equal? (hash-ref nmv phosphorus) 4.5)) + (check-equal? (hash-ref nmv examplium) 12.3) + (check-equal? (hash-ref nmv ignorium) 4.5)) (test-case "Retrieve latest measurement values" - (define nitrogen (get-nutrient #:name "Nitrogen")) - (define phosphorus (get-nutrient #:name "Phosphorus")) + (define examplium (get-nutrient #:name "Examplium")) + (define ignorium (get-nutrient #:name "Ignorium")) (define second-measurement-date "2025-09-02") - (create-nutrient-measurement! second-measurement-date (hash nitrogen 6.7 phosphorus 8.9)) + (create-nutrient-measurement! second-measurement-date (hash examplium 6.7 ignorium 8.9)) - (check-equal? (get-latest-nutrient-measurement-value nitrogen) 6.7) - (check-equal? (get-latest-nutrient-measurement-value phosphorus) 8.9)) + (check-equal? (get-latest-nutrient-measurement-value examplium) 6.7) + (check-equal? (get-latest-nutrient-measurement-value ignorium) 8.9)) (test-case "Delete measurement and cascade to measurement values" (define nm (get-nutrient-measurement #:date measurement-date)) |