From 7725e97280df4c644a76621791511110607b7f06 Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Fri, 2 Sep 2022 15:06:26 +0200 Subject: [PATCH] test(exam): disable lenghty exam tests while exams are not used --- test/Handler/Utils/ExamSpec.hs | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/test/Handler/Utils/ExamSpec.hs b/test/Handler/Utils/ExamSpec.hs index c0675a2cd..acf8d8dae 100644 --- a/test/Handler/Utils/ExamSpec.hs +++ b/test/Handler/Utils/ExamSpec.hs @@ -1,4 +1,5 @@ {-# OPTIONS_GHC -Wno-redundant-constraints #-} +{-# OPTIONS -Wno-unused-top-binds #-} module Handler.Utils.ExamSpec (spec) where @@ -21,6 +22,10 @@ import qualified Data.RFC5051 as RFC5051 import Handler.Utils.Exam +spec :: Spec +-- spec = test_spec +spec = return () -- TODO: tests deactivated since exams are currently not used + -- direct copy&paste from an (currently) unmerged pull request for hspec-expectations -- https://github.com/hspec/hspec-expectations/blob/6b4a475e42b0d44008c150727dea25dd79f568f2/src/Test/Hspec/Expectations.hs -- | @@ -91,8 +96,8 @@ instance Show UserProperties where ++ ", userMatrikelnummer=" ++ show userMatrikelnummer ++ "}" -- function Handler.Utils.examAutoOccurrence -spec :: Spec -spec = do +test_spec :: Spec +test_spec = do describe "examAutoOccurrence" $ do describe "Surname" $ testWithRule ExamRoomSurname describe "Matriculation" $ testWithRule ExamRoomMatriculation