Test the bedroom spec

test/Main.hs

@@ -3,6 +3,7 @@ module Main (main) where
 import Test.Hspec (hspec)
 import qualified AFRPSpec
 import qualified BackoffProp
+import qualified BedroomSpec
 import qualified BusSpec
 import qualified ConnectionSpec
 import qualified RuntimeSpec
@@ -11,6 +12,7 @@ import qualified SupervisorSpec
 main :: IO ()
 main = hspec $ do
   AFRPSpec.spec
+  BedroomSpec.spec
   BusSpec.spec
   ConnectionSpec.spec
   RuntimeSpec.spec