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

use proptest::prelude::*;

/// Generate glob expression samples.
pub fn glob_in_context() -> impl Strategy<Value = String> {
    prop_oneof![
        Just("my @files = glob \"*.pl\";\n".to_string()),
        Just("my @files = <*.pm>;\n".to_string()),
        Just("my @all = glob \"**/*.pm\";\n".to_string()),
        Just("my @hidden = glob \".*\";\n".to_string()),
        Just("while (my $file = glob \"*.txt\") {\n    print $file;\n}\n".to_string(),),
        Just("my @matches = glob \"file{1,2,3}.txt\";\n".to_string()),
        Just("my @chars = glob \"[a-z]*.pl\";\n".to_string()),
    ]
}

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

    proptest! {
        #[test]
        fn glob_contains_pattern(code in glob_in_context()) {
            assert!(code.contains("glob") || code.contains("<"));
        }
    }
}