#include <stdlib.h>

#include <assert.h>

#include <errno.h>

#include <stdio.h>

#include <sys/types.h>

#include <sys/socket.h>

#include <unistd.h>

#include "util.h"

#include "socket-util.h"

#include "event-util.h"

#include "sd-ipv4ll.h"

#include "arp-util.h"

static bool verbose = false;

static bool extended = false;

static int test_fd[2];

static int basic_request_handler_bind = 0;

static int basic_request_handler_stop = 0;

static void* basic_request_handler_userdata = (void*)0xCABCAB;

static void basic_request_handler(sd_ipv4ll *ll, int event, void *userdata) {

assert_se(userdata == basic_request_handler_userdata);

switch(event) {

case IPV4LL_EVENT_STOP:

basic_request_handler_stop = 1;

break;

case IPV4LL_EVENT_BIND:

basic_request_handler_bind = 1;

break;

default:

assert_se(0);

break;

}

}

static int arp_network_send_raw_socket(int fd, int ifindex,

const struct ether_arp *arp) {

assert_se(arp);

assert_se(ifindex > 0);

assert_se(fd >= 0);

if (send(fd, arp, sizeof(struct ether_arp), 0) < 0)

return -errno;

return 0;

}

int arp_send_probe(int fd, int ifindex,

be32_t pa, const struct ether_addr *ha) {

struct ether_arp ea = {};

assert(fd >= 0);

assert(ifindex > 0);

assert(pa != 0);

assert(ha);

return arp_network_send_raw_socket(fd, ifindex, &ea);

}

int arp_send_announcement(int fd, int ifindex,

be32_t pa, const struct ether_addr *ha) {

struct ether_arp ea = {};

assert(fd >= 0);

assert(ifindex > 0);

assert(pa != 0);

assert(ha);

return arp_network_send_raw_socket(fd, ifindex, &ea);

}

int arp_network_bind_raw_socket(int index, be32_t address, const struct ether_addr *eth_mac) {

if (socketpair(AF_UNIX, SOCK_DGRAM | SOCK_NONBLOCK, 0, test_fd) < 0)

return -errno;

return test_fd[0];

}

static void test_public_api_setters(sd_event *e) {

unsigned seed = 0;

sd_ipv4ll *ll;

struct ether_addr mac_addr = {

.ether_addr_octet = {'A', 'B', 'C', '1', '2', '3'}};

if (verbose)

printf("* %s\n", __FUNCTION__);

assert_se(sd_ipv4ll_new(&ll) == 0);

assert_se(ll);

assert_se(sd_ipv4ll_attach_event(NULL, NULL, 0) == -EINVAL);

assert_se(sd_ipv4ll_attach_event(ll, e, 0) == 0);

assert_se(sd_ipv4ll_attach_event(ll, e, 0) == -EBUSY);

assert_se(sd_ipv4ll_set_callback(NULL, NULL, NULL) == -EINVAL);

assert_se(sd_ipv4ll_set_callback(ll, NULL, NULL) == 0);

assert_se(sd_ipv4ll_set_address_seed(NULL, seed) == -EINVAL);

assert_se(sd_ipv4ll_set_address_seed(ll, seed) == 0);

assert_se(sd_ipv4ll_set_mac(NULL, NULL) == -EINVAL);

assert_se(sd_ipv4ll_set_mac(ll, NULL) == -EINVAL);

assert_se(sd_ipv4ll_set_mac(ll, &mac_addr) == 0);

assert_se(sd_ipv4ll_set_index(NULL, -1) == -EINVAL);

assert_se(sd_ipv4ll_set_index(ll, -1) == -EINVAL);

assert_se(sd_ipv4ll_set_index(ll, -99) == -EINVAL);

assert_se(sd_ipv4ll_set_index(ll, 1) == 0);

assert_se(sd_ipv4ll_set_index(ll, 99) == 0);

assert_se(sd_ipv4ll_ref(ll) == ll);

assert_se(sd_ipv4ll_unref(ll) == NULL);

/* Cleanup */

assert_se(sd_ipv4ll_unref(ll) == NULL);

}

static void test_basic_request(sd_event *e) {

sd_ipv4ll *ll;

struct ether_arp arp;

struct ether_addr mac_addr = {

.ether_addr_octet = {'A', 'B', 'C', '1', '2', '3'}};

if (verbose)

printf("* %s\n", __FUNCTION__);

assert_se(sd_ipv4ll_new(&ll) == 0);

assert_se(sd_ipv4ll_start(ll) == -EINVAL);

assert_se(sd_ipv4ll_attach_event(ll, e, 0) == 0);

assert_se(sd_ipv4ll_start(ll) == -EINVAL);

assert_se(sd_ipv4ll_set_mac(ll, &mac_addr) == 0);

assert_se(sd_ipv4ll_start(ll) == -EINVAL);

assert_se(sd_ipv4ll_set_callback(ll, basic_request_handler,

basic_request_handler_userdata) == 0);

assert_se(sd_ipv4ll_start(ll) == -EINVAL);

assert_se(sd_ipv4ll_set_index(ll, 1) == 0);

assert_se(sd_ipv4ll_start(ll) == 0);

sd_event_run(e, (uint64_t) -1);

assert_se(sd_ipv4ll_start(ll) == -EBUSY);

assert_se(sd_ipv4ll_is_running(ll));

/* PROBE */

sd_event_run(e, (uint64_t) -1);

assert_se(read(test_fd[1], &arp, sizeof(struct ether_arp)) == sizeof(struct ether_arp));

if (extended) {

/* PROBE */

sd_event_run(e, (uint64_t) -1);

assert_se(read(test_fd[1], &arp, sizeof(struct ether_arp)) == sizeof(struct ether_arp));

/* PROBE */

sd_event_run(e, (uint64_t) -1);

assert_se(read(test_fd[1], &arp, sizeof(struct ether_arp)) == sizeof(struct ether_arp));

sd_event_run(e, (uint64_t) -1);

assert_se(basic_request_handler_bind == 1);

}

sd_ipv4ll_stop(ll);

assert_se(basic_request_handler_stop == 1);

/* Cleanup */

assert_se(sd_ipv4ll_unref(ll) == NULL);

safe_close(test_fd[1]);

}

int main(int argc, char *argv[]) {

_cleanup_event_unref_ sd_event *e = NULL;

log_set_max_level(LOG_DEBUG);

log_parse_environment();

log_open();

assert_se(sd_event_new(&e) >= 0);

test_public_api_setters(e);

test_basic_request(e);

return 0;

}