/* 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, char *hex_mac_string, data_t *src_str )
{
    unsigned char mac[16]; /* size set by the standard */
    unsigned char mac_str[33]; /* hex expansion of the above */
    mbedtls_poly1305_context ctx;

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

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

    mbedtls_test_hexify( mac_str, mac, 16 );
    TEST_ASSERT( strcmp( (char *) mac_str, hex_mac_string ) == 0 );

    /*
     * 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 );

    mbedtls_test_hexify( mac_str, mac, 16 );
    TEST_ASSERT( strcmp( (char *) mac_str, hex_mac_string ) == 0 );

    /*
     * 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 );

        mbedtls_test_hexify( mac_str, mac, 16 );
        TEST_ASSERT( strcmp( (char *) mac_str, hex_mac_string ) == 0 );
    }

    /*
     * 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 );

        mbedtls_test_hexify( mac_str, mac, 16 );
        TEST_ASSERT( strcmp( (char *) mac_str, hex_mac_string ) == 0 );
    }

    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 */