diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-11-24 15:44:58 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-11-24 15:44:58 +0100 |
| commit | b4b113796455b85389df1c826f6e7ec93e804001 (patch) | |
| tree | da3f143888cf883dd1f109962c84cf58a74e523f /tests/models/nutrient.rkt | |
| parent | 507844a30cbbdaf166a2fd56c9a6e4985c7d7c97 (diff) | |
Add French name to nutrient model.
Diffstat (limited to 'tests/models/nutrient.rkt')
| -rw-r--r-- | tests/models/nutrient.rkt | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/tests/models/nutrient.rkt b/tests/models/nutrient.rkt index 1e4fa8f..525ef66 100644 --- a/tests/models/nutrient.rkt +++ b/tests/models/nutrient.rkt @@ -14,9 +14,10 @@ #:after (λ () (disconnect!)) (test-case "Create nutrients" - (create-nutrient! "Examplium" "Ex") + (check-equal? (length (get-nutrients)) 0) + (create-nutrient! "Examplium" "" "Ex") (check-equal? (length (get-nutrients)) 1) - (create-nutrient! "Ignorium" "Ig") + (create-nutrient! "Ignorium" "" "Ig") (check-equal? (length (get-nutrients)) 2)) (test-case "Read nutrient" @@ -27,7 +28,7 @@ (test-case "Read nutrient by name" (define examplium (get-nutrient #:name "Examplium")) (check-true (nutrient? examplium)) - (check-equal? (nutrient-name examplium) "Examplium")) + (check-equal? (nutrient-canonical-name examplium) "Examplium")) (test-case "Read nutrient by formula" (define examplium (get-nutrient #:formula "Ex")) @@ -41,14 +42,14 @@ (define examplium (get-nutrient #:name "Examplium")) (define examplium-nitrate (update-nutrient! examplium #:name "Examplium Nitrate")) (check-equal? (length (get-nutrients)) 2) - (check-equal? (nutrient-name examplium-nitrate) "Examplium Nitrate") + (check-equal? (nutrient-canonical-name examplium-nitrate) "Examplium Nitrate") (check-equal? (nutrient-formula examplium-nitrate) "Ex")) (test-case "Update nutrient formula" (define examplium-nitrate (get-nutrient #:name "Examplium Nitrate")) (define examplium-sulfate (update-nutrient! examplium-nitrate #:formula "ExSO4")) (check-equal? (length (get-nutrients)) 2) - (check-equal? (nutrient-name examplium-sulfate) "Examplium Nitrate") + (check-equal? (nutrient-canonical-name examplium-sulfate) "Examplium Nitrate") (check-equal? (nutrient-formula examplium-sulfate) "ExSO4")) (test-case "Update nutrient name and formula" @@ -56,7 +57,7 @@ (define examplium-sulfate (update-nutrient! examplium-nitrate #:name "Examplium Sulfate" #:formula "ExNO3")) (check-equal? (length (get-nutrients)) 2) - (check-equal? (nutrient-name examplium-sulfate) "Examplium Sulfate") + (check-equal? (nutrient-canonical-name examplium-sulfate) "Examplium Sulfate") (check-equal? (nutrient-formula examplium-sulfate) "ExNO3")) (test-case "Delete nutrient" |