1mod perl_command;
2pub use perl_command::*;
3
4mod perl_config;
5pub use perl_config::*;
6
7pub mod process_util;
8
9#[cfg(test)]
10mod tests {
11 #[test]
12 fn it_works() {
13 let cfg = super::PerlConfig::default();
14 assert!(cfg.read_ccopts().unwrap().len() > 0);
15 assert!(cfg.read_ldopts().unwrap().len() > 0);
16 }
17
18 #[test]
19 fn can_read_config() {
20 let cfg = super::PerlConfig::default();
21 let perl_version = cfg.dict.get("PERL_VERSION");
22 assert_ne!(perl_version, None);
23 if let Some(ver) = perl_version {
24 let script = r#"
25use strict;
26use Config;
27print "PERL_VERSION\t", $Config{PERL_VERSION};
28"#;
29 assert_eq!(super::process_util::process_command_output(
30 cfg.command(&["-e", script]).output().unwrap()
31 ).unwrap(), ["PERL_VERSION", ver].join("\t"))
32 }
33 }
34}