/* 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( char *hex_key_string, char *hex_mac_string, char *hex_src_string  )
{
    unsigned char src_str[375]; /* max size of binary input */
    unsigned char key[32]; /* size set by the standard */
    unsigned char mac[16]; /* size set by the standard */
    unsigned char mac_str[33]; /* hex expansion of the above */
    size_t src_len;
    mbedtls_poly1305_context ctx;

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

    src_len = mbedtls_test_unhexify( src_str, hex_src_string );
    mbedtls_test_unhexify( key, hex_key_string );

    /*
     * Test the integrated API
     */
    TEST_ASSERT( mbedtls_poly1305_mac( key, src_str, src_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 ) == 0 );

    TEST_ASSERT( mbedtls_poly1305_update( &ctx, src_str, src_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_len >= 1 )
    {
        TEST_ASSERT( mbedtls_poly1305_starts( &ctx, key ) == 0 );

        TEST_ASSERT( mbedtls_poly1305_update( &ctx, src_str, 1 ) == 0 );
        TEST_ASSERT( mbedtls_poly1305_update( &ctx, src_str + 1, src_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_len >= 2 )
    {
        TEST_ASSERT( mbedtls_poly1305_starts( &ctx, key ) == 0 );

        TEST_ASSERT( mbedtls_poly1305_update( &ctx, src_str, 1 ) == 0 );
        TEST_ASSERT( mbedtls_poly1305_update( &ctx, src_str + 1, 1 ) == 0 );
        TEST_ASSERT( mbedtls_poly1305_update( &ctx, src_str + 2, src_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 */