src/test/java/org/shedlang/compiler/parser/ParserWhenTests.java


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

package org.shedlang.compiler.parser;

import org.junit.jupiter.api.Test;

import static org.shedlang.compiler.ast.untyped.UntypedNodeMatchers.*;
import static org.shedlang.compiler.parser.ParserTesting.parseString;
import static org.zwobble.precisely.AssertThat.assertThat;
import static org.zwobble.precisely.Matchers.isOptionalOf;
import static org.zwobble.precisely.Matchers.isSequence;

public class ParserWhenTests {
    @Test
    public void canParseWhen() {
        var source = """
            when (x) {
                is A {
                    return 4;
                }
                is B {
                }
            }
        """;

        var node = parseString(source, Parser::parseTopLevelExpression);

        assertThat(node, isUntypedWhenNode(
            isUntypedReferenceNode("x"),
            isSequence(
                isUntypedWhenCaseNode(
                    isUntypedTypeLevelReferenceNode("A"),
                    isUntypedBlockNode(isSequence(
                        isUntypedFunctionReturnNode(isOptionalOf(isUntypedIntLiteralNode(4)))
                    ))
                ),
                isUntypedWhenCaseNode(
                    isUntypedTypeLevelReferenceNode("B"),
                    isUntypedBlockNode(isSequence())
                )
            )
        ));
    }
}