From 4226a38603023759bb7867638c20a157930010a8 Mon Sep 17 00:00:00 2001
From: s464986 <verpol@st.amu.edu.pl>
Date: Mon, 27 May 2024 16:18:49 +0200
Subject: [PATCH] Update Proj.hs

---
 Proj.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Proj.hs b/Proj.hs
index 3ab0bb2..c9c76b3 100644
--- a/Proj.hs
+++ b/Proj.hs
@@ -111,13 +111,13 @@ addNewDishes path = do
 testSuggestMeals :: Test
 testSuggestMeals =
   TestList
-    [ "Test suggestMeals for empty dish list"
+    [ "Test suggestMeals for not exist list"
         ~: do
           let csvFile = "empty.csv"
           result <- tryJust (guard . isDoesNotExistError) $ readCSV csvFile
           case result of
-            Left _ -> return () -- Test zakończy się powodzeniem, jeśli otrzymamy Left
-            Right _ -> assertFailure ("Test suggestMeals for empty dish list with file " ++ csvFile ++ ": should have failed to read CSV file"),
+            Left _ -> return () 
+            Right _ -> assertFailure ("Test suggestMeals for not exist list with file " ++ csvFile ++ ": should have failed to read CSV file"),
       "Test suggestMeals for non-empty dish list"
         ~: do
           let csvFile = "baza.csv"