extern mod extra;

use extra::comm::DuplexStream;
use extra::future::Future;
use extra::time;
use extra::time::Timespec;
#[cfg(not(travis))] // Travis uses Postgres 9.1
use extra::json;
use extra::uuid::Uuid;
use std::f32;
use std::f64;
use std::rt::io::timer;

use super::{PostgresNoticeHandler,
            PostgresNotification,
            DbError,
            DnsError,
            MissingPassword,
            Position,
            PostgresConnection,
            PostgresDbError,
            PostgresStatement,
            ResultDescription};
use super::error::hack::{SyntaxError,
                         InvalidPassword,
                         QueryCanceled,
                         InvalidCatalogName};
use super::types::{ToSql, FromSql, PgInt4, PgVarchar};
use super::pool::PostgresConnectionPool;

#[test]
// Make sure we can take both connections at once and can still get one after
fn test_pool() {
    let pool = PostgresConnectionPool::new("postgres://postgres@localhost", 2);

    let (stream1, stream2) = DuplexStream::<(), ()>();

    let mut fut1 = do Future::spawn_with(pool.clone()) |pool| {
        let _conn = pool.get_connection();
        stream1.send(());
        stream1.recv();
    };

    let mut fut2 = do Future::spawn_with(pool.clone()) |pool| {
        let _conn = pool.get_connection();
        stream2.send(());
        stream2.recv();
    };

    fut1.get();
    fut2.get();

    pool.get_connection();
}

#[test]
fn test_non_default_database() {
    PostgresConnection::connect("postgres://postgres@localhost/postgres");
}

#[test]
fn test_url_terminating_slash() {
    PostgresConnection::connect("postgres://postgres@localhost/");
}

#[test]
fn test_prepare_err() {
    let conn = PostgresConnection::connect("postgres://postgres@localhost");
    match conn.try_prepare("invalid sql statment") {
        Err(PostgresDbError { code: SyntaxError, position: Some(Position(1)), _ }) => (),
        resp => fail!("Unexpected result {:?}", resp)
    }
}

#[test]
fn test_unknown_database() {
    match PostgresConnection::try_connect("postgres://postgres@localhost/asdf") {
        Err(DbError(PostgresDbError { code: InvalidCatalogName, _ })) => {}
        resp => fail!("Unexpected result {:?}", resp)
    }
}

#[test]
fn test_transaction_commit() {
    let conn = PostgresConnection::connect("postgres://postgres@localhost");
    conn.update("CREATE TEMPORARY TABLE foo (id INT PRIMARY KEY)", []);

    {
        let trans = conn.transaction();
        trans.update("INSERT INTO foo (id) VALUES ($1)", [&1i32 as &ToSql]);
    }

    let stmt = conn.prepare("SELECT * FROM foo");
    let result = stmt.query([]);

    assert_eq!(~[1i32], result.map(|row| { row[0] }).collect());
}

#[test]
fn test_transaction_rollback() {
    let conn = PostgresConnection::connect("postgres://postgres@localhost");
    conn.update("CREATE TEMPORARY TABLE foo (id INT PRIMARY KEY)", []);

    conn.update("INSERT INTO foo (id) VALUES ($1)", [&1i32 as &ToSql]);
    {
        let trans = conn.transaction();
        trans.update("INSERT INTO foo (id) VALUES ($1)", [&2i32 as &ToSql]);
        trans.set_rollback();
    }

    let stmt = conn.prepare("SELECT * FROM foo");
    let result = stmt.query([]);

    assert_eq!(~[1i32], result.map(|row| { row[0] }).collect());
}

#[test]
fn test_nested_transactions() {
    let conn = PostgresConnection::connect("postgres://postgres@localhost");
    conn.update("CREATE TEMPORARY TABLE foo (id INT PRIMARY KEY)", []);

    conn.update("INSERT INTO foo (id) VALUES (1)", []);

    {
        let trans1 = conn.transaction();
        trans1.update("INSERT INTO foo (id) VALUES (2)", []);

        {
            let trans2 = trans1.transaction();
            trans2.update("INSERT INTO foo (id) VALUES (3)", []);
            trans2.set_rollback();
        }

        {
            let trans2 = trans1.transaction();
            trans2.update("INSERT INTO foo (id) VALUES (4)", []);

            {
                let trans3 = trans2.transaction();
                trans3.update("INSERT INTO foo (id) VALUES (5)", []);
                trans3.set_rollback();
            }

            {
                let trans3 = trans2.transaction();
                trans3.update("INSERT INTO foo (id) VALUES (6)", []);
            }
        }

        let stmt = conn.prepare("SELECT * FROM foo ORDER BY id");
        let result = stmt.query([]);

        assert_eq!(~[1i32, 2, 4, 6], result.map(|row| { row[0] }).collect());

        trans1.set_rollback();
    }

    let stmt = conn.prepare("SELECT * FROM foo ORDER BY id");
    let result = stmt.query([]);

    assert_eq!(~[1i32], result.map(|row| { row[0] }).collect());
}

