#![feature(test)]

extern crate test;

use anyhow::Error;
use spack::{loaders::swc::SwcLoader, resolvers::NodeResolver};
use std::{
    collections::HashMap,
    env,
    fs::{create_dir_all, read_dir},
    io::{self},
    path::{Path, PathBuf},
    sync::Arc,
};
use swc::config::SourceMapsConfig;
use swc_atoms::js_word;
use swc_bundler::{BundleKind, Bundler, Config, ModuleRecord};
use swc_common::{FileName, Span, GLOBALS};
use swc_ecma_ast::{
    Bool, Expr, ExprOrSuper, Ident, KeyValueProp, Lit, MemberExpr, MetaPropExpr, PropName, Str,
};
use swc_ecma_parser::JscTarget;
use swc_ecma_transforms::fixer;
use swc_ecma_visit::FoldWith;
use test::{
    test_main, DynTestFn, Options, ShouldPanic::No, TestDesc, TestDescAndFn, TestName, TestType,
};
use testing::NormalizedOutput;
use walkdir::WalkDir;

fn add_test<F: FnOnce() + Send + 'static>(
    tests: &mut Vec<TestDescAndFn>,
    name: String,
    ignore: bool,
    f: F,
) {
    tests.push(TestDescAndFn {
        desc: TestDesc {
            test_type: TestType::UnitTest,
            name: TestName::DynTestName(name.replace("-", "_").replace("/", "::")),
            ignore,
            should_panic: No,
            allow_fail: false,
        },
        testfn: DynTestFn(Box::new(f)),
    });
}

fn reference_tests(tests: &mut Vec<TestDescAndFn>, errors: bool) -> Result<(), io::Error> {
    let root = {
        let mut root = Path::new(env!("CARGO_MANIFEST_DIR")).to_path_buf();
        root.push("tests");
        root.push(if errors { "error" } else { "pass" });
        root
    };

    eprintln!("Loading tests from {}", root.display());

    let dir = root;

    for entry in WalkDir::new(&dir).into_iter() {
        let entry = entry?;
        if !entry.path().join("input").exists() {
            continue;
        }

        let ignore = entry
            .path()
            .file_name()
            .unwrap()
            .to_string_lossy()
            .starts_with(".");

        let dir_name = entry
            .path()
            .strip_prefix(&dir)
            .expect("failed to strip prefix")
            .to_str()
            .unwrap()
            .to_string();

        let _ = create_dir_all(entry.path().join("output"));

        let entries = read_dir(entry.path().join("input"))?
            .filter(|e| match e {
                Ok(e) => {
                    if e.path()
                        .file_name()
                        .unwrap()
                        .to_string_lossy()
                        .starts_with("entry")
                    {
                        true
                    } else {
                        false
                    }
                }
                _ => false,
            })
            .map(|e| -> Result<_, io::Error> {
                let e = e?;
                Ok((
                    e.file_name().to_string_lossy().to_string(),
                    FileName::Real(e.path()),
                ))
            })
            .collect::<Result<HashMap<_, _>, _>>()?;

        let name = format!(
            "fixture::{}::{}",
            if errors { "error" } else { "pass" },
            dir_name
        );

        let ignore = ignore
            || !name.contains(
                &env::var("TEST")
                    .ok()
                    .unwrap_or("".into())
                    .replace("::", "/")
                    .replace("_", "-"),
            );

        add_test(tests, name, ignore, move || {
            eprintln!("\n\n========== Running reference test {}\n", dir_name);

            testing::run_test2(false, |cm, handler| {
                let compiler = Arc::new(swc::Compiler::new(cm.clone(), Arc::new(handler)));

                GLOBALS.set(compiler.globals(), || {
                    let loader = SwcLoader::new(
                        compiler.clone(),
                        swc::config::Options {
                            swcrc: true,
                            ..Default::default()
                        },
                    );
                    let bundler = Bundler::new(
                        compiler.globals(),
                        cm.clone(),
                        &loader,
                        NodeResolver::new(),
                        Config {
                            require: true,
                            disable_inliner: true,
                            module: Default::default(),
                            external_modules: vec![
                                "assert",
                                "buffer",
                                "child_process",
                                "console",
                                "cluster",
                                "crypto",
                                "dgram",
                                "dns",
                                "events",
                                "fs",
                                "http",
                                "http2",
                                "https",
                                "net",
                                "os",
                                "path",
                                "perf_hooks",
                                "process",
                                "querystring",
                                "readline",
                                "repl",
                                "stream",
                                "string_decoder",
                                "timers",
                                "tls",
                                "tty",
                                "url",
                                "util",
                                "v8",
                                "vm",
                                "wasi",
                                "worker",
                                "zlib",
                            ]
                            .into_iter()
                            .map(From::from)
                            .collect(),
                        },
                        Box::new(Hook),
                    );

                    let modules = bundler
                        .bundle(entries)
                        .map_err(|err| println!("{:?}", err))?;
                    println!("Bundled as {} modules", modules.len());

                    let mut error = false;

                    for bundled in modules {
                        let code = compiler
                            .print(
                                &bundled.module.fold_with(&mut fixer(None)),
                                JscTarget::Es2020,
                                SourceMapsConfig::Bool(false),
                                None,
                                false,
                            )
                            .expect("failed to print?")
                            .code;

                        let name = match bundled.kind {
                            BundleKind::Named { name } | BundleKind::Lib { name } => {
                                PathBuf::from(name)
                            }
                            BundleKind::Dynamic => format!("dynamic.{}.js", bundled.id).into(),
                        };

                        let output_path = entry
                            .path()
                            .join("output")
                            .join(name.file_name().unwrap())
                            .with_extension("js");

                        println!("Printing {}", output_path.display());

                        // {
                        //     let status = Command::new("node")
                        //         .arg(&output_path)
                        //         .stdout(Stdio::inherit())
                        //         .stderr(Stdio::inherit())
                        //         .status()
                        //         .unwrap();
                        //     assert!(status.success());
                        // }

                        let s = NormalizedOutput::from(code);

                        match s.compare_to_file(&output_path) {
                            Ok(_) => {}
                            Err(err) => {
                                println!("Diff: {:?}", err);
                                error = true;
                            }
                        }
                    }

                    if error {
                        return Err(());
                    }

                    Ok(())
                })
            })
            .expect("failed to process a module");
        });
    }

    Ok(())
}

