NGLess-1.4.0: Tests-Src/Tests/Language.hs

{-# LANGUAGE TemplateHaskell, QuasiQuotes #-}
module Tests.Language
    ( tgroup_Language
    ) where

import Test.Tasty.TH
import Test.Tasty.HUnit

import Language

tgroup_Language = $(testGroupGenerator)

case_staticValue1 =
    staticValue (ListExpression [ConstStr "Hello"
                    , BinaryOp BOpPathAppend
                                (ConstStr "results-dir")
                                (ConstStr "output.txt")])
        @=? (Just $ NGOList [NGOString "Hello", NGOString "results-dir/output.txt"])

case_staticValue2 = do
    staticValue (ListExpression [ConstStr "Hello"
                    , BinaryOp BOpPathAppend
                                (ConstStr "results-dir")
                                (ConstStr "output.txt")
                    , Lookup Nothing (Variable "nope")])
        @=? Nothing