perl-corpus 0.12.2

Test corpus management and generators for Perl parsers
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

use proptest::prelude::*;

fn file_path() -> impl Strategy<Value = String> {
    prop::sample::select(vec![
        "\"input.txt\"".to_string(),
        "\"output.log\"".to_string(),
        "\"./data.pl\"".to_string(),
        "\"/tmp/report.txt\"".to_string(),
    ])
}

fn handle_name() -> impl Strategy<Value = String> {
    prop::sample::select(vec![
        "$fh".to_string(),
        "$in".to_string(),
        "$out".to_string(),
        "$log".to_string(),
    ])
}

/// Generate I/O and filehandle statements in context.
pub fn io_in_context() -> impl Strategy<Value = String> {
    prop_oneof![
        (handle_name(), file_path()).prop_map(|(handle, file)| {
            format!(
                "open my {}, '<', {} or die $!;\nmy $line = <{}>;\n",
                handle, file, handle
            )
        }),
        (handle_name(), file_path()).prop_map(|(handle, file)| {
            format!(
                "open my {}, '>', {} or die $!;\nprint {{{}}} \"hello\\n\";\n",
                handle, file, handle
            )
        }),
        (handle_name(), file_path()).prop_map(|(handle, file)| {
            format!(
                "open my {}, '>>', {} or die $!;\nprint {} \"append\\n\";\n",
                handle, file, handle
            )
        }),
        (handle_name(), file_path()).prop_map(|(handle, file)| {
            format!(
                "sysopen my {}, {}, 0 or die $!;\nbinmode {};\n",
                handle, file, handle
            )
        }),
        Just(
            "opendir my $dh, \".\" or die $!;\nmy @entries = readdir $dh;\nclosedir $dh;\n"
                .to_string(),
        ),
        Just(
            "pipe my $reader, my $writer;\nprint {$writer} \"data\\n\";\nclose $writer;\nmy $line = <$reader>;\n"
                .to_string(),
        ),
        Just(
            "open my $fh, '<', \"input.txt\" or die $!;\nseek $fh, 0, 0;\nmy $pos = tell $fh;\n"
                .to_string(),
        ),
        Just(
            "open my $fh, '<', \"input.txt\" or die $!;\nmy $buf = \"\";\nsysread $fh, $buf, 128;\n"
                .to_string(),
        ),
        Just(
            "open my $fh, \"<:encoding(UTF-8)\", \"file.txt\" or die $!;\nbinmode $fh, \":raw\";\n"
                .to_string(),
        ),
        Just(
            "open my $fh, '>', \"output.log\" or die $!;\nmy $bytes = syswrite $fh, \"payload\\n\";\n"
                .to_string(),
        ),
        Just(
            "my $data = \"hello\\nworld\\n\";\nopen my $fh, '<', \\$data or die $!;\nmy $line = <$fh>;\n"
                .to_string(),
        ),
        Just(
            "open my $fh, '<', \"input.txt\" or die $!;\nwhile (my $line = <$fh>) {\n    print $line;\n}\n"
                .to_string(),
        ),
        Just(
            "open my $fh, '>', \"output.log\" or die $!;\nmy $old = select($fh);\n$| = 1;\nselect($old);\n"
                .to_string(),
        ),
    ]
}

#[cfg(test)]
mod tests {
    use super::*;

    proptest! {
        #[test]
        fn io_snippets_include_io_keywords(code in io_in_context()) {
            assert!(
                code.contains("open")
                    || code.contains("opendir")
                    || code.contains("pipe")
                    || code.contains("sysopen")
                    || code.contains("sysread")
                    || code.contains("syswrite")
                    || code.contains("select"),
                "Expected IO keywords in: {}",
                code
            );
        }
    }
}