fixing test

travgm · Nov 14, 2024 · f7b1256 · f7b1256
1 parent e0d6c61
commit f7b1256
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/test/PrettyPrinterSpec.hs b/test/PrettyPrinterSpec.hs
@@ -81,7 +81,7 @@ spec = do
     it "shows alarm when reached" $ do
         let state = makeClockState False Nothing (Just $ makeValidTime 500)
         Pretty.formatTime (AlarmReached (DecimalTime 500)) (Right state)
-            `shouldBe` "Decimal time: 500 ALARM!"
+            `shouldBe` "Decimal time: 500 ALARM!\BEL"
 
     it "always starts with 'Decimal time: '" $ property $ \state ->
         T.isPrefixOf "Decimal time: " (Pretty.formatTime Normal $ Right state)