diskplan-traversal 0.1.0

use anyhow::Result;

#[test]
fn match_binds_for_reuse() -> Result<()> {
    assert_effect_of! {
        under: "/root"
        applying: "
            $var/
                sub/
                    $var/
            "
        onto: "/root"
        with:
            directories:
                "/root"
                "/root/existing"
        yields:
            directories:
                "/root/existing/sub"
                "/root/existing/sub/existing"
    }
}

#[test]
fn let_binds_for_reuse() -> Result<()> {
    assert_effect_of! {
        under: "/root"
        applying: "
            :let var = explicit
            $var/
                sub/
                    $var/
            "
        onto: "/root"
        with:
            directories:
                "/root"
        yields:
            directories:
                "/root/explicit"
                "/root/explicit/sub"
                "/root/explicit/sub/explicit"
    }
}

#[test]
fn match_still_happens_with_let() -> Result<()> {
    assert_effect_of! {
        under: "/root"
        applying: "
            :let var = explicit
            $var/
                sub/
                    $var/
            "
        onto: "/root"
        with:
            directories:
                "/root"
                "/root/existing"
        yields:
            directories:
                "/root/explicit"
                "/root/explicit/sub"
                "/root/explicit/sub/explicit"
                "/root/existing/sub"
                "/root/existing/sub/existing"
    }
}

#[test]
fn let_overrides_match() -> Result<()> {
    assert_effect_of! {
        under: "/root"
        applying: "
            $var/
                :let var = explicit
                sub/
                    $var/
            "
        onto: "/root"
        with:
            directories:
                "/root"
                "/root/existing"
        yields:
            directories:
                "/root/existing/sub"
                "/root/existing/sub/explicit"
    }
}

#[test]
fn let_overrides_let() -> Result<()> {
    assert_effect_of! {
        under: "/root"
        applying: "
            :let var = first
            $var/
                :let var = second
                sub/
                    $var/
            "
        onto: "/root"
        with:
            directories:
                "/root"
        yields:
            directories:
                "/root/first"
                "/root/first/sub"
                "/root/first/sub/second"
    }
}

#[test]
fn name_from_use_target_not_definition() -> Result<()> {
    assert_effect_of!(
        under: "/"
        applying: "
            :def defname/
                :let complex = pre_${NAME}_post
                $complex/
            usename/
                :use defname
            "
        onto: "/"
        yields:
            directories:
                "/usename"
                "/usename/pre_usename_post"
    )
}

#[test]
fn variable_not_matching_deeper() -> Result<()> {
    // TODO: Consider if this should be an error, or warning at least
    assert_effect_of!(
        under: "/"
        applying: "
            :let variable = aaa
            
            $variable/
                :match b+
                VARIABLE/
            "
        onto: "/"
        yields:
            // Doesn't create /aaa/VARIABLE
    )
}

#[test]
fn variable_will_not_match_other() -> Result<()> {
    assert_effect_of!(
        under: "/"
        applying: "
            :let variable = aaa
            
            $variable/
                :match b+
                VARIABLE/
            $other/
                :match a+
                OTHER/
            "
        onto: "/"
        yields:
            // Doesn't create /aaa/OTHER
    )
}

#[test]
fn repeat_variable_binding() -> Result<()> {
    assert_effect_of!(
        under: "/"
        applying: "
            :let variable = aaa
            
            $variable/
                :match a+
                VAR_A/
            $variable/
                :match b+
                VAR_B/
            "
        onto: "/"
        yields:
            directories:
                "/aaa"
                "/aaa/VAR_A"
    )
}