#[test]
fn pass() {
    let _ = pretty_env_logger::try_init();

    let args: Vec<_> = env::args().collect();
    let mut tests = Vec::new();
    reference_tests(&mut tests, false).unwrap();
    test_main(&args, tests, Some(Options::new()));
}

#[test]
#[ignore]
fn errors() {
    let _ = pretty_env_logger::try_init();

    let args: Vec<_> = env::args().collect();
    let mut tests = Vec::new();
    reference_tests(&mut tests, true).unwrap();
    test_main(&args, tests, Some(Options::new()));
}

struct Hook;

impl swc_bundler::Hook for Hook {
    fn get_import_meta_props(
        &self,
        span: Span,
        module_record: &ModuleRecord,
    ) -> Result<Vec<KeyValueProp>, Error> {
        Ok(vec![
            KeyValueProp {
                key: PropName::Ident(Ident::new(js_word!("url"), span)),
                value: Box::new(Expr::Lit(Lit::Str(Str {
                    span,
                    value: module_record.file_name.to_string().into(),
                    has_escape: false,
                    kind: Default::default(),
                }))),
            },
            KeyValueProp {
                key: PropName::Ident(Ident::new(js_word!("main"), span)),
                value: Box::new(if module_record.is_entry {
                    Expr::Member(MemberExpr {
                        span,
                        obj: ExprOrSuper::Expr(Box::new(Expr::MetaProp(MetaPropExpr {
                            meta: Ident::new(js_word!("import"), span),
                            prop: Ident::new(js_word!("meta"), span),
                        }))),
                        prop: Box::new(Expr::Ident(Ident::new(js_word!("main"), span))),
                        computed: false,
                    })
                } else {
                    Expr::Lit(Lit::Bool(Bool { span, value: false }))
                }),
            },
        ])
    }
}