From 3e4978fdbfaa72dcaed9a116869948df87203904 Mon Sep 17 00:00:00 2001
From: Filip Gralinski <filipg@amu.edu.pl>
Date: Sat, 9 Oct 2021 15:52:06 +0200
Subject: [PATCH] Add test for testing line-by-line

(Commented for the time being)
---
 test/Spec.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/test/Spec.hs b/test/Spec.hs
index 9c923b6..80e38d5 100644
--- a/test/Spec.hs
+++ b/test/Spec.hs
@@ -555,7 +555,7 @@ main = hspec $ do
       runGEvalTest "charmatch-complex-compressed" `shouldReturnAlmost` 0.1923076923076923
   describe "headers" $ do
     it "simple" $ do
-      runGEvalTest "mse-simple-headers" `shouldReturnAlmost` 0.4166666666666667
+      runGEvalTestExtraOptions [] "mse-simple-headers" `shouldReturnAlmost` 0.4166666666666667
   describe "handling jsonl format" $ do
     it "simple test" $
       runGEvalTestExtraOptions ["-e", "expected.jsonl" ] "jsonl-simple" `shouldReturnAlmost` 0.571428571428
@@ -893,7 +893,10 @@ extractVal (Left result) = do
   handleParseResult result
   return $ error "something wrong"
 
-runGEvalTest = runGEvalTestExtraOptions []
+runGEvalTest testName = do
+  r <- runGEvalTestExtraOptions [] testName
+--  _ <- runGEvalTestExtraOptions ["--line-by-line", "-i", "expected.tsv"] testName
+  return r
 
 runGEvalTestExtraOptions extraOptions testName = (runGEval ([
   "--expected-directory",