/*      $OpenBSD: uuidtest.c,v 1.2 2023/07/03 13:51:55 jasper Exp $     */
/*
 * Copyright (c) 2021, 2023 Jasper Lievisse Adriaanse <jasper@openbsd.org>
 *
 * Permission to use, copy, modify, and distribute this software for any
 * purpose with or without fee is hereby granted, provided that the above
 * copyright notice and this permission notice appear in all copies.
 *
 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 */

#include <assert.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <uuid.h>

#define ASSERT_EQ(a, b) assert((a) == (b))

int
main(int argc, char **argv)
{
        struct uuid     uuid, uuid2, uuid_want;
        char            *uuid_str, *uuid_str_want;
        uint32_t        status;
        unsigned char   bin[16];
        int             rc, t = 1;

        /* Test invalid input to uuid_from_string() */
        printf("[%d] uuid_from_string (invalid) ", t);
        uuid_str = "6fc3134d-011d-463d-a6b4-fe1f3a5e57dX";
        uuid_from_string(uuid_str, &uuid, &status);
        if (status != uuid_s_invalid_string_uuid) {
                printf("failed to return uuid_s_invalid_string_uuid for '%s'\n",
                    uuid_str);
                return 1;
        }

        printf("ok\n");
        t++;

        /* Test a bad version gets recognized */
        printf("[%d] uuid_from_string (bad version) ", t);
        uuid_str = "ffffffff-ffff-ffff-ffff-ffffffffffff";
        uuid_from_string(uuid_str, &uuid, &status);
        if (status != uuid_s_bad_version) {
                printf("failed to return uuid_s_bad_version for '%s'\n",
                    uuid_str);
                return 1;
        }

        printf("ok\n");
        t++;

        /* Test valid input to uuid_from_string() */
        printf("[%d] uuid_from_string ", t);
        uuid_str = "f81d4fae-7dec-11d0-a765-00a0c91e6bf6";

        uuid_want.time_low = 0xf81d4fae;
        uuid_want.time_mid = 0x7dec;
        uuid_want.time_hi_and_version = 0x11d0;
        uuid_want.clock_seq_hi_and_reserved = 0xa7;
        uuid_want.clock_seq_low = 0x65;
        uuid_want.node[0] = 0x00;
        uuid_want.node[1] = 0xa0;
        uuid_want.node[2] = 0xc9;
        uuid_want.node[3] = 0x1e;
        uuid_want.node[4] = 0x6b;
        uuid_want.node[5] = 0xf6;

        uuid_from_string(uuid_str, &uuid, &status);
        if (status != uuid_s_ok) {
                printf("failed to return uuid_s_ok for '%s', got %d\n", uuid_str, status);
                return 1;
        }

        ASSERT_EQ(uuid.time_low, uuid_want.time_low);
        ASSERT_EQ(uuid.time_mid, uuid_want.time_mid);
        ASSERT_EQ(uuid.time_hi_and_version, uuid_want.time_hi_and_version);
        ASSERT_EQ(uuid.clock_seq_hi_and_reserved, uuid_want.clock_seq_hi_and_reserved);
        ASSERT_EQ(uuid.clock_seq_low, uuid_want.clock_seq_low);
        ASSERT_EQ(uuid.node[0], uuid_want.node[0]);
        ASSERT_EQ(uuid.node[1], uuid_want.node[1]);
        ASSERT_EQ(uuid.node[2], uuid_want.node[2]);
        ASSERT_EQ(uuid.node[3], uuid_want.node[3]);
        ASSERT_EQ(uuid.node[4], uuid_want.node[4]);
        ASSERT_EQ(uuid.node[5], uuid_want.node[5]);

        printf("ok\n");
        t++;

        printf("[%d] uuid_to_string ", t);
        /* re-use the handrolled struct uuid from the previous test. */
        uuid_str_want = "f81d4fae-7dec-11d0-a765-00a0c91e6bf6";

        uuid_to_string(&uuid, &uuid_str, &status);
        if (status != uuid_s_ok) {
                printf("failed to return uuid_s_ok, got %d\n", status);
                return 1;
        }

        if (strcmp(uuid_str, uuid_str_want) != 0) {
                printf("expected '%s', got '%s'\n", uuid_str_want, uuid_str);
                return 1;
        }

        printf("ok\n");
        t++;

        printf("[%d] uuid_create_nil ", t);
        uuid_create_nil(&uuid, &status);
        if (status != uuid_s_ok) {
                printf("failed to return uuid_s_ok, got: %d\n", status);
                return 1;
        }

        /*
         * At this point we've done a previous test of uuid_to_string already,
         * so might as well use it again for uuid_create_nil() here.
         */
        uuid_to_string(&uuid, &uuid_str, &status);
        if (status != uuid_s_ok) {
                printf("uuid_to_string failed to return uuid_s_ok, got %d\n",
                    status);
                return 1;
        }

        uuid_str_want = "00000000-0000-0000-0000-000000000000";
        if (strcmp(uuid_str, uuid_str_want) != 0) {
                printf("expected '%s', got '%s'\n", uuid_str_want, uuid_str);
                return 1;
        }

        printf("ok\n");
        t++;

        /*
         * Assuming the clock of the system running the test is ahead of the one
         * where this test was written, we can test uuid_create along with
         * uuid_compare here.
         */
        printf("[%d] uuid_create ", t);
        uuid_create(&uuid, &status);
        if (status != uuid_s_ok) {
                printf("uuid_create failed to return uuid_s_ok, got %d\n",
                    status);
                return 1;
        }

        printf("ok\n");
        t++;

        printf("[%d] uuid_compare ", t);
        /* uuid was just generated, uuid2 was generated before. */
        uuid_from_string(uuid_str, &uuid2, &status);
        rc = uuid_compare(&uuid, &uuid2, &status);
        if ((status != uuid_s_ok) || (rc != 1)) {
                printf("uuid_compare failed, expected 1 got: %d and status: %d\n",
                    rc, status);
                return 1;
        }

        printf("ok\n");
        t++;

        printf("[%d] uuid_equal ", t);
        rc = uuid_equal(&uuid, &uuid, &status);
        if ((status != uuid_s_ok) || (rc != 1)) {
                printf("uuid_compare failed, expected 1 got: %d and status: %d\n",
                    rc, status);
                return 1;
        }

        printf("ok\n");
        t++;

        printf("[%d] uuid_equal (nil) ", t);
        uuid_create_nil(&uuid, &status);
        rc = uuid_equal(&uuid, &uuid2, &status);
        if ((status != uuid_s_ok) || (rc != 1)) {
                printf("uuid_compare failed, expected 1 got: %d and status: %d\n",
                    rc, status);
                return 1;
        }

        printf("ok\n");
        t++;

        printf("[%d] uuid_hash ", t);
        uint16_t hash = uuid_hash(&uuid_want, &status);
        if ((status != uuid_s_ok) || (hash != 0x4fae)) {
                printf("uuid_hash failed, expected 0x4fae got: 0x%04x and status: %d\n",
                    hash, status);
                return 1;
        }

        printf("ok\n");
        t++;

        uuid_str_want = "f81d4fae-7dec-11d0-a765-00a0c91e6bf6";
        printf("[%d] uuid_enc_le ", t);
        uuid_from_string(uuid_str_want, &uuid, &status);
        /*
         * Check two fields to ensure they're in the right order.
         * If these two are ok, it's safe to assum the rest are too.
         */
        uuid_enc_le(bin, &uuid);
        if (bin[4] != 0xec || bin[5] != 0x7d) {
                uuid_to_string(&uuid, &uuid_str, &status);
                printf("uuid_enc_le failed, expected %s got %s\n",
                    uuid_str_want, uuid_str);
                return 1;
        }

        printf("ok\n");
        t++;

        printf("[%d] uuid_dec_le ", t);
        uuid_dec_le(bin, &uuid);
        if (uuid_equal(&uuid, &uuid_want, &status) == 0) {
                uuid_to_string(&uuid, &uuid_str, &status);
                printf("uuid_dec_le failed, expected %s got %s\n",
                    uuid_str_want, uuid_str);
                return 1;
        }

        printf("ok\n");
        t++;

        printf("[%d] uuid_enc_be ", t);
        uuid_enc_be(bin, &uuid);
        if (bin[4] != 0x7d || bin[5] != 0xec) {
                uuid_to_string(&uuid, &uuid_str, &status);
                printf("uuid_enc_be failed, expected %s got %s\n",
                    uuid_str_want, uuid_str);
                return 1;
        }

        printf("ok\n");
        t++;

        printf("[%d] uuid_dec_be ", t);
        uuid_dec_be(bin, &uuid);
        if (uuid_equal(&uuid, &uuid_want, &status) == 0) {
                uuid_to_string(&uuid, &uuid_str, &status);
                printf("uuid_dec_be failed, expected %s got %s\n",
                    uuid_str_want, uuid_str);
                return 1;
        }

        printf("ok\n");
        t++;

        return 0;
}