#[test]
fn test_query() {
    let conn = PostgresConnection::connect("postgres://postgres@localhost");
    conn.update("CREATE TEMPORARY TABLE foo (id BIGINT PRIMARY KEY)", []);
    conn.update("INSERT INTO foo (id) VALUES ($1), ($2)",
                 [&1i64 as &ToSql, &2i64 as &ToSql]);
    let stmt = conn.prepare("SELECT * from foo ORDER BY id");
    let result = stmt.query([]);

    assert_eq!(~[1i64, 2], result.map(|row| { row[0] }).collect());
}

#[test]
fn test_lazy_query() {
    let conn = PostgresConnection::connect("postgres://postgres@localhost");

    {
        let trans = conn.transaction();
        trans.update("CREATE TEMPORARY TABLE foo (id INT PRIMARY KEY)", []);
        let stmt = trans.prepare("INSERT INTO foo (id) VALUES ($1)");
        let values = ~[0i32, 1, 2, 3, 4, 5];
        for value in values.iter() {
            stmt.update([value as &ToSql]);
        }

        let stmt = trans.prepare("SELECT id FROM foo ORDER BY id");
        let result = stmt.lazy_query(2, []);
        assert_eq!(values, result.map(|row| { row[0] }).collect());

        trans.set_rollback();
    }
}

#[test]
fn test_param_types() {
    let conn = PostgresConnection::connect("postgres://postgres@localhost");
    let stmt = conn.prepare("SELECT $1::INT, $2::VARCHAR");
    assert_eq!(stmt.param_types(), [PgInt4, PgVarchar]);
}

#[test]
fn test_result_descriptions() {
    let conn = PostgresConnection::connect("postgres://postgres@localhost");
    let stmt = conn.prepare("SELECT 1::INT as a, 'hi'::VARCHAR as b");
    assert_eq!(stmt.result_descriptions(),
               [ResultDescription { name: ~"a", ty: PgInt4},
                ResultDescription { name: ~"b", ty: PgVarchar}]);
}

fn test_type<T: Eq+FromSql+ToSql>(sql_type: &str, checks: &[(T, &str)]) {
    let conn = PostgresConnection::connect("postgres://postgres@localhost");
    for &(ref val, ref repr) in checks.iter() {
        let stmt = conn.prepare("SELECT " + *repr + "::" + sql_type);
        let result = stmt.query([]).next().unwrap()[0];
        assert_eq!(val, &result);

        let stmt = conn.prepare("SELECT $1::" + sql_type);
        let result = stmt.query([val as &ToSql]).next().unwrap()[0];
        assert_eq!(val, &result);
    }
}

#[test]
fn test_bool_params() {
    test_type("BOOL", [(Some(true), "'t'"), (Some(false), "'f'"),
                       (None, "NULL")]);
}

#[test]
fn test_i8_params() {
    test_type("\"char\"", [(Some('a' as i8), "'a'"), (None, "NULL")]);
}

#[test]
fn test_i16_params() {
    test_type("SMALLINT", [(Some(15001i16), "15001"),
                           (Some(-15001i16), "-15001"), (None, "NULL")]);
}

#[test]
fn test_i32_params() {
    test_type("INT", [(Some(2147483548i32), "2147483548"),
                      (Some(-2147483548i32), "-2147483548"), (None, "NULL")]);
}

#[test]
fn test_i64_params() {
    test_type("BIGINT", [(Some(9223372036854775708i64), "9223372036854775708"),
                         (Some(-9223372036854775708i64), "-9223372036854775708"),
                         (None, "NULL")]);
}

#[test]
fn test_f32_params() {
    test_type("REAL", [(Some(f32::infinity), "'infinity'"),
                       (Some(f32::neg_infinity), "'-infinity'"),
                       (Some(1000.55), "1000.55"), (None, "NULL")]);
}

#[test]
fn test_f64_params() {
    test_type("DOUBLE PRECISION", [(Some(f64::infinity), "'infinity'"),
                                   (Some(f64::neg_infinity), "'-infinity'"),
                                   (Some(10000.55), "10000.55"),
                                   (None, "NULL")]);
}

#[test]
fn test_varchar_params() {
    test_type("VARCHAR", [(Some(~"hello world"), "'hello world'"),
                          (Some(~"イロハニホヘト チリヌルヲ"), "'イロハニホヘト チリヌルヲ'"),
                          (None, "NULL")]);
}

