darcs-2.18.2: harness/Darcs/Test/UI/Commands/Convert/Export.hs

module Darcs.Test.UI.Commands.Convert.Export ( testSuite ) where

import Darcs.Prelude
import Darcs.UI.Commands.Convert.Export ( cleanPatchAuthor, cleanPatchAuthorTestCases )

import Test.Framework.Providers.HUnit ( testCase )
import Test.Framework ( Test, testGroup )
import Test.HUnit ( (@?=) )

testSuite :: Test
testSuite = testGroup "Darcs.UI.Commands.Convert.Export"
  [ testGroup "cleanPatchAuthor" $ flip map cleanPatchAuthorTestCases $ \(input, expected) ->
      testCase (show input) $ cleanPatchAuthor input @?= expected
  ]