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