#[test]
fn test_text_params() {
    test_type("TEXT", [(Some(~"hello world"), "'hello world'"),
                       (Some(~"イロハニホヘト チリヌルヲ"), "'イロハニホヘト チリヌルヲ'"),
                       (None, "NULL")]);

}

#[test]
fn test_bpchar_params() {
    let conn = PostgresConnection::connect("postgres://postgres@localhost");
    conn.update("CREATE TEMPORARY TABLE foo (
                    id SERIAL PRIMARY KEY,
                    b CHAR(5)
                 )", []);
    conn.update("INSERT INTO foo (b) VALUES ($1), ($2), ($3)",
                [&Some("12345") as &ToSql, &Some("123") as &ToSql,
                 &None::<~str> as &ToSql]);
    let stmt = conn.prepare("SELECT b FROM foo ORDER BY id");
    let res = stmt.query([]);

    assert_eq!(~[Some(~"12345"), Some(~"123  "), None],
               res.map(|row| { row[0] }).collect());
}

#[test]
fn test_bytea_params() {
    test_type("BYTEA", [(Some(~[0u8, 1, 2, 3, 254, 255]), "'\\x00010203feff'"),
                        (None, "NULL")]);
}

#[test]
#[cfg(not(travis))] // Travis runs Postgres 9.1
fn test_json_params() {
    test_type("JSON", [(Some(json::from_str("[10, 11, 12]").unwrap()),
                        "'[10, 11, 12]'"),
                       (Some(json::from_str("{\"f\": \"asd\"}").unwrap()),
                        "'{\"f\": \"asd\"}'"),
                       (None, "NULL")])
}

#[test]
fn test_uuid_params() {
    test_type("UUID", [(Some(Uuid::parse_string("a0eebc99-9c0b-4ef8-bb6d-6bb9bd380a11").unwrap()),
                        "'a0eebc99-9c0b-4ef8-bb6d-6bb9bd380a11'"),
                       (None, "NULL")])
}

#[test]
fn test_tm_params() {
    fn make_check<'a>(time: &'a str) -> (Option<Timespec>, &'a str) {
        (Some(time::strptime(time, "'%Y-%m-%d %H:%M:%S.%f'").unwrap().to_timespec()), time)
    }
    test_type("TIMESTAMP",
              [make_check("'1970-01-01 00:00:00.01'"),
               make_check("'1965-09-25 11:19:33.100314'"),
               make_check("'2010-02-09 23:11:45.1202'"),
               (None, "NULL")]);
    test_type("TIMESTAMP WITH TIME ZONE",
              [make_check("'1970-01-01 00:00:00.01'"),
               make_check("'1965-09-25 11:19:33.100314'"),
               make_check("'2010-02-09 23:11:45.1202'"),
               (None, "NULL")]);
}

fn test_nan_param<T: Float+ToSql+FromSql>(sql_type: &str) {
    let conn = PostgresConnection::connect("postgres://postgres@localhost");
    let stmt = conn.prepare("SELECT 'NaN'::" + sql_type);
    let mut result = stmt.query([]);
    let val: T = result.next().unwrap()[0];
    assert!(val.is_nan());

    let nan: T = Float::nan();
    let stmt = conn.prepare("SELECT $1::" + sql_type);
    let mut result = stmt.query([&nan as &ToSql]);
    let val: T = result.next().unwrap()[0];
    assert!(val.is_nan())
}

#[test]
fn test_f32_nan_param() {
    test_nan_param::<f32>("REAL");
}

#[test]
fn test_f64_nan_param() {
    test_nan_param::<f64>("DOUBLE PRECISION");
}

#[test]
#[should_fail]
fn test_wrong_param_type() {
    let conn = PostgresConnection::connect("postgres://postgres@localhost");
    conn.try_update("SELECT $1::VARCHAR", [&1i32 as &ToSql]);
}

#[test]
#[should_fail]
fn test_too_few_params() {
    let conn = PostgresConnection::connect("postgres://postgres@localhost");
    conn.try_update("SELECT $1::INT, $2::INT", [&1i32 as &ToSql]);
}

#[test]
#[should_fail]
fn test_too_many_params() {
    let conn = PostgresConnection::connect("postgres://postgres@localhost");
    conn.try_update("SELECT $1::INT, $2::INT", [&1i32 as &ToSql,
                                                &2i32 as &ToSql,
                                                &3i32 as &ToSql]);
}

#[test]
fn test_find_col_named() {
    let conn = PostgresConnection::connect("postgres://postgres@localhost");
    let stmt = conn.prepare("SELECT 1 as my_id, 'hi' as val");
    assert_eq!(Some(0), stmt.find_col_named("my_id"));
    assert_eq!(Some(1), stmt.find_col_named("val"));
    assert_eq!(None, stmt.find_col_named("asdf"));
}

