// Copyright 2013-2014 Simon Sapin.
//
// Licensed under the Apache License, Version 2.0 <LICENSE-APACHE or
// http://www.apache.org/licenses/LICENSE-2.0> or the MIT license
// <LICENSE-MIT or http://opensource.org/licenses/MIT>, at your
// option. This file may not be copied, modified, or distributed
// except according to those terms.


use std::char;
use std::u32;
use super::{Url, RelativeSchemeData, SchemeRelativeUrl, UserInfo, OtherSchemeData};


#[test]
fn test_url_parsing() {
    for test in parse_test_data(include_str!("urltestdata.txt")).move_iter() {
        let Test {
            input: input,
            base: base,
            scheme: expected_scheme,
            username: expected_username,
            password: expected_password,
            host: expected_host,
            port: expected_port,
            path: expected_path,
            query: expected_query,
            fragment: expected_fragment
        } = test;
        let base = match Url::parse(base.as_slice(), None) {
            Ok(base) => base,
            Err(message) => fail!("Error parsing base {:?}: {}", base, message)
        };
        let url = Url::parse(input.as_slice(), Some(&base));
        if expected_scheme.is_none() {
            assert!(url.is_err(), "Expected a parse error for URL {:?}", input);
            continue
        }
        let Url { scheme, scheme_data, query, fragment } = match url {
            Ok(url) => url,
            Err(message) => fail!("Error parsing URL {:?}: {}", input, message)
        };

        assert_eq!(Some(scheme), expected_scheme);
        match scheme_data {
            RelativeSchemeData(SchemeRelativeUrl { userinfo, host, port, path }) => {
                let (username, password) = match userinfo {
                    None => (StrBuf::new(), None),
                    Some(UserInfo { username, password }) => (username, password),
                };
                assert_eq!(username, expected_username);
                assert_eq!(password, expected_password);
                let host = host.serialize();
                assert_eq!(host, expected_host)
                assert_eq!(port, expected_port);
                assert_eq!(Some("/".to_strbuf().append(path.connect("/"))),
                           expected_path);
            },
            OtherSchemeData(scheme_data) => {
                assert_eq!(Some(scheme_data), expected_path);
                assert_eq!(StrBuf::new(), expected_username);
                assert_eq!(None, expected_password);
                assert_eq!(StrBuf::new(), expected_host);
                assert_eq!(StrBuf::new(), expected_port);
            },
        }
        fn opt_prepend(prefix: &str, opt_s: Option<StrBuf>) -> Option<StrBuf> {
            opt_s.map(|s| prefix.to_strbuf().append(s.as_slice()))
        }
        assert_eq!(opt_prepend("?", query), expected_query);
        assert_eq!(opt_prepend("#", fragment), expected_fragment);
    }
}

struct Test {
    input: StrBuf,
    base: StrBuf,
    scheme: Option<StrBuf>,
    username: StrBuf,
    password: Option<StrBuf>,
    host: StrBuf,
    port: StrBuf,
    path: Option<StrBuf>,
    query: Option<StrBuf>,
    fragment: Option<StrBuf>,
}

fn parse_test_data(input: &str) -> Vec<Test> {
    let mut tests: Vec<Test> = Vec::new();
    for line in input.lines() {
        if line == "" || line[0] == ('#' as u8) {
            continue
        }
        let mut pieces = line.split(' ').collect::<Vec<&str>>();
        let input = unescape(pieces.shift().unwrap());
        let mut test = Test {
            input: input,
            base: if pieces.is_empty() || *pieces.get(0) == "" {
                tests.last().unwrap().base.clone()
            } else {
                unescape(pieces.shift().unwrap())
            },
            scheme: None,
            username: StrBuf::new(),
            password: None,
            host: StrBuf::new(),
            port: StrBuf::new(),
            path: None,
            query: None,
            fragment: None,
        };
        for piece in pieces.move_iter() {
            if piece == "" || piece[0] == ('#' as u8) {
                continue
            }
            let colon = piece.find(':').unwrap();
            let value = unescape(piece.slice_from(colon + 1));
            match piece.slice_to(colon) {
                "s" => test.scheme = Some(value),
                "u" => test.username = value,
                "pass" => test.password = Some(value),
                "h" => test.host = value,
                "port" => test.port = value,
                "p" => test.path = Some(value),
                "q" => test.query = Some(value),
                "f" => test.fragment = Some(value),
                _ => fail!("Invalid token")
            }
        }
        tests.push(test)
    }
    tests
}

fn unescape(input: &str) -> StrBuf {
    let mut output = StrBuf::new();
    let mut chars = input.chars();
    loop {
        match chars.next() {
            None => return output,
            Some(c) => output.push_char(
                if c == '\\' {
                    match chars.next().unwrap() {
                        '\\' => '\\',
                        'n' => '\n',
                        'r' => '\r',
                        's' => ' ',
                        't' => '\t',
                        'f' => '\x0C',
                        'u' => {
                            let mut hex = StrBuf::new();
                            hex.push_char(chars.next().unwrap());
                            hex.push_char(chars.next().unwrap());
                            hex.push_char(chars.next().unwrap());
                            hex.push_char(chars.next().unwrap());
                            u32::parse_bytes(hex.as_bytes(), 16)
                                .and_then(char::from_u32).unwrap()
                        }
                        _ => fail!("Invalid test data input"),
                    }
                } else {
                    c
                }
            )
        }
    }
}