use insta::assert_display_snapshot;
use rested::{
    fmt,
    parser::{ast::Program, ast_visit::VisitWith},
};

macro_rules! assert_fmt {
    ($input:literal) => {
        let program = Program::from($input);

        let formatted_text = program
            .to_formatted_string()
            .expect("formatted text should contain only valid syntax");

        assert_display_snapshot!(formatted_text);
    };
}

macro_rules! assert_error {
    ($input:literal) => {
        let program = Program::from($input);

        let mut formatter = fmt::FormattedPrinter::new();

        program.visit_with(&mut formatter);

        assert!(
            formatter.error.is_some(),
            "we should have collected an error"
        );
    };
}

#[test]
fn it_works() {
    assert_fmt!(
        r#"
set BASE_URL 
  env("hi")

let t = {
  value: 23,
  love: "you",
  hello: {
    world: true, test: {
      ing: "true", wow: { b: 122 }
    }
  }
}


let l 
= t

        let l = [null, t]

let l = { l: l,
   k: "asdf"
}

let m = json(
l
)

let a = [m]

let c = json(
[
{ "asdf": true, test: 12434,
a: 124, b: [
{
we: 123
}
]
}]
)

get /admin {
   header "Content-Type" "application/json"
   body json({"a": 12, t: true}) }

[test, 12, {ness: false, wow: [1, 2,3]}]

post `${env
    ("b_url")}/asdf${}` {
   header "Content-Type" "application/json"
   body m }


let sort = "asc"
let filter = "active"
@dbg
get `http://localhost:8080/api?sort=${sort}&filter=${filter}`


@name(
    "lovely"
    )
get 
    `http://localhost:8080/api?sort=${sort}&filter=${filter}`

let a = read("testasdf.rd")

let string = `
${
    a
}
content
text content

`

post /time {
  body a
}

get `${env("base")}/wer` {}

post /adsf {
  header "Authorization" env("token") 
  body json(true)
}
"#
    );

    assert_fmt!(
        r#"let base = env("base")

set BASE_URL base
        "#
    );

    assert_fmt!(
        r#"//let base = env("base")

set BASE_URL base
        "#
    );
}

#[test]
fn it_echos_line_comments() {
    assert_fmt!(
        r#"
set BASE_URL 
  env("hi")

// let t = {
//   value: 23,
//   love: "you",
//   hello: {
//     world: true, test: {
//       ing: "true", wow: { b: 122 }
//     }
//   }
// }


post `${env
    ("b_url")}/asdf${}` {
   header "Content-Type" "application/json"
       // This a line comment
       // And this is another
   body m }


// let l 
// = t
//
//         let l = [null, t]
"#
    );

    assert_fmt!(
        r#"
    let a = [true, 12, 34,

    // line comment
    1253, "asdf"
    // wow
    ]
    "#
    );

    assert_fmt!(
        r#"
    let a = [true, 12, 34,

    // line comment
    1253, "asdf"
    // wow
    {
        a: b,
        c: "d",
        e: ["asdfv", 3, 
         // well
        ]
    }
    ]
    "#
    );
}

#[test]
fn it_stacks_consecutive_let_statements() {
    assert_fmt!(
        r#"
set BASE_URL 
  env("hi")

let t = {
  value: 23,
  love: "you",
  hello: {
    world: true, test: {
      ing: "true", wow: { b: 122 }
    }
  }
}
let one = 1

let two = 3
// line comment
// line comment 2
// 33
//
//

    let s = "tring"
    let str = "ing"
    let st = "ring"


post `${env
    ("b_url")}/asdf${}` {
   header "Content-Type" "application/json"
       // This a line comment
       // And this is another
   body m }


let l 
= t

        let l = [null, t]
        let aa = ["true", true, { a: 5
        }]
"#
    );
}

#[test]
fn it_collect_an_error_on_bad_syntax() {
    assert_error!(
        r#"
set BASE_URL 
  env("hi")

let a = [m]

get /admin {
   header "Content-Type" "application/json"
   body json({'a': 12, t: true}) }

[test, 12, {ness: false, wow: [1, 2,3]}]

post `${env
    ("b_url")}/asdf${}` {
   header "Content-Type" "application/json"
   body m }
"#
    );
}

#[test]
fn it_formats_template_strings() {
    assert_fmt!(
        r#"set BASE_URL base

let hey = `asdf ${
    `${`${"adsfasdf"}`}asdfa`
} asdfasdf ${base} asdf`

let port = "3000""#
    );

    assert_fmt!(
        r#"get    `http://localhost:8080/api?sort=${sort}&filter=${
        filter
    }` // line comment"#
    );
}

#[test]
fn it_formats_json_object() {
    assert_fmt!(
        r#"
    let   o = {
    get: "value",
    post: 123,
    put: { author: "Me" },
    patch: true, delete: false, set: "true",
    let: view,
    null: null, header: "",
    body: "",
}"#
    );
}

#[test]
fn it_formats_object_literals_with_line_comments() {
    assert_fmt!(
        r#"
let o = {
    key: "value",
    // akey: 123,
    love: [
        "asdf",
        // asdf,
        12
    ]
}"#
    );

    assert_fmt!(
        r#"
let o = { key: "value",
// akey: 123,
        love: [
        "asdf",
            // asdf,
        {
            then: "able",
            arr: ["asdfv,", 123, true, 
                 // asdf
         false,
                 null
            ] } ]
}"#
    );
}