From b4b113796455b85389df1c826f6e7ec93e804001 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Mon, 24 Nov 2025 15:44:58 +0100 Subject: Add French name to nutrient model. --- tests/models/nutrient.rkt | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'tests/models/nutrient.rkt') 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" -- cgit v1.2.3