perl-parser-core 0.13.3

Core parser engine for perl-parser
Documentation 
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123

#[cfg(test)]
mod tests {
    use crate::engine::parser::Parser;
    use perl_ast::ast::{Node, NodeKind, SourceLocation};

    fn parse_code(input: &str) -> Option<perl_ast::ast::Node> {
        let mut parser = Parser::new(input);
        parser.parse().ok()
    }

    #[test]
    fn test_match_bang_delimiter() {
        // AC1: recognize m!pattern!
        let source = "$text =~ m!pattern!;";
        let ast_opt = parse_code(source);
        assert!(ast_opt.is_some());
        let ast = ast_opt.unwrap_or_else(|| {
            Node::new(NodeKind::UnknownRest, SourceLocation { start: 0, end: 0 })
        });
        if let NodeKind::Program { statements } = &ast.kind {
            let stmt = &statements[0];
            if let NodeKind::ExpressionStatement { expression } = &stmt.kind {
                if let NodeKind::Binary { op, right, .. } = &expression.kind {
                    assert_eq!(op, "=~");
                    if let NodeKind::Regex { pattern, .. } = &right.kind {
                        assert_eq!(pattern, "!pattern!");
                    } else {
                        unreachable!("Expected Regex node, got {:?}", right.kind);
                    }
                }
            }
        }
    }

    #[test]
    fn test_match_brace_delimiter() {
        // AC2: recognize m{pattern} with nested braces
        let source = "$text =~ m{pat{tern}};";
        let ast_opt = parse_code(source);
        assert!(ast_opt.is_some());
        let ast = ast_opt.unwrap_or_else(|| {
            Node::new(NodeKind::UnknownRest, SourceLocation { start: 0, end: 0 })
        });
        if let NodeKind::Program { statements } = &ast.kind {
            let stmt = &statements[0];
            if let NodeKind::ExpressionStatement { expression } = &stmt.kind {
                if let NodeKind::Binary { op, right, .. } = &expression.kind {
                    assert_eq!(op, "=~");
                    if let NodeKind::Regex { pattern, .. } = &right.kind {
                        assert_eq!(pattern, "{pat{tern}}");
                    }
                }
            }
        }
    }

    #[test]
    fn test_substitution_pipe_delimiter() {
        // AC3: recognize s|old|new|g
        let source = "$text =~ s|old|new|g;";
        let ast_opt = parse_code(source);
        assert!(ast_opt.is_some());
        let ast = ast_opt.unwrap_or_else(|| {
            Node::new(NodeKind::UnknownRest, SourceLocation { start: 0, end: 0 })
        });
        if let NodeKind::Program { statements } = &ast.kind {
            let stmt = &statements[0];
            if let NodeKind::ExpressionStatement { expression } = &stmt.kind {
                if let NodeKind::Binary { op, right, .. } = &expression.kind {
                    assert_eq!(op, "=~");
                    if let NodeKind::Substitution { pattern, replacement, modifiers, .. } =
                        &right.kind
                    {
                        assert_eq!(pattern, "old");
                        assert_eq!(replacement, "new");
                        assert!(modifiers.contains('g'));
                    } else {
                        unreachable!("Expected Substitution node, got {:?}", right.kind);
                    }
                }
            }
        }
    }

    #[test]
    fn test_match_modifiers_bang() {
        // AC4: correct parsing of modifiers after arbitrary delimiters
        let source = "m!pattern!i;";
        let ast_opt = parse_code(source);
        assert!(ast_opt.is_some());
        let ast = ast_opt.unwrap_or_else(|| {
            Node::new(NodeKind::UnknownRest, SourceLocation { start: 0, end: 0 })
        });
        if let NodeKind::Program { statements } = &ast.kind {
            let stmt = &statements[0];
            if let NodeKind::ExpressionStatement { expression } = &stmt.kind {
                if let NodeKind::Regex { modifiers, .. } = &expression.kind {
                    assert_eq!(modifiers, "i");
                }
            }
        }
    }

    #[test]
    fn test_slash_compatibility() {
        // AC6: backward compatibility with slash delimiter
        let source = "/pattern/i;";
        let ast_opt = parse_code(source);
        assert!(ast_opt.is_some());
        let ast = ast_opt.unwrap_or_else(|| {
            Node::new(NodeKind::UnknownRest, SourceLocation { start: 0, end: 0 })
        });
        if let NodeKind::Program { statements } = &ast.kind {
            let stmt = &statements[0];
            if let NodeKind::ExpressionStatement { expression } = &stmt.kind {
                if let NodeKind::Regex { pattern, modifiers, .. } = &expression.kind {
                    assert_eq!(pattern, "/pattern/");
                    assert_eq!(modifiers, "i");
                }
            }
        }
    }
}