#include <gtest/gtest.h>

#include "session_pool.h"
#include "session_table.h"

#define SESSION_KEY_IPV4_TCP(name)                        \
    struct tuple6 name;                                   \
    memset(&name, 0, sizeof(struct tuple6));              \
    (name).ip_type = IP_TYPE_V4;                          \
    (name).src_addr.v4.s_addr = inet_addr("192.168.1.2"); \
    (name).dst_addr.v4.s_addr = inet_addr("192.168.1.3"); \
    (name).src_port = htons(1234);                        \
    (name).dst_port = htons(5678);                        \
    (name).ip_proto = IPPROTO_TCP;                        \
    (name).domain = 0;

#define SESSION_KEY_IPV6_UDP(name)                                           \
    struct tuple6 name;                                                      \
    memset(&name, 0, sizeof(struct tuple6));                                 \
    (name).ip_type = IP_TYPE_V6;                                             \
    inet_pton(AF_INET6, "2001:db8:0:0:0:ff00:42:8329", &(name).src_addr.v6); \
    inet_pton(AF_INET6, "2001:db8:0:0:0:ff00:42:832a", &(name).dst_addr.v6); \
    (name).src_port = htons(1234);                                           \
    (name).dst_port = htons(5678);                                           \
    (name).ip_proto = IPPROTO_UDP;                                           \
    (name).domain = 0;

#define SESSION_KEY_IPV6_TCP(name)                                           \
    struct tuple6 name;                                                      \
    memset(&name, 0, sizeof(struct tuple6));                                 \
    (name).ip_type = IP_TYPE_V6;                                             \
    inet_pton(AF_INET6, "2001:db8:0:0:0:ff00:42:8329", &(name).src_addr.v6); \
    inet_pton(AF_INET6, "2001:db8:0:0:0:ff00:42:832a", &(name).dst_addr.v6); \
    (name).src_port = htons(1234);                                           \
    (name).dst_port = htons(5678);                                           \
    (name).ip_proto = IPPROTO_TCP;                                           \
    (name).domain = 0;

static void session_free_callback(struct session *sess, void *arg)
{
    if (sess)
    {
        struct session_pool *sess_pool = (struct session_pool *)arg;
        session_pool_free(sess_pool, sess);
        sess = NULL;
    }
}

TEST(SESSION_TABLE, OP_SESSION)
{
    struct session *sess1 = NULL;
    struct session *sess2 = NULL;
    struct session *sess3 = NULL;
    struct session_pool *sess_pool = NULL;
    struct session_table *sess_table = NULL;

    SESSION_KEY_IPV4_TCP(tuple_1);
    SESSION_KEY_IPV6_UDP(tuple_2);
    SESSION_KEY_IPV6_TCP(tuple_3);

    struct tuple6 reversed_tuple_1;
    struct tuple6 reversed_tuple_2;
    struct tuple6 reversed_tuple_3;

    tuple6_reverse(&tuple_1, &reversed_tuple_1);
    tuple6_reverse(&tuple_2, &reversed_tuple_2);
    tuple6_reverse(&tuple_3, &reversed_tuple_3);

    // Create
    sess_pool = session_pool_new(3);
    EXPECT_TRUE(sess_pool != NULL);
    sess_table = session_table_new();
    EXPECT_TRUE(sess_table != NULL);
    session_table_set_freecb(sess_table, session_free_callback, sess_pool);

    // Add
    sess1 = session_pool_alloc(sess_pool);
    EXPECT_TRUE(sess1 != NULL);
    session_set_id(sess1, 1);
    session_set_key(sess1, &tuple_1);

    sess2 = session_pool_alloc(sess_pool);
    EXPECT_TRUE(sess2 != NULL);
    session_set_id(sess2, 2);
    session_set_key(sess2, &tuple_2);

    sess3 = session_pool_alloc(sess_pool);
    EXPECT_TRUE(sess3 != NULL);
    session_set_id(sess3, 3);
    session_set_key(sess3, &tuple_3);

    EXPECT_TRUE(session_table_add_session(sess_table, &tuple_1, sess1) == 0);
    EXPECT_TRUE(session_table_get_count(sess_table) == 1);
    EXPECT_TRUE(session_table_add_session(sess_table, &tuple_2, sess2) == 0);
    EXPECT_TRUE(session_table_get_count(sess_table) == 2);
    EXPECT_TRUE(session_table_add_session(sess_table, &tuple_3, sess3) == 0);
    EXPECT_TRUE(session_table_get_count(sess_table) == 3);

    // Search
    EXPECT_TRUE(session_table_find_session(sess_table, &tuple_1) == sess1);
    EXPECT_TRUE(session_table_find_session(sess_table, &tuple_2) == sess2);
    EXPECT_TRUE(session_table_find_session(sess_table, &tuple_3) == sess3);

    EXPECT_TRUE(session_table_find_session(sess_table, &reversed_tuple_1) == sess1);
    EXPECT_TRUE(session_table_find_session(sess_table, &reversed_tuple_2) == sess2);
    EXPECT_TRUE(session_table_find_session(sess_table, &reversed_tuple_3) == sess3);

    // Delete
    session_table_del_session(sess_table, &tuple_1);
    EXPECT_TRUE(session_table_get_count(sess_table) == 2);
    EXPECT_TRUE(session_table_find_session(sess_table, &tuple_1) == NULL);
    EXPECT_TRUE(session_table_find_session(sess_table, &reversed_tuple_1) == NULL);

    session_table_del_session(sess_table, &reversed_tuple_2);
    EXPECT_TRUE(session_table_get_count(sess_table) == 1);
    EXPECT_TRUE(session_table_find_session(sess_table, &tuple_2) == NULL);
    EXPECT_TRUE(session_table_find_session(sess_table, &reversed_tuple_2) == NULL);

    session_table_del_session(sess_table, &tuple_3);
    EXPECT_TRUE(session_table_get_count(sess_table) == 0);
    EXPECT_TRUE(session_table_find_session(sess_table, &tuple_3) == NULL);
    EXPECT_TRUE(session_table_find_session(sess_table, &reversed_tuple_3) == NULL);

    // Destroy
    session_table_free(sess_table);
    session_pool_free(sess_pool);
}

