From 75d9fe614dca572aa1d7cfa53553e9c103eb2dd0 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 25 Jan 2017 15:54:54 +0100 Subject: Cleanup test suite --- server/test/Thermoprint/Server/Printer/GenericSpec.hs | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) (limited to 'server/test/Thermoprint/Server/Printer/GenericSpec.hs') diff --git a/server/test/Thermoprint/Server/Printer/GenericSpec.hs b/server/test/Thermoprint/Server/Printer/GenericSpec.hs index 80096b0..e535754 100644 --- a/server/test/Thermoprint/Server/Printer/GenericSpec.hs +++ b/server/test/Thermoprint/Server/Printer/GenericSpec.hs @@ -29,8 +29,6 @@ import Data.Word import Data.Sequence (Seq) import qualified Data.Sequence as Seq -import Debug.Trace - instance IsString Line where fromString = (\(Right l) -> l) . text . TL.pack @@ -40,7 +38,7 @@ spec = do zipWithM_ example [1..] examples where example n (s, ts) = let str = show s - in specify str $ traceDump (mkPrintout . Printout . fmap (Paragraph . Seq.singleton) . fmap Cooked $ s) == ts + in specify str $ (mkPrintout . Printout . fmap (Paragraph . Seq.singleton) . fmap Cooked $ s) == ts final, initial :: L.ByteString initial = esc [64] <> esc [64] @@ -52,9 +50,6 @@ esc = L.BS.pack . (27:) p :: L.ByteString -> L.ByteString p = (<> final) . (initial <>) -traceDump :: L.ByteString -> L.ByteString -traceDump bs = traceShow (map (\b -> (b, (toEnum $ fromEnum b) :: Char)) $ L.BS.unpack bs) bs - examples :: [(Seq Block, L.ByteString)] examples = [ ( [Line (JuxtaPos ["Hello", HSpace 1, "World!"])] , p "Hello World!") -- cgit v1.2.3