/* $OpenBSD: asn1string_copy.c,v 1.1 2021/11/13 20:50:14 schwarze Exp $ */
/*
 * Copyright (c) 2021 Ingo Schwarze <schwarze@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 <err.h>
#include <string.h>

#include <openssl/asn1.h>

int
main(void)
{
	const unsigned char	*data = "hello world";
	const unsigned char	*str;
	ASN1_STRING		*src, *dst;
	int			 irc;

	/* Set up the source string. */

	if ((src = ASN1_IA5STRING_new()) == NULL)
		err(1, "FAIL: ASN1_IA5STRING_new() returned NULL");
	if (ASN1_STRING_set(src, data, -1) == 0)
		err(1, "FAIL: ASN1_STRING_set(src) failed");
	if ((str = ASN1_STRING_get0_data(src)) == NULL)
		errx(1, "FAIL: 1st ASN1_STRING_get0_data(src) returned NULL");
	if (strcmp(str, data))
		errx(1, "FAIL: 1st ASN1_STRING_get0_data(src) "
		    "returned wrong data: \"%s\" (expected \"%s\")",
		    str, data);
	if ((irc = ASN1_STRING_length(src)) != (int)strlen(data))
		errx(1, "FAIL: 1st ASN1_STRING_length(src) "
		    "returned a wrong length: %d (expected %zu)",
		    irc, strlen(data));
	if ((irc = ASN1_STRING_type(src)) != V_ASN1_IA5STRING)
		errx(1, "FAIL: 1st ASN1_STRING_type(src) "
		    "returned a wrong type: %d (expected %d)",
		    irc, V_ASN1_IA5STRING);

	/* Set up the destination string. */

	if ((dst = ASN1_STRING_new()) == NULL)
		err(1, "FAIL: ASN1_STRING_new() returned NULL");
	if ((str = ASN1_STRING_get0_data(dst)) != NULL)
		errx(1, "FAIL: 1st ASN1_STRING_get0_data(dst) "
		    "returned \"%s\" (expected NULL)", str);
	if ((irc = ASN1_STRING_length(dst)) != 0)
		errx(1, "FAIL: 1st ASN1_STRING_length(dst) "
		    "returned a wrong length: %d (expected 0)", irc);
	if ((irc = ASN1_STRING_type(dst)) != V_ASN1_OCTET_STRING)
		errx(1, "FAIL: 1st ASN1_STRING_type(dst) "
		    "returned a wrong type: %d (expected %d)",
		    irc, V_ASN1_OCTET_STRING);
	ASN1_STRING_length_set(dst, -1);
	if ((str = ASN1_STRING_get0_data(dst)) != NULL)
		errx(1, "FAIL: 2nd ASN1_STRING_get0_data(dst) "
		    "returned \"%s\" (expected NULL)", str);
	if ((irc = ASN1_STRING_length(dst)) != -1)
		errx(1, "FAIL: 2nd ASN1_STRING_length(dst) "
		    "returned a wrong length: %d (expected -1)", irc);
	if ((irc = ASN1_STRING_type(dst)) != V_ASN1_OCTET_STRING)
		errx(1, "FAIL: 2nd ASN1_STRING_type(dst) "
		    "returned a wrong type: %d (expected %d)",
		    irc, V_ASN1_OCTET_STRING);

	/* Attempt to copy in the wrong direction. */

	if (ASN1_STRING_copy(src, dst) != 0)
		errx(1, "FAIL: ASN1_STRING_copy unexpectedly succeeded");
	if ((str = ASN1_STRING_get0_data(src)) == NULL)
		errx(1, "FAIL: 2nd ASN1_STRING_get0_data(src) returned NULL");
	if (strcmp(str, data))
		errx(1, "FAIL: 2nd ASN1_STRING_get0_data(src) "
		    "returned wrong data: \"%s\" (expected \"%s\")",
		    str, data);
	if ((irc = ASN1_STRING_length(src)) != (int)strlen(data))
		errx(1, "FAIL: 2nd ASN1_STRING_length(src) "
		    "returned a wrong length: %d (expected %zu)",
		    irc, strlen(data));
	if ((irc = ASN1_STRING_type(src)) != V_ASN1_IA5STRING)
		errx(1, "FAIL: 2nd ASN1_STRING_type(src) "
		    "returned a wrong type: %d (expected %d)",
		    irc, V_ASN1_IA5STRING);

	/* Copy in the right direction. */

	if (ASN1_STRING_copy(dst, src) != 1)
		err(1, "FAIL: ASN1_STRING_copy unexpectedly failed");
	if ((str = ASN1_STRING_get0_data(dst)) == NULL)
		errx(1, "FAIL: 3rd ASN1_STRING_get0_data(dst) returned NULL");
	if (strcmp(str, data))
		errx(1, "FAIL: 3rd ASN1_STRING_get0_data(dst) "
		    "returned wrong data: \"%s\" (expected \"%s\")",
		    str, data);
	if ((irc = ASN1_STRING_length(dst)) != (int)strlen(data))
		errx(1, "FAIL: 3rd ASN1_STRING_length(dst) "
		    "returned a wrong length: %d (expected %zu)",
		    irc, strlen(data));
	if ((irc = ASN1_STRING_type(dst)) != V_ASN1_IA5STRING)
		errx(1, "FAIL: 3rd ASN1_STRING_type(dst) "
		    "returned a wrong type: %d (expected %d)",
		    irc, V_ASN1_IA5STRING);

	ASN1_STRING_free(src);
	ASN1_STRING_free(dst);
	return 0;
}