1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
module Language.Futhark.SemanticTests (tests) where
import Language.Futhark (ImportName (..))
import Language.Futhark.Semantic
import Test.Tasty
import Test.Tasty.HUnit
tests :: TestTree
tests =
testGroup
"Semantic objects"
[ testCase "a" $
mkInitialImport "a" @?= ImportName "a",
testCase "./a" $
mkInitialImport "./a" @?= ImportName "a",
testCase "a/b -> ../c" $
mkImportFrom (mkInitialImport "a/b") "../c" @?= ImportName "c",
testCase "a/b -> ../../c" $
mkImportFrom (mkInitialImport "a/b") "../../c" @?= ImportName "../c",
testCase "../a -> b" $
mkImportFrom (mkInitialImport "../a") "b" @?= ImportName "../b",
testCase "../a -> ../b" $
mkImportFrom (mkInitialImport "../a") "../b" @?= ImportName "../../b"
]
|
