gluon 0.4.1

#![cfg(feature = "nightly")]
extern crate compiletest_rs as compiletest;
extern crate env_logger;

use std::env;
use std::fs;
use std::path::{Path, PathBuf};


fn lib_dir(out_dir: &Path, lib_name: &str) -> PathBuf {
    // Just loading gluon through -L dir does not work as we compile gluon with different sets of flags which
    // gives ambiguity errors.
    // Instead retrieve the latest compiled gluon library which should usually be the correct one
    let mut gluon_rlibs: Vec<_> = fs::read_dir(out_dir.join("deps"))
        .unwrap()
        .filter_map(|entry| {
            let entry = entry.expect("dir entry");
            if entry
                   .path()
                   .to_str()
                   .map_or(false, |name| name.contains(lib_name)) {
                Some(entry)
            } else {
                None
            }
        })
        .collect();
    gluon_rlibs.sort_by(|l, r| {
                            l.metadata()
                                .unwrap()
                                .modified()
                                .unwrap()
                                .cmp(&r.metadata().unwrap().modified().unwrap())
                        });
    gluon_rlibs.last().expect("libgluon not found").path()
}

fn run_mode(mode: &'static str) {
    // Retrieve the path where library dependencies are output
    let mut out_dir = PathBuf::from(env::var("OUT_DIR").unwrap());
    loop {
        match out_dir.file_name() {
            Some(name) => {
                match name.to_str() {
                    Some(name) if name == "debug" => break,
                    _ => (),
                }
            }
            None => break,
        }
        out_dir.pop();
    }
    let gluon_rlib = lib_dir(&out_dir, "libgluon-");
    let gluon_vm_rlib = lib_dir(&out_dir, "libgluon_vm-");

    let mut config = compiletest::default_config();
    let cfg_mode = mode.parse().ok().expect("Invalid mode");

    config.verbose = true;
    config.mode = cfg_mode;
    config.src_base = PathBuf::from(format!("tests/{}", mode));
    config.target_rustcflags = Some(format!("-L {}/deps --extern gluon={} --extern gluon_vm={}",
                                            out_dir.display(),
                                            gluon_rlib.display(),
                                            gluon_vm_rlib.display()));
    println!("{}", config.target_rustcflags.as_ref().unwrap());
    compiletest::run_tests(&config);
}

#[test]
fn compile_test() {
    let _ = env_logger::init();
    run_mode("compile-fail");
}