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
124
125
126
127
128
129
130
131
132
133
134
135

#[cfg(test)]
mod tests {
    use crate::engine::parser::Parser;

    /// Helper: parse code and assert no errors were produced.
    fn assert_parses_without_errors(input: &str) {
        let mut parser = Parser::new(input);
        let output = parser.parse_with_recovery();
        let sexp = output.ast.to_sexp();
        assert!(
            !sexp.contains("ERROR"),
            "Expected no ERROR nodes for input: {}\nAST: {}",
            input,
            sexp,
        );
        assert!(
            output.diagnostics.is_empty(),
            "Expected no diagnostics for input: {}\nDiagnostics: {:?}",
            input,
            output.diagnostics,
        );
    }

    #[test]
    fn test_chdir_builtin() {
        assert_parses_without_errors("chdir $dir;");
    }

    #[test]
    fn test_chmod_builtin() {
        assert_parses_without_errors("chmod 0755, $file;");
    }

    #[test]
    fn test_substr_builtin() {
        assert_parses_without_errors("substr($str, 0, 5);");
    }

    #[test]
    fn test_kill_builtin() {
        assert_parses_without_errors("kill 9, $pid;");
    }

    #[test]
    fn test_mkdir_builtin() {
        assert_parses_without_errors("mkdir $path;");
    }

    #[test]
    fn test_rmdir_builtin() {
        assert_parses_without_errors("rmdir $dir;");
    }

    #[test]
    fn test_unlink_builtin() {
        assert_parses_without_errors("unlink $file;");
    }

    #[test]
    fn test_rename_builtin() {
        assert_parses_without_errors("rename $old, $new;");
    }

    #[test]
    fn test_stat_builtin() {
        assert_parses_without_errors("stat $file;");
    }

    #[test]
    fn test_opendir_readdir_closedir() {
        assert_parses_without_errors("opendir $dh, $dir;");
        assert_parses_without_errors("readdir $dh;");
        assert_parses_without_errors("closedir $dh;");
    }

    #[test]
    fn test_socket_builtins() {
        assert_parses_without_errors("socket $sock, $domain, $type, $proto;");
        assert_parses_without_errors("connect $sock, $addr;");
        assert_parses_without_errors("listen $sock, $backlog;");
        assert_parses_without_errors("accept $new, $sock;");
        assert_parses_without_errors("shutdown $sock, $how;");
        assert_parses_without_errors("send $sock, $msg, $flags;");
        assert_parses_without_errors("recv $sock, $buf, $len, $flags;");
    }

    #[test]
    fn test_string_builtins() {
        assert_parses_without_errors("lc $str;");
        assert_parses_without_errors("uc $str;");
        assert_parses_without_errors("lcfirst $str;");
        assert_parses_without_errors("ucfirst $str;");
        assert_parses_without_errors("length $str;");
        assert_parses_without_errors("reverse $str;");
        assert_parses_without_errors("index $str, $substr;");
        assert_parses_without_errors("rindex $str, $substr;");
    }

    #[test]
    fn test_pack_unpack() {
        assert_parses_without_errors("pack $template, @values;");
        assert_parses_without_errors("unpack $template, $data;");
    }

    #[test]
    fn test_process_builtins() {
        assert_parses_without_errors("waitpid $pid, $flags;");
        assert_parses_without_errors("alarm $seconds;");
        assert_parses_without_errors("sleep $seconds;");
    }

    #[test]
    fn test_conversion_builtins() {
        assert_parses_without_errors("chr $num;");
        assert_parses_without_errors("ord $char;");
        assert_parses_without_errors("hex $str;");
        assert_parses_without_errors("oct $str;");
    }

    #[test]
    fn test_eval_require_do() {
        assert_parses_without_errors("eval $code;");
        assert_parses_without_errors("require $module;");
        assert_parses_without_errors("do $file;");
    }

    #[test]
    fn test_misc_builtins() {
        assert_parses_without_errors("crypt $plain, $salt;");
        assert_parses_without_errors("quotemeta $str;");
        assert_parses_without_errors("fileno $fh;");
        assert_parses_without_errors("pos $str;");
        assert_parses_without_errors("prototype $func;");
    }
}