#[test]
fn test_get_named() {
    let conn = PostgresConnection::connect("postgres://postgres@localhost");
    let stmt = conn.prepare("SELECT 10::INT as val");
    let result = stmt.query([]);

    assert_eq!(~[10i32], result.map(|row| { row["val"] }).collect());
}

#[test]
#[should_fail]
fn test_get_named_fail() {
    let conn = PostgresConnection::connect("postgres://postgres@localhost");
    let stmt = conn.prepare("SELECT 10::INT as id");
    let mut result = stmt.query([]);

    let _: i32 = result.next().unwrap()["asdf"];
}

#[test]
fn test_custom_notice_handler() {
    static mut count: uint = 0;
    struct Handler;

    impl PostgresNoticeHandler for Handler {
        fn handle(&mut self, _notice: PostgresDbError) {
            unsafe { count += 1; }
        }
    }

    let conn = PostgresConnection::connect("postgres://postgres@localhost?client_min_messages=NOTICE");
    conn.set_notice_handler(~Handler as ~PostgresNoticeHandler);
    conn.update("CREATE FUNCTION pg_temp.note() RETURNS INT AS $$
                BEGIN
                    RAISE NOTICE 'note';
                    RETURN 1;
                END; $$ LANGUAGE plpgsql", []);
    conn.update("SELECT pg_temp.note()", []);

    assert_eq!(unsafe { count }, 1);
}

#[test]
fn test_notification_iterator_none() {
    let conn = PostgresConnection::connect("postgres://postgres@localhost");
    assert!(conn.notifications().next().is_none());
}

#[test]
fn test_notification_iterator_some() {
    fn check_notification(expected: PostgresNotification,
                          actual: Option<PostgresNotification>) {
        match actual {
            Some(PostgresNotification { channel, payload, _ }) => {
                assert_eq!(&expected.channel, &channel);
                assert_eq!(&expected.payload, &payload);
            }
            x => fail!("Expected {:?} but got {:?}", expected, x)
        }
    }

    let conn = PostgresConnection::connect("postgres://postgres@localhost");
    let mut it = conn.notifications();
    conn.update("LISTEN test_notification_iterator_one_channel", []);
    conn.update("LISTEN test_notification_iterator_one_channel2", []);
    conn.update("NOTIFY test_notification_iterator_one_channel, 'hello'", []);
    conn.update("NOTIFY test_notification_iterator_one_channel2, 'world'", []);

    check_notification(PostgresNotification {
        pid: 0,
        channel: ~"test_notification_iterator_one_channel",
        payload: ~"hello"
    }, it.next());
    check_notification(PostgresNotification {
        pid: 0,
        channel: ~"test_notification_iterator_one_channel2",
        payload: ~"world"
    }, it.next());
    assert!(it.next().is_none());

    conn.update("NOTIFY test_notification_iterator_one_channel, '!'", []);
    check_notification(PostgresNotification {
        pid: 0,
        channel: ~"test_notification_iterator_one_channel",
        payload: ~"!"
    }, it.next());
    assert!(it.next().is_none());
}

#[test]
// This test is pretty sad, but I don't think there's a better way :(
fn test_cancel_query() {
    let conn = PostgresConnection::connect("postgres://postgres@localhost");
    let cancel_data = conn.cancel_data();

    do spawn {
        timer::sleep(500);
        assert!(super::cancel_query("postgres://postgres@localhost",
                                    cancel_data).is_none());
    }

    match conn.try_update("SELECT pg_sleep(10)", []) {
        Err(PostgresDbError { code: QueryCanceled, _ }) => {}
        res => fail!("Unexpected result {:?}", res)
    }
}

#[test]
fn test_plaintext_pass() {
    PostgresConnection::connect("postgres://pass_user:password@localhost/postgres");
}

#[test]
fn test_plaintext_pass_no_pass() {
    let ret = PostgresConnection::try_connect("postgres://pass_user@localhost/postgres");
    match ret {
        Err(MissingPassword) => (),
        Err(err) => fail!("Unexpected error {}", err.to_str()),
        _ => fail!("Expected error")
    }
}

#[test]
fn test_plaintext_pass_wrong_pass() {
    let ret = PostgresConnection::try_connect("postgres://pass_user:asdf@localhost/postgres");
    match ret {
        Err(DbError(PostgresDbError { code: InvalidPassword, _ })) => (),
        Err(err) => fail!("Unexpected error {}", err.to_str()),
        _ => fail!("Expected error")
    }
}

#[test]
fn test_dns_failure() {
    let ret = PostgresConnection::try_connect("postgres://postgres@asdfasdfasdf");
    match ret {
        Err(DnsError) => (),
        Err(err) => fail!("Unexpected error {}", err.to_str()),
        _ => fail!("Expected error")
    }
}