mod test_helpers;

use anyhow::Result;
use test_helpers::{assert_language, assert_round_trip};
use uriparse::uri::URI as Uri;
use vcard4::{
    helper::{
        parse_date_list, parse_date_time_list, parse_time_list,
        parse_timestamp, parse_utc_offset,
    },
    parameter::{TypeParameter, ValueType},
    parse,
    property::{AnyProperty, DateAndOrTime},
};

#[test]
fn extension_text() -> Result<()> {
    let input = r#"BEGIN:VCARD
VERSION:4.0
FN:Jane Doe
X-FOO;VALUE=text:This is some text.
END:VCARD"#;
    let mut vcards = parse(input)?;
    assert_eq!(1, vcards.len());
    let card = vcards.remove(0);

    let prop = card.extensions.get(0).unwrap();

    assert!(prop.group.is_none());
    assert_eq!("X-FOO", &prop.name);
    assert_eq!(
        &ValueType::Text,
        prop.parameters.as_ref().unwrap().value.as_ref().unwrap()
    );
    assert_eq!(
        &AnyProperty::Text("This is some text.".to_string()),
        &prop.value
    );

    assert_round_trip(&card)?;

    // No VALUE parameter uses text by default
    let input = r#"BEGIN:VCARD
VERSION:4.0
FN:Jane Doe
X-FOO:This is some text.
END:VCARD"#;
    let mut vcards = parse(input)?;
    assert_eq!(1, vcards.len());
    let card = vcards.remove(0);

    let prop = card.extensions.get(0).unwrap();
    assert!(prop.group.is_none());
    assert_eq!("X-FOO", &prop.name);
    assert_eq!(
        &AnyProperty::Text("This is some text.".to_string()),
        &prop.value
    );
    assert_round_trip(&card)?;

    Ok(())
}

#[test]
fn extension_uri() -> Result<()> {
    let input = r#"BEGIN:VCARD
VERSION:4.0
FN:Jane Doe
X-FOO;VALUE=uri:http://example.com/foo
END:VCARD"#;
    let mut vcards = parse(input)?;
    assert_eq!(1, vcards.len());
    let card = vcards.remove(0);

    let prop = card.extensions.get(0).unwrap();

    assert!(prop.group.is_none());
    assert_eq!("X-FOO", &prop.name);
    assert_eq!(
        &ValueType::Uri,
        prop.parameters.as_ref().unwrap().value.as_ref().unwrap()
    );
    assert_eq!(
        &AnyProperty::Uri(
            Uri::try_from("http://example.com/foo")?.into_owned()
        ),
        &prop.value
    );

    assert_round_trip(&card)?;
    Ok(())
}

#[test]
fn extension_date_only() -> Result<()> {
    let input = r#"BEGIN:VCARD
VERSION:4.0
FN:Jane Doe
X-FOO;VALUE=date:20221107
END:VCARD"#;
    let mut vcards = parse(input)?;
    assert_eq!(1, vcards.len());
    let card = vcards.remove(0);

    let prop = card.extensions.get(0).unwrap();

    assert!(prop.group.is_none());
    assert_eq!("X-FOO", &prop.name);
    assert_eq!(
        &ValueType::Date,
        prop.parameters.as_ref().unwrap().value.as_ref().unwrap()
    );

    let expected = parse_date_list("20221107")?;
    assert_eq!(&AnyProperty::Date(expected), &prop.value);

    assert_round_trip(&card)?;
    Ok(())
}

#[test]
fn extension_time_only() -> Result<()> {
    let input = r#"BEGIN:VCARD
VERSION:4.0
FN:Jane Doe
X-FOO;VALUE=time:2200,1800Z,140000-0800
END:VCARD"#;
    let mut vcards = parse(input)?;
    assert_eq!(1, vcards.len());
    let card = vcards.remove(0);

    let prop = card.extensions.get(0).unwrap();

    assert!(prop.group.is_none());
    assert_eq!("X-FOO", &prop.name);
    assert_eq!(
        &ValueType::Time,
        prop.parameters.as_ref().unwrap().value.as_ref().unwrap()
    );

    let expected = parse_time_list("2200,1800Z,140000-0800")?;
    assert_eq!(&AnyProperty::Time(expected), &prop.value);

    assert_round_trip(&card)?;
    Ok(())
}

