1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18

extern crate libperl_sys;

pub mod perl;
pub use perl::*;

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

    #[test]
    fn it_works() {
        let mut perl = Perl::new();
        
        // Below is expected to generate an error like following:
        // Global symbol "$foo" requires explicit package name (did you forget to declare "my $foo"?) at -e line 1.
        let _rc = perl.parse(&["", "-e", r#"use strict; $foo"#], &[""]);
    }
}