TEST(SESSION_TABLE, FIND_OLDEST_NEWEST)
{
    struct session *sess1 = NULL;
    struct session *sess2 = NULL;
    struct session *sess3 = NULL;
    struct session_pool *sess_pool = NULL;
    struct session_table *sess_table = NULL;

    SESSION_KEY_IPV4_TCP(tuple_1);
    SESSION_KEY_IPV6_UDP(tuple_2);
    SESSION_KEY_IPV6_TCP(tuple_3);

    // Create
    sess_pool = session_pool_new(3);
    EXPECT_TRUE(sess_pool != NULL);
    sess_table = session_table_new();
    EXPECT_TRUE(sess_table != NULL);
    session_table_set_freecb(sess_table, session_free_callback, sess_pool);

    // Add Session

    EXPECT_TRUE(session_table_find_least_recently_unused_session(sess_table) == NULL);
    EXPECT_TRUE(session_table_find_least_recently_used_session(sess_table) == NULL);

    sess1 = session_pool_alloc(sess_pool);
    EXPECT_TRUE(sess1 != NULL);
    session_set_id(sess1, 1);
    session_set_key(sess1, &tuple_1);
    EXPECT_TRUE(session_table_add_session(sess_table, &tuple_1, sess1) == 0);
    EXPECT_TRUE(session_table_find_least_recently_unused_session(sess_table) == sess1);
    EXPECT_TRUE(session_table_find_least_recently_used_session(sess_table) == sess1);

    sess2 = session_pool_alloc(sess_pool);
    EXPECT_TRUE(sess2 != NULL);
    session_set_id(sess2, 2);
    session_set_key(sess2, &tuple_2);
    EXPECT_TRUE(session_table_add_session(sess_table, &tuple_2, sess2) == 0);
    EXPECT_TRUE(session_table_find_least_recently_unused_session(sess_table) == sess1);
    EXPECT_TRUE(session_table_find_least_recently_used_session(sess_table) == sess2);

    sess3 = session_pool_alloc(sess_pool);
    EXPECT_TRUE(sess3 != NULL);
    session_set_id(sess3, 3);
    session_set_key(sess3, &tuple_3);
    EXPECT_TRUE(session_table_add_session(sess_table, &tuple_3, sess3) == 0);
    EXPECT_TRUE(session_table_find_least_recently_unused_session(sess_table) == sess1);
    EXPECT_TRUE(session_table_find_least_recently_used_session(sess_table) == sess3);

    // Delete Session

    session_table_del_session(sess_table, &tuple_1);
    EXPECT_TRUE(session_table_find_least_recently_unused_session(sess_table) == sess2);
    EXPECT_TRUE(session_table_find_least_recently_used_session(sess_table) == sess3);

    session_table_del_session(sess_table, &tuple_2);
    EXPECT_TRUE(session_table_find_least_recently_unused_session(sess_table) == sess3);
    EXPECT_TRUE(session_table_find_least_recently_used_session(sess_table) == sess3);

    session_table_del_session(sess_table, &tuple_3);
    EXPECT_TRUE(session_table_find_least_recently_unused_session(sess_table) == NULL);
    EXPECT_TRUE(session_table_find_least_recently_used_session(sess_table) == NULL);

    // Destroy
    session_table_free(sess_table);
    session_pool_free(sess_pool);
}

int main(int argc, char **argv)
{
    ::testing::InitGoogleTest(&argc, argv);
    return RUN_ALL_TESTS();
}