From f20b3535985899815dbf0f81da65f202b08c7745 Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Mon, 29 Oct 2018 00:07:26 -0400 Subject: More vigorous testing. --- haskell/examples/testdiff.hs | 29 +++++++++++++++++++++++------ 1 file changed, 23 insertions(+), 6 deletions(-) diff --git a/haskell/examples/testdiff.hs b/haskell/examples/testdiff.hs index c821bfa..9d580ba 100644 --- a/haskell/examples/testdiff.hs +++ b/haskell/examples/testdiff.hs @@ -7,14 +7,25 @@ import Text.XXD source :: L.ByteString source = "It could be said that Joe was here. I don't know what to do about it." +source2 :: L.ByteString +source2 = "It could be said that Joe was not here. I don't know what to do about it." + target :: L.ByteString target = "It could be said that Joe, the magnificent, was here. I don't know what to do about it." delta :: Result VCDIFF -delta = computeDiff defaultConfig { flags = XD3_ADLER32 } source target +delta = computeDiff defaultConfig source target delta2 :: Result VCDIFF -delta2 = computeDiff defaultConfig { flags = XD3_ADLER32 } source target +delta2 = computeDiff defaultConfig source target + +delta3 :: Result VCDIFF +delta3 = computeDiff defaultConfig { flags = XD3_ADLER32 } source target + +delta4 :: Result VCDIFF +delta4 = computeDiff defaultConfig { flags = XD3_ADLER32 } source target + + dump title bs kont = do putStrLn title @@ -24,10 +35,16 @@ dump title bs kont = do main = do dump "source" source $ putStrLn "" dump "target" target $ putStrLn "" - go "XD3_ADLER32" delta - go "XD3_ADLER32" delta2 - -go flgs delta = do + go source "default" delta + go source "default" delta2 + go source "XD3_ADLER32" delta3 + go source "XD3_ADLER32" delta4 + go source2 "default" delta + go source2 "default" delta2 + go source2 "XD3_ADLER32" delta3 + go source2 "XD3_ADLER32" delta4 + +go source flgs delta = do putStrLn "" case delta of Result δ me -> do -- cgit v1.2.3