use markdown::{message, to_html_with_options, CompileOptions, Constructs, Options, ParseOptions};
use pretty_assertions::assert_eq;

#[test]
fn wikilinks() -> Result<(), message::Message> {
    let backlinks = Options {
        compile: CompileOptions {
            ..Default::default()
        },
        parse: ParseOptions {
            constructs: Constructs {
                wikilink: true,
                ..Default::default()
            },
            ..Default::default()
        },
    };

    assert_eq!(
        to_html_with_options("[[backlink]]()", &backlinks).unwrap(),
        "<p><strong>backlink</strong>()</p>",
        "should support backlinks"
    );

    Ok(())
}

#[test]
fn wikilink_retrocompat() -> Result<(), message::Message> {
    let danger = Options {
        parse: ParseOptions {
            constructs: Constructs {
                wikilink: true,
                ..Default::default()
            },
            ..Default::default()
        },
        compile: CompileOptions {
            allow_dangerous_html: true,
            allow_dangerous_protocol: true,
            ..Default::default()
        },
        ..Default::default()
    };

    assert_eq!(
        to_html_with_options("[link](/uri \"title\")", &danger)?,
        "<p><a href=\"/uri\" title=\"title\">link</a></p>",
        "should support links"
    );

    assert_eq!(
        to_html_with_options("[link](/uri)", &danger)?,
        "<p><a href=\"/uri\">link</a></p>",
        "should support links w/o title"
    );

    assert_eq!(
        to_html_with_options("[link]()", &danger)?,
        "<p><a href=\"\">link</a></p>",
        "should support links w/o destination"
    );

    assert_eq!(
        to_html_with_options("[link](<>)", &danger)?,
        "<p><a href=\"\">link</a></p>",
        "should support links w/ empty enclosed destination"
    );

    assert_eq!(
        to_html_with_options("[link](/my uri)", &danger)?,
        "<p>[link](/my uri)</p>",
        "should not support links w/ spaces in destination"
    );

    assert_eq!(
        to_html_with_options("[link](</my uri>)", &danger)?,
        "<p><a href=\"/my%20uri\">link</a></p>",
        "should support links w/ spaces in enclosed destination"
    );

    assert_eq!(
        to_html_with_options("[link](foo\nbar)", &danger)?,
        "<p>[link](foo\nbar)</p>",
        "should not support links w/ line endings in destination"
    );

    assert_eq!(
        to_html_with_options("[link](<foo\nbar>)", &danger)?,
        "<p>[link](<foo\nbar>)</p>",
        "should not support links w/ line endings in enclosed destination"
    );

    assert_eq!(
        to_html_with_options("[a](<b)c>)", &danger)?,
        "<p><a href=\"b)c\">a</a></p>",
        "should support links w/ closing parens in destination"
    );

    assert_eq!(
        to_html_with_options("[link](<foo\\>)", &danger)?,
        "<p>[link](&lt;foo&gt;)</p>",
        "should not support links w/ enclosed destinations w/o end"
    );

    assert_eq!(
        to_html_with_options("[a](<b)c\n[a](<b)c>\n[a](<b>c)", &danger)?,
        "<p>[a](&lt;b)c\n[a](&lt;b)c&gt;\n[a](<b>c)</p>",
        "should not support links w/ unmatched enclosed destinations"
    );

    assert_eq!(
        to_html_with_options("[link](\\(foo\\))", &danger)?,
        "<p><a href=\"(foo)\">link</a></p>",
        "should support links w/ destinations w/ escaped parens"
    );

    assert_eq!(
        to_html_with_options("[link](foo(and(bar)))", &danger)?,
        "<p><a href=\"foo(and(bar))\">link</a></p>",
        "should support links w/ destinations w/ balanced parens"
    );

    assert_eq!(
        to_html_with_options("[link](foo\\(and\\(bar\\))", &danger)?,
        "<p><a href=\"foo(and(bar)\">link</a></p>",
        "should support links w/ destinations w/ escaped parens"
    );

    assert_eq!(
        to_html_with_options("[link](<foo(and(bar)>)", &danger)?,
        "<p><a href=\"foo(and(bar)\">link</a></p>",
        "should support links w/ enclosed destinations w/ parens"
    );

    assert_eq!(
        to_html_with_options("[link](foo\\)\\:)", &danger)?,
        "<p><a href=\"foo):\">link</a></p>",
        "should support links w/ escapes in destinations"
    );

    assert_eq!(
        to_html_with_options("[link](#fragment)", &danger)?,
        "<p><a href=\"#fragment\">link</a></p>",
        "should support links w/ destinations to fragments"
    );

    assert_eq!(
        to_html_with_options("[link](http://example.com#fragment)", &danger)?,
        "<p><a href=\"http://example.com#fragment\">link</a></p>",
        "should support links w/ destinations to URLs w/ fragments"
    );

    assert_eq!(
        to_html_with_options("[link](http://example.com?foo=3#frag)", &danger)?,
        "<p><a href=\"http://example.com?foo=3#frag\">link</a></p>",
        "should support links w/ destinations to URLs w/ search and fragments"
    );

    assert_eq!(
        to_html_with_options("[link](foo\\bar)", &danger)?,
        "<p><a href=\"foo%5Cbar\">link</a></p>",
        "should not support non-punctuation character escapes in links"
    );

    assert_eq!(
        to_html_with_options("[link](foo%20b&auml;)", &danger)?,
        "<p><a href=\"foo%20b%C3%A4\">link</a></p>",
        "should support character references in links"
    );

    assert_eq!(
        to_html_with_options("[link](\"title\")", &danger)?,
        "<p><a href=\"%22title%22\">link</a></p>",
        "should not support links w/ only a title"
    );

    assert_eq!(
        to_html_with_options("[link](/url \"title\")", &danger)?,
        "<p><a href=\"/url\" title=\"title\">link</a></p>",
        "should support titles w/ double quotes"
    );

    assert_eq!(
        to_html_with_options("[link](/url 'title')", &danger)?,
        "<p><a href=\"/url\" title=\"title\">link</a></p>",
        "should support titles w/ single quotes"
    );

    assert_eq!(
        to_html_with_options("[link](/url (title))", &danger)?,
        "<p><a href=\"/url\" title=\"title\">link</a></p>",
        "should support titles w/ parens"
    );

    assert_eq!(
        to_html_with_options("[link](/url \"title \\\"&quot;\")", &danger)?,
        "<p><a href=\"/url\" title=\"title &quot;&quot;\">link</a></p>",
        "should support character references and escapes in titles"
    );

    assert_eq!(
        to_html_with_options("[link](/url \"title\")", &danger)?,
        "<p><a href=\"/url%C2%A0%22title%22\">link</a></p>",
        "should not support unicode whitespace between destination and title"
    );

    assert_eq!(
        to_html_with_options("[link](/url \"title \"and\" title\")", &danger)?,
        "<p>[link](/url &quot;title &quot;and&quot; title&quot;)</p>",
        "should not support nested balanced quotes in title"
    );

    assert_eq!(
        to_html_with_options("[link](/url 'title \"and\" title')", &danger)?,
        "<p><a href=\"/url\" title=\"title &quot;and&quot; title\">link</a></p>",
        "should support the other quotes in titles"
    );

    assert_eq!(
        to_html_with_options("[link](   /uri\n  \"title\"  )", &danger)?,
        "<p><a href=\"/uri\" title=\"title\">link</a></p>",
        "should support whitespace around destination and title (1)"
    );

    assert_eq!(
        to_html_with_options("[link](\t\n/uri \"title\")", &danger)?,
        "<p><a href=\"/uri\" title=\"title\">link</a></p>",
        "should support whitespace around destination and title (2)"
    );

    assert_eq!(
        to_html_with_options("[link](/uri  \"title\"\t\n)", &danger)?,
        "<p><a href=\"/uri\" title=\"title\">link</a></p>",
        "should support whitespace around destination and title (3)"
    );

    assert_eq!(
        to_html_with_options("[link] (/uri)", &danger)?,
        "<p>[link] (/uri)</p>",
        "should not support whitespace between label and resource"
    );

    assert_eq!(
        to_html_with_options("[link [foo [bar]]](/uri)", &danger)?,
        "<p><a href=\"/uri\">link [foo [bar]]</a></p>",
        "should support balanced brackets"
    );

    assert_eq!(
        to_html_with_options("[link] bar](/uri)", &danger)?,
        "<p>[link] bar](/uri)</p>",
        "should not support unbalanced brackets (1)"
    );

    assert_eq!(
        to_html_with_options("[link [bar](/uri)", &danger)?,
        "<p>[link <a href=\"/uri\">bar</a></p>",
        "should not support unbalanced brackets (2)"
    );

    assert_eq!(
        to_html_with_options("[link \\[bar](/uri)", &danger)?,
        "<p><a href=\"/uri\">link [bar</a></p>",
        "should support characer escapes"
    );

    assert_eq!(
        to_html_with_options("[link *foo **bar** `#`*](/uri)", &danger)?,
        "<p><a href=\"/uri\">link <em>foo <strong>bar</strong> <code>#</code></em></a></p>",
        "should support content"
    );

    assert_eq!(
        to_html_with_options("[![moon](moon.jpg)](/uri)", &danger)?,
        "<p><a href=\"/uri\"><img src=\"moon.jpg\" alt=\"moon\" /></a></p>",
        "should support an image as content"
    );

    assert_eq!(
        to_html_with_options("[foo [bar](/uri)](/uri)", &danger)?,
        "<p>[foo <a href=\"/uri\">bar</a>](/uri)</p>",
        "should not support links in links (1)"
    );

    assert_eq!(
        to_html_with_options("[foo *[bar [baz](/uri)](/uri)*](/uri)", &danger)?,
        "<p>[foo <em>[bar <a href=\"/uri\">baz</a>](/uri)</em>](/uri)</p>",
        "should not support links in links (2)"
    );

    assert_eq!(
        to_html_with_options("![[[foo](uri1)](uri2)](uri3)", &danger)?,
        "<p><img src=\"uri3\" alt=\"[foo](uri2)\" /></p>",
        "should not support links in links (3)"
    );

    assert_eq!(
        to_html_with_options("*[foo*](/uri)", &danger)?,
        "<p>*<a href=\"/uri\">foo*</a></p>",
        "should prefer links over emphasis (1)"
    );

    assert_eq!(
        to_html_with_options("[foo *bar](baz*)", &danger)?,
        "<p><a href=\"baz*\">foo *bar</a></p>",
        "should prefer links over emphasis (2)"
    );

    assert_eq!(
        to_html_with_options("[foo <bar attr=\"](baz)\">", &danger)?,
        "<p>[foo <bar attr=\"](baz)\"></p>",
        "should prefer HTML over links"
    );

    assert_eq!(
        to_html_with_options("[foo`](/uri)`", &danger)?,
        "<p>[foo<code>](/uri)</code></p>",
        "should prefer code over links"
    );

    assert_eq!(
        to_html_with_options("[foo<http://example.com/?search=](uri)>", &danger)?,
        "<p>[foo<a href=\"http://example.com/?search=%5D(uri)\">http://example.com/?search=](uri)</a></p>",
        "should prefer autolinks over links"
    );

    assert_eq!(
        to_html_with_options("[foo<http://example.com/?search=](uri)>", &danger)?,
        "<p>[foo<a href=\"http://example.com/?search=%5D(uri)\">http://example.com/?search=](uri)</a></p>",
        "should prefer autolinks over links"
    );

    // Extra
    assert_eq!(
        to_html_with_options("[]()", &danger)?,
        "<p><a href=\"\"></a></p>",
        "should support an empty link"
    );

    // See: <https://github.com/commonmark/commonmark.js/issues/192>
    assert_eq!(
        to_html_with_options("[](<> \"\")", &danger)?,
        "<p><a href=\"\"></a></p>",
        "should ignore an empty title"
    );

    assert_eq!(
        to_html_with_options("[a](<b>\"c\")", &danger)?,
        "<p>[a](<b>&quot;c&quot;)</p>",
        "should require whitespace between enclosed destination and title"
    );

    assert_eq!(
        to_html_with_options("[](<", &danger)?,
        "<p>[](&lt;</p>",
        "should not support an unclosed enclosed destination"
    );

    assert_eq!(
        to_html_with_options("[](", &danger)?,
        "<p>[](</p>",
        "should not support an unclosed destination"
    );

    assert_eq!(
        to_html_with_options("[](\\<)", &danger)?,
        "<p><a href=\"%3C\"></a></p>",
        "should support unenclosed link destination starting w/ escapes"
    );

    assert_eq!(
        to_html_with_options("[](<\\<>)", &danger)?,
        "<p><a href=\"%3C\"></a></p>",
        "should support enclosed link destination starting w/ escapes"
    );

    assert_eq!(
        to_html_with_options("[](\\", &danger)?,
        "<p>[](\\</p>",
        "should not support unenclosed link destination starting w/ an incorrect escape"
    );

    assert_eq!(
        to_html_with_options("[](<\\", &danger)?,
        "<p>[](&lt;\\</p>",
        "should not support enclosed link destination starting w/ an incorrect escape"
    );

    assert_eq!(
        to_html_with_options("[](a \"", &danger)?,
        "<p>[](a &quot;</p>",
        "should not support an eof in a link title (1)"
    );

    assert_eq!(
        to_html_with_options("[](a '", &danger)?,
        "<p>[](a '</p>",
        "should not support an eof in a link title (2)"
    );

    assert_eq!(
        to_html_with_options("[](a (", &danger)?,
        "<p>[](a (</p>",
        "should not support an eof in a link title (3)"
    );

    assert_eq!(
        to_html_with_options("[](a \"\\", &danger)?,
        "<p>[](a &quot;\\</p>",
        "should not support an eof in a link title escape (1)"
    );

    assert_eq!(
        to_html_with_options("[](a '\\", &danger)?,
        "<p>[](a '\\</p>",
        "should not support an eof in a link title escape (2)"
    );

    assert_eq!(
        to_html_with_options("[](a (\\", &danger)?,
        "<p>[](a (\\</p>",
        "should not support an eof in a link title escape (3)"
    );

    assert_eq!(
        to_html_with_options("[](a \"\\\"\")", &danger)?,
        "<p><a href=\"a\" title=\"&quot;\"></a></p>",
        "should support a character escape to start a link title (1)"
    );

    assert_eq!(
        to_html_with_options("[](a '\\'')", &danger)?,
        "<p><a href=\"a\" title=\"\'\"></a></p>",
        "should support a character escape to start a link title (2)"
    );

    assert_eq!(
        to_html_with_options("[](a (\\)))", &danger)?,
        "<p><a href=\"a\" title=\")\"></a></p>",
        "should support a character escape to start a link title (3)"
    );

    assert_eq!(
        to_html_with_options(
            "[&amp;&copy;&](example.com/&amp;&copy;& \"&amp;&copy;&\")",
            &danger
        )?,
        "<p><a href=\"example.com/&amp;%C2%A9&amp;\" title=\"&amp;©&amp;\">&amp;©&amp;</a></p>",
        "should support character references in links"
    );

    assert_eq!(
        to_html_with_options("[a](1())", &danger)?,
        "<p><a href=\"1()\">a</a></p>",
        "should support 1 set of parens"
    );

    assert_eq!(
        to_html_with_options("[a](1(2()))", &danger)?,
        "<p><a href=\"1(2())\">a</a></p>",
        "should support 2 sets of parens"
    );

    assert_eq!(
        to_html_with_options(
            "[a](1(2(3(4(5(6(7(8(9(10(11(12(13(14(15(16(17(18(19(20(21(22(23(24(25(26(27(28(29(30(31(32()))))))))))))))))))))))))))))))))", &danger)?,
        "<p><a href=\"1(2(3(4(5(6(7(8(9(10(11(12(13(14(15(16(17(18(19(20(21(22(23(24(25(26(27(28(29(30(31(32())))))))))))))))))))))))))))))))\">a</a></p>",
        "should support 32 sets of parens"
    );

    assert_eq!(
        to_html_with_options(
            "[a](1(2(3(4(5(6(7(8(9(10(11(12(13(14(15(16(17(18(19(20(21(22(23(24(25(26(27(28(29(30(31(32(33())))))))))))))))))))))))))))))))))", &danger)?,
        "<p>[a](1(2(3(4(5(6(7(8(9(10(11(12(13(14(15(16(17(18(19(20(21(22(23(24(25(26(27(28(29(30(31(32(33())))))))))))))))))))))))))))))))))</p>",
        "should not support 33 or more sets of parens"
    );

    assert_eq!(
        to_html_with_options("[a](b \"\n c\")", &danger)?,
        "<p><a href=\"b\" title=\"\nc\">a</a></p>",
        "should support an eol at the start of a title"
    );

    assert_eq!(
        to_html_with_options("[a](b( \"c\")", &danger)?,
        "<p>[a](b( &quot;c&quot;)</p>",
        "should not support whitespace when unbalanced in a raw destination"
    );

    assert_eq!(
        to_html_with_options("[a](\0)", &danger)?,
        "<p><a href=\"%EF%BF%BD\">a</a></p>",
        "should support a single NUL character as a link resource"
    );

    Ok(())
}