/* BEGIN_HEADER */
#include "mbedtls/poly1305.h"
#include <stddef.h>
/* END_HEADER */

/* BEGIN_DEPENDENCIES
 * depends_on:MBEDTLS_POLY1305_C
 * END_DEPENDENCIES
 */

/* BEGIN_CASE */
void mbedtls_poly1305(data_t *key, data_t *expected_mac, data_t *src_str)
{
    unsigned char mac[16]; /* size set by the standard */
    mbedtls_poly1305_context ctx;

    memset(mac, 0x00, sizeof(mac));

    /*
     * Test the integrated API
     */
    TEST_ASSERT(mbedtls_poly1305_mac(key->x, src_str->x,
                                     src_str->len, mac) == 0);

    TEST_MEMORY_COMPARE(mac, expected_mac->len,
                        expected_mac->x, expected_mac->len);

    /*
     * Test the streaming API
     */
    mbedtls_poly1305_init(&ctx);

    TEST_ASSERT(mbedtls_poly1305_starts(&ctx, key->x) == 0);

    TEST_ASSERT(mbedtls_poly1305_update(&ctx, src_str->x, src_str->len) == 0);

    TEST_ASSERT(mbedtls_poly1305_finish(&ctx, mac) == 0);

    TEST_MEMORY_COMPARE(mac, expected_mac->len,
                        expected_mac->x, expected_mac->len);

    /*
     * Test the streaming API again, piecewise
     */

    /* Don't free/init the context, in order to test that starts() does the
     * right thing. */
    if (src_str->len >= 1) {
        TEST_ASSERT(mbedtls_poly1305_starts(&ctx, key->x) == 0);

        TEST_ASSERT(mbedtls_poly1305_update(&ctx, src_str->x, 1) == 0);
        TEST_ASSERT(mbedtls_poly1305_update(&ctx, src_str->x + 1, src_str->len - 1) == 0);

        TEST_ASSERT(mbedtls_poly1305_finish(&ctx, mac) == 0);

        TEST_MEMORY_COMPARE(mac, expected_mac->len,
                            expected_mac->x, expected_mac->len);
    }

    /*
     * Again with more pieces
     */
    if (src_str->len >= 2) {
        TEST_ASSERT(mbedtls_poly1305_starts(&ctx, key->x) == 0);

        TEST_ASSERT(mbedtls_poly1305_update(&ctx, src_str->x, 1) == 0);
        TEST_ASSERT(mbedtls_poly1305_update(&ctx, src_str->x + 1, 1) == 0);
        TEST_ASSERT(mbedtls_poly1305_update(&ctx, src_str->x + 2, src_str->len - 2) == 0);

        TEST_ASSERT(mbedtls_poly1305_finish(&ctx, mac) == 0);

        TEST_MEMORY_COMPARE(mac, expected_mac->len,
                            expected_mac->x, expected_mac->len);
    }

    mbedtls_poly1305_free(&ctx);
}
/* END_CASE */

/* BEGIN_CASE depends_on:MBEDTLS_CHECK_PARAMS:!MBEDTLS_PARAM_FAILED_ALT */
void poly1305_bad_params()
{
    unsigned char src[1];
    unsigned char key[32];
    unsigned char mac[16];
    size_t src_len = sizeof(src);
    mbedtls_poly1305_context ctx;

    TEST_INVALID_PARAM(mbedtls_poly1305_init(NULL));
    TEST_VALID_PARAM(mbedtls_poly1305_free(NULL));

    TEST_INVALID_PARAM_RET(MBEDTLS_ERR_POLY1305_BAD_INPUT_DATA,
                           mbedtls_poly1305_starts(NULL, key));
    TEST_INVALID_PARAM_RET(MBEDTLS_ERR_POLY1305_BAD_INPUT_DATA,
                           mbedtls_poly1305_starts(&ctx, NULL));

    TEST_INVALID_PARAM_RET(MBEDTLS_ERR_POLY1305_BAD_INPUT_DATA,
                           mbedtls_poly1305_update(NULL, src, 0));
    TEST_INVALID_PARAM_RET(MBEDTLS_ERR_POLY1305_BAD_INPUT_DATA,
                           mbedtls_poly1305_update(&ctx, NULL, src_len));

    TEST_INVALID_PARAM_RET(MBEDTLS_ERR_POLY1305_BAD_INPUT_DATA,
                           mbedtls_poly1305_finish(NULL, mac));
    TEST_INVALID_PARAM_RET(MBEDTLS_ERR_POLY1305_BAD_INPUT_DATA,
                           mbedtls_poly1305_finish(&ctx, NULL));

    TEST_INVALID_PARAM_RET(MBEDTLS_ERR_POLY1305_BAD_INPUT_DATA,
                           mbedtls_poly1305_mac(NULL, src, 0, mac));
    TEST_INVALID_PARAM_RET(MBEDTLS_ERR_POLY1305_BAD_INPUT_DATA,
                           mbedtls_poly1305_mac(key, NULL, src_len, mac));
    TEST_INVALID_PARAM_RET(MBEDTLS_ERR_POLY1305_BAD_INPUT_DATA,
                           mbedtls_poly1305_mac(key, src, 0, NULL));

exit:
    return;
}
/* END_CASE */

/* BEGIN_CASE depends_on:MBEDTLS_SELF_TEST */
void poly1305_selftest()
{
    TEST_ASSERT(mbedtls_poly1305_self_test(1) == 0);
}
/* END_CASE */