perl-corpus 0.13.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

use proptest::prelude::*;

use super::qw::identifier;

fn array_name() -> impl Strategy<Value = String> {
    identifier()
}

fn map_block() -> impl Strategy<Value = String> {
    (array_name(), array_name())
        .prop_map(|(src, dest)| format!("my @{} = map {{ $_ * 2 }} @{};\n", dest, src))
}

fn map_empty_block() -> impl Strategy<Value = String> {
    (array_name(), array_name())
        .prop_map(|(src, dest)| format!("my @{} = map {{ }} @{};\n", dest, src))
}

fn grep_block() -> impl Strategy<Value = String> {
    (array_name(), array_name())
        .prop_map(|(src, dest)| format!("my @{} = grep {{ $_ % 2 == 0 }} @{};\n", dest, src))
}

fn grep_empty_block() -> impl Strategy<Value = String> {
    (array_name(), array_name())
        .prop_map(|(src, dest)| format!("my @{} = grep {{ }} @{};\n", dest, src))
}

fn sort_block() -> impl Strategy<Value = String> {
    (array_name(), array_name())
        .prop_map(|(src, dest)| format!("my @{} = sort {{ $a <=> $b }} @{};\n", dest, src))
}

fn sort_simple() -> impl Strategy<Value = String> {
    (array_name(), array_name()).prop_map(|(src, dest)| format!("my @{} = sort @{};\n", dest, src))
}

/// Generate map/grep/sort list-operator statements.
pub fn list_op_in_context() -> impl Strategy<Value = String> {
    prop_oneof![
        map_block(),
        map_empty_block(),
        grep_block(),
        grep_empty_block(),
        sort_block(),
        sort_simple(),
    ]
}

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

    proptest! {
        #[test]
        fn list_ops_include_keyword(code in list_op_in_context()) {
            assert!(
                code.contains("map") || code.contains("grep") || code.contains("sort"),
                "Expected list op keyword in: {}",
                code
            );
        }
    }
}