tasty-sugar-0.2.0.0: examples/example1/test-passthru-ascii.hs

module Main where

import Test.Tasty
import Test.Tasty.HUnit
import Test.Tasty.Sugar

import NiftyText


cube = mkCUBE { inputDir = "examples/example1/testdata" }


main = do sweets <- findSugar cube
          defaultMain $ testGroup "passthru ascii tests" $
            withSugarGroups sweets testGroup test_passthru_ascii


test_passthru_ascii sweet cnt exp =
  testCase ("checking #" <> show cnt <> ": " <> expectedFile exp) $ do
  inp <- readFile $ rootFile sweet
  let testout = NiftyText.processText "passthru" "ascii" inp
  out <- readFile $ expectedFile exp
  out @=? testout