hsini-0.5.2: tst/ReaderI.hs

{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE TemplateHaskell #-}

-- Copyright : 2011-2014 Magnus Therning
-- License   : BSD3
module ReaderI (
    allTests,
) where

import Test.Tasty
import Test.Tasty.HUnit
import Test.Tasty.TH
import Text.ParserCombinators.Parsec as P

import Data.Ini.Reader.Internals

-- Convenience function that translates a parser result to something that's
-- easier to check.
p2E p s t =
    let
        res = P.parse p s t
     in
        case res of
            Left _ -> Left "bad"
            Right e -> Right e

-- {{{1 secParser
case_secParserAllowedChars1 =
    let
        expected = Right $ SectionL "foo"
        actual = p2E secParser "sec" "[foo]\n"
     in
        expected @=? actual

case_secParserAllowedChars2 =
    let
        expected = Right $ SectionL "FooBar"
        actual = p2E secParser "sec" "[FooBar]\n"
     in
        expected @=? actual

case_secParserAllowedChars3 =
    let
        expected = Right $ SectionL "@Foo/Bar-"
        actual = p2E secParser "sec" "[@Foo/Bar-]\n"
     in
        expected @=? actual

case_secParserAllowedChars4 =
    let
        expected = Right $ SectionL "foo123"
        actual = p2E secParser "sec" "[foo123]\n"
     in
        expected @=? actual

case_secParserAllowedChars5 =
    let
        expected = Right $ SectionL "_foo"
        actual = p2E secParser "sec" "[_foo]\n"
     in
        expected @=? actual

case_secParserDropSpace =
    let
        expected = Right $ SectionL "foo"
        actual = p2E secParser "sec" "[ \tfoo\t ]\n"
     in
        expected @=? actual

case_secParserDropTrailing =
    let
        expected = Right $ SectionL "foo"
        actual = p2E secParser "sec" "[foo]  \t foobar\n"
     in
        expected @=? actual

case_secParserAllowGit1 =
    let
        expected = Right $ SectionL "branch \"master\""
        actual = p2E secParser "sec" "[branch \"master\"]\n"
     in
        expected @=? actual

case_secParserAllowGit2 =
    let
        expected = Right $ SectionL "foo \"bar.baz\""
        actual = p2E secParser "sec" "[foo \"bar.baz\"]\n"
     in
        expected @=? actual

-- {{{1 optLineParser
case_optLineParserAllowedChars1 =
    let
        expected = Right $ OptionL "foo" "bar"
        actual = p2E optLineParser "optLine" "foo=bar\n"
     in
        expected @=? actual

case_optLineParserAllowedChars2 =
    let
        expected = Right $ OptionL "Foo" "bAr"
        actual = p2E optLineParser "optLine" "Foo=bAr\n"
     in
        expected @=? actual

case_optLineParserAllowedChars3 =
    let
        expected = Right $ OptionL "foo@/foo-" "bar"
        actual = p2E optLineParser "optLine" "foo@/foo-=bar\n"
     in
        expected @=? actual

case_optLineParserAllowedChars4 =
    let
        expected = Right $ OptionL "foo123" "bar"
        actual = p2E optLineParser "optLine" "foo123=bar\n"
     in
        expected @=? actual

case_optLineParserAllowedChars5 =
    let
        expected = Right $ OptionL "_foo" "bar"
        actual = p2E optLineParser "optLine" "_foo=bar\n"
     in
        expected @=? actual

case_optLineParserAllowedChars6 =
    let
        expected = Right $ OptionL "foo bar" "baz"
        actual = p2E optLineParser "optLine" "foo bar=baz\n"
     in
        expected @=? actual

case_optLineParserDisallowedChars1 =
    let
        expected = Left "bad"
        actual = p2E optLineParser "optLine" "foo.bar=baz\n"
     in
        expected @=? actual

case_optLineParserDropSpace =
    let
        expected = Right $ OptionL "foo" "bar"
        actual = p2E optLineParser "optLine" " \tfoo\t \t=\t \t bar\n"
     in
        expected @=? actual

case_optLineParserKeepSpace =
    let
        expected = Right $ OptionL "foo" "bar \t \t"
        actual = p2E optLineParser "optLine" "foo\t \t=\t \t bar \t \t\n"
     in
        expected @=? actual

-- {{{1 optContParser
case_optContParserSpace =
    let
        expected = Right $ OptionContL "foo"
        actual = p2E optContParser "optCont" " foo\n"
     in
        expected @=? actual

case_optContParserTab =
    let
        expected = Right $ OptionContL "foo"
        actual = p2E optContParser "optCont" "\tfoo\n"
     in
        expected @=? actual

case_optContParserKeepTrailing =
    let
        expected = Right $ OptionContL "foo  \t\t"
        actual = p2E optContParser "optCont" "\tfoo  \t\t\n"
     in
        expected @=? actual

-- {{{1 noiseParser
case_noiseParserEmptyLine =
    let
        expected = Right CommentL
        actual = p2E noiseParser "noise" "\n"
     in
        expected @=? actual

case_noiseParserComment1 =
    let
        expected = Right CommentL
        actual = p2E noiseParser "noise" "# a comment\n"
     in
        expected @=? actual

case_noiseParserComment2 =
    let
        expected = Right CommentL
        actual = p2E noiseParser "noise" "; another comment\n"
     in
        expected @=? actual

case_noiseParserNonEmpty =
    let
        expected = Left "bad"
        actual = p2E noiseParser "noise" " \n"
     in
        expected @=? actual

-- {{{1 iniParser
case_iniParserEmpty :: Assertion
case_iniParserEmpty = expected @=? actual
  where
    expected = Right []
    actual = p2E iniParser "parsing empty file" ""

-- {{{1 buildConfig
-- TBD

allTests :: TestTree
allTests = $(testGroupGenerator)