#[test]
fn extension_date_time_only() -> Result<()> {
    let input = r#"BEGIN:VCARD
VERSION:4.0
FN:Jane Doe
X-FOO;VALUE=date-time:20221107T2200
END:VCARD"#;
    let mut vcards = parse(input)?;
    assert_eq!(1, vcards.len());
    let card = vcards.remove(0);

    let prop = card.extensions.get(0).unwrap();

    assert!(prop.group.is_none());
    assert_eq!("X-FOO", &prop.name);
    assert_eq!(
        &ValueType::DateTime,
        prop.parameters.as_ref().unwrap().value.as_ref().unwrap()
    );

    let expected = parse_date_time_list("20221107T2200")?;
    assert_eq!(&AnyProperty::DateTime(expected), &prop.value);

    assert_round_trip(&card)?;
    Ok(())
}

#[test]
fn extension_date_and_or_time() -> Result<()> {
    let input = r#"BEGIN:VCARD
VERSION:4.0
FN:Jane Doe
X-FOO;VALUE=date-and-or-time:19961022T140000
END:VCARD"#;
    let mut vcards = parse(input)?;
    assert_eq!(1, vcards.len());
    let card = vcards.remove(0);

    let prop = card.extensions.get(0).unwrap();

    assert!(prop.group.is_none());
    assert_eq!("X-FOO", &prop.name);
    assert_eq!(
        &ValueType::DateAndOrTime,
        prop.parameters.as_ref().unwrap().value.as_ref().unwrap()
    );

    let value = "19961022T140000";
    let expected: DateAndOrTime = value.parse()?;
    assert_eq!(&AnyProperty::DateAndOrTime(vec![expected]), &prop.value);

    assert_round_trip(&card)?;
    Ok(())
}

#[test]
fn extension_timestamp() -> Result<()> {
    let input = r#"BEGIN:VCARD
VERSION:4.0
FN:Jane Doe
X-FOO;VALUE=timestamp:19961022T140000-05
END:VCARD"#;
    let mut vcards = parse(input)?;
    assert_eq!(1, vcards.len());
    let card = vcards.remove(0);

    let prop = card.extensions.get(0).unwrap();

    assert!(prop.group.is_none());
    assert_eq!("X-FOO", &prop.name);
    assert_eq!(
        &ValueType::Timestamp,
        prop.parameters.as_ref().unwrap().value.as_ref().unwrap()
    );

    let value = "19961022T140000-05";
    let expected = parse_timestamp(value)?;
    assert_eq!(&AnyProperty::Timestamp(vec![expected]), &prop.value);

    assert_round_trip(&card)?;
    Ok(())
}

#[test]
fn extension_boolean() -> Result<()> {
    let input = r#"BEGIN:VCARD
VERSION:4.0
FN:Jane Doe
X-FOO;VALUE=boolean:True
END:VCARD"#;
    let mut vcards = parse(input)?;
    assert_eq!(1, vcards.len());
    let card = vcards.remove(0);

    let prop = card.extensions.get(0).unwrap();

    assert!(prop.group.is_none());
    assert_eq!("X-FOO", &prop.name);
    assert_eq!(
        &ValueType::Boolean,
        prop.parameters.as_ref().unwrap().value.as_ref().unwrap()
    );

    assert_eq!(&AnyProperty::Boolean(true), &prop.value);

    assert_round_trip(&card)?;
    Ok(())
}

#[test]
fn extension_integer() -> Result<()> {
    let input = r#"BEGIN:VCARD
VERSION:4.0
FN:Jane Doe
X-FOO;VALUE=integer:42
END:VCARD"#;
    let mut vcards = parse(input)?;
    assert_eq!(1, vcards.len());
    let card = vcards.remove(0);

    let prop = card.extensions.get(0).unwrap();

    assert!(prop.group.is_none());
    assert_eq!("X-FOO", &prop.name);
    assert_eq!(
        &ValueType::Integer,
        prop.parameters.as_ref().unwrap().value.as_ref().unwrap()
    );

    assert_eq!(&AnyProperty::Integer(vec![42]), &prop.value);

    assert_round_trip(&card)?;
    Ok(())
}

#[test]
fn extension_float() -> Result<()> {
    let input = r#"BEGIN:VCARD
VERSION:4.0
FN:Jane Doe
X-FOO;VALUE=float:3.14,1.67
END:VCARD"#;
    let mut vcards = parse(input)?;
    assert_eq!(1, vcards.len());
    let card = vcards.remove(0);

    let prop = card.extensions.get(0).unwrap();

    assert!(prop.group.is_none());
    assert_eq!("X-FOO", &prop.name);
    assert_eq!(
        &ValueType::Float,
        prop.parameters.as_ref().unwrap().value.as_ref().unwrap()
    );

    assert_eq!(&AnyProperty::Float(vec![3.14, 1.67]), &prop.value);

    assert_round_trip(&card)?;
    Ok(())
}

#[test]
fn extension_utc_offset() -> Result<()> {
    let input = r#"BEGIN:VCARD
VERSION:4.0
FN:Jane Doe
X-FOO;VALUE=utc-offset:-0500
END:VCARD"#;
    let mut vcards = parse(input)?;
    assert_eq!(1, vcards.len());
    let card = vcards.remove(0);

    let prop = card.extensions.get(0).unwrap();

    assert!(prop.group.is_none());
    assert_eq!("X-FOO", &prop.name);
    assert_eq!(
        &ValueType::UtcOffset,
        prop.parameters.as_ref().unwrap().value.as_ref().unwrap()
    );

    let expected = parse_utc_offset("-0500")?;
    assert_eq!(&AnyProperty::UtcOffset(expected), &prop.value);

    assert_round_trip(&card)?;
    Ok(())
}

#[test]
fn extension_language_tag() -> Result<()> {
    let input = r#"BEGIN:VCARD
VERSION:4.0
FN:Jane Doe
X-FOO;VALUE=language-tag:fr
END:VCARD"#;
    let mut vcards = parse(input)?;
    assert_eq!(1, vcards.len());
    let card = vcards.remove(0);

    let prop = card.extensions.get(0).unwrap();

    assert!(prop.group.is_none());
    assert_eq!("X-FOO", &prop.name);
    assert_eq!(
        &ValueType::LanguageTag,
        prop.parameters.as_ref().unwrap().value.as_ref().unwrap()
    );

    if let AnyProperty::Language(value) = &prop.value {
        assert_language(value, "fr")?;
    } else {
        panic!("expecting LanguageTag variant");
    }

    assert_round_trip(&card)?;
    Ok(())
}

#[test]
fn extension_parameter() -> Result<()> {
    let input = r#"BEGIN:VCARD
VERSION:4.0
FN:Jane Doe
X-FOO;X-QUX=baz,zub;x-foo=bar;VALUE=text:BAR
END:VCARD"#;
    let mut vcards = parse(input)?;
    assert_eq!(1, vcards.len());
    let card = vcards.remove(0);

    let prop = card.extensions.get(0).unwrap();

    assert!(prop.group.is_none());
    assert_eq!("X-FOO", &prop.name);
    assert_eq!(
        &ValueType::Text,
        prop.parameters.as_ref().unwrap().value.as_ref().unwrap()
    );

    assert_eq!(
        Some(vec![
            ("X-QUX".to_owned(), vec!["baz".to_owned(), "zub".to_owned()]),
            ("x-foo".to_owned(), vec!["bar".to_owned()])
        ]),
        prop.parameters.as_ref().unwrap().extensions
    );

    assert_eq!(&AnyProperty::Text("BAR".to_string()), &prop.value);

    assert_round_trip(&card)?;
    Ok(())
}

#[test]
fn extension_with_type() -> Result<()> {
    let input = r#"BEGIN:VCARD
VERSION:4.0
FN:Jane Doe
X-FOO;TYPE=baz:BAR
END:VCARD"#;
    let mut vcards = parse(input)?;
    assert_eq!(1, vcards.len());
    let card = vcards.remove(0);

    let prop = card.extensions.get(0).unwrap();

    assert!(prop.group.is_none());
    assert_eq!("X-FOO", &prop.name);
    assert_eq!(
        &vec![TypeParameter::Extension("baz".to_string())],
        prop.parameters.as_ref().unwrap().types.as_ref().unwrap()
    );

    assert_eq!(AnyProperty::Text("BAR".to_string()), prop.value);

    assert_round_trip(&card)?;
    Ok(())
}