use test_harness::fs;
use test_harness::test;
use test_harness::GhcidNgBuilder;
use test_harness::Matcher;

/// Test that `ghcid-ng` can run its lifecycle hooks.
///
/// The strategy here is to set a bunch of hooks that print simple messages. We use multiple hooks
/// just to test that it's allowed. Then we trigger the events that make the hooks run and confirm
/// that the hooks run.
#[test]
async fn can_run_hooks() {
    let mut session = GhcidNgBuilder::new("tests/data/simple")
        .with_args([
            "--after-startup-ghci",
            "putStrLn \"after-startup-1\"",
            "--after-startup-ghci",
            "putStrLn \"after-startup-2\"",
            "--before-reload-ghci",
            "putStrLn \"before-reload-1\"",
            "--before-reload-ghci",
            "putStrLn \"before-reload-2\"",
            "--after-reload-ghci",
            "putStrLn \"after-reload-1\"",
            "--after-reload-ghci",
            "putStrLn \"after-reload-2\"",
            "--before-restart-ghci",
            "putStrLn \"before-restart-1\"",
            "--before-restart-ghci",
            "putStrLn \"before-restart-2\"",
            "--after-restart-ghci",
            "putStrLn \"after-restart-1\"",
            "--after-restart-ghci",
            "putStrLn \"after-restart-2\"",
        ])
        .start()
        .await
        .expect("ghcid-ng starts");

    session
        .assert_logged(
            Matcher::message("Running after-startup command")
                .with_field("command", "putStrLn \"after-startup-1\""),
        )
        .await
        .unwrap();
    session
        .assert_logged(Matcher::message("Read line").with_field("line", "^after-startup-1$"))
        .await
        .unwrap();

    session
        .assert_logged(
            Matcher::message("Running after-startup command")
                .with_field("command", "putStrLn \"after-startup-2\""),
        )
        .await
        .unwrap();
    session
        .assert_logged(Matcher::message("Read line").with_field("line", "^after-startup-2$"))
        .await
        .unwrap();

    session.wait_until_ready().await.unwrap();

    fs::touch(session.path("src/MyLib.hs")).await.unwrap();

    // Before reload
    session
        .assert_logged(
            Matcher::message("Running before-reload command")
                .with_field("command", "putStrLn \"before-reload-1\""),
        )
        .await
        .unwrap();
    session
        .assert_logged(Matcher::message("Read line").with_field("line", "^before-reload-1$"))
        .await
        .unwrap();

    session
        .assert_logged(
            Matcher::message("Running before-reload command")
                .with_field("command", "putStrLn \"before-reload-2\""),
        )
        .await
        .unwrap();
    session
        .assert_logged(Matcher::message("Read line").with_field("line", "^before-reload-2$"))
        .await
        .unwrap();

    // After reload
    session
        .assert_logged(
            Matcher::message("Running after-reload command")
                .with_field("command", "putStrLn \"after-reload-1\""),
        )
        .await
        .unwrap();
    session
        .assert_logged(Matcher::message("Read line").with_field("line", "^after-reload-1$"))
        .await
        .unwrap();

    session
        .assert_logged(
            Matcher::message("Running after-reload command")
                .with_field("command", "putStrLn \"after-reload-2\""),
        )
        .await
        .unwrap();
    session
        .assert_logged(Matcher::message("Read line").with_field("line", "^after-reload-2$"))
        .await
        .unwrap();

    fs::remove(session.path("src/MyModule.hs")).await.unwrap();
    // Before restart
    session
        .assert_logged(
            Matcher::message("Running before-restart command")
                .with_field("command", "putStrLn \"before-restart-1\""),
        )
        .await
        .unwrap();
    session
        .assert_logged(Matcher::message("Read line").with_field("line", "^before-restart-1$"))
        .await
        .unwrap();

    session
        .assert_logged(
            Matcher::message("Running before-restart command")
                .with_field("command", "putStrLn \"before-restart-2\""),
        )
        .await
        .unwrap();
    session
        .assert_logged(Matcher::message("Read line").with_field("line", "^before-restart-2$"))
        .await
        .unwrap();

    // After restart
    session
        .assert_logged(
            Matcher::message("Running after-restart command")
                .with_field("command", "putStrLn \"after-restart-1\""),
        )
        .await
        .unwrap();
    session
        .assert_logged(Matcher::message("Read line").with_field("line", "^after-restart-1$"))
        .await
        .unwrap();

    session
        .assert_logged(
            Matcher::message("Running after-restart command")
                .with_field("command", "putStrLn \"after-restart-2\""),
        )
        .await
        .unwrap();
    session
        .assert_logged(Matcher::message("Read line").with_field("line", "^after-restart-2$"))
        .await
        .unwrap();
}