diff options
author | Yann Herklotz <git@ymhg.org> | 2019-05-13 20:50:01 +0100 |
---|---|---|
committer | Yann Herklotz <git@ymhg.org> | 2019-05-13 20:50:01 +0100 |
commit | 76e9b994258d9af87868ba9f420db4ee1c29de67 (patch) | |
tree | f11b3729582a21ea31555a9106d2190e180e2ce9 /test/Unit.hs | |
parent | 3ddfc0111566113b3ec15725cb5ced6dea531a3a (diff) | |
download | verismith-76e9b994258d9af87868ba9f420db4ee1c29de67.tar.gz verismith-76e9b994258d9af87868ba9f420db4ee1c29de67.zip |
Format with brittany
Diffstat (limited to 'test/Unit.hs')
-rw-r--r-- | test/Unit.hs | 56 |
1 files changed, 28 insertions, 28 deletions
diff --git a/test/Unit.hs b/test/Unit.hs index 013d595..84508c4 100644 --- a/test/Unit.hs +++ b/test/Unit.hs @@ -15,9 +15,9 @@ unitTests :: TestTree unitTests = testGroup "Unit tests" [ testCase "Transformation of AST" $ assertEqual - "Successful transformation" - transformExpectedResult - (transform trans transformTestData) + "Successful transformation" + transformExpectedResult + (transform trans transformTestData) , parseUnitTests , reduceUnitTests ] @@ -43,17 +43,19 @@ transformTestData = BinOp ) ) BinOr - (Concat $ - ( Concat $ - (Concat $ (Id "id1") :| [Id "id2", Id "id2"]) :| - [ Id "id2" - , Id "id2" - , (Concat $ (Id "id2") :| [Id "id2", (Concat $ Id "id1" :| [Id "id2"])]) - , Id "id2" - ] - ) :| [ Id "id1" - , Id "id2" - ] + ( Concat + $ ( Concat + $ (Concat $ (Id "id1") :| [Id "id2", Id "id2"]) + :| [ Id "id2" + , Id "id2" + , ( Concat + $ (Id "id2") + :| [Id "id2", (Concat $ Id "id1" :| [Id "id2"])] + ) + , Id "id2" + ] + ) + :| [Id "id1", Id "id2"] ) ) @@ -78,20 +80,18 @@ transformExpectedResult = BinOp ) ) BinOr - (Concat $ - ( Concat $ - (Concat $ (Id "id1") :| [Id "Replaced", Id "Replaced"]) :| - [ Id "Replaced" - , Id "Replaced" - , Concat $ - Id "Replaced" :| - [ Id "Replaced" - , Concat $ Id "id1" :| [Id "Replaced"] - ] - , Id "Replaced" - ] ) :| [ Id "id1" - , Id "Replaced" - ] + ( Concat + $ ( Concat + $ (Concat $ (Id "id1") :| [Id "Replaced", Id "Replaced"]) + :| [ Id "Replaced" + , Id "Replaced" + , Concat + $ Id "Replaced" + :| [Id "Replaced", Concat $ Id "id1" :| [Id "Replaced"]] + , Id "Replaced" + ] + ) + :| [Id "id1", Id "Replaced"] ) ) |