-- TerminalTest.hs

module TerminalTest (terminalTests) where

import Test.HUnit.Terminal
import Test.HUnit

try :: String -> String -> String -> Test
try lab inp exp' = lab ~: terminalAppearance inp ~?= exp'

terminalTests :: Test
terminalTests = test [
    try "empty" "" "",
    try "end in \\n" "abc\ndef\n" "abc\ndef\n",
    try "not end in \\n" "abc\ndef" "abc\ndef",
    try "return 1" "abc\ndefgh\rxyz" "abc\nxyzgh",
    try "return 2" "\nabcdefgh\rijklm\rxy\n" "\nxyklmfgh\n",
    try "return 3" "\r\rabc\r\rdef\r\r\r\nghi\r\r\n" "def\nghi\n",
    try "back 1" "abc\bdef\b\bgh\b" "abdgh",
    try "back 2" "abc\b\b\bdef\b\bxy\b\b\n" "dxy\n"
    -- \b at beginning of line
    -- nonprinting char
    ]