- test_printf_stderr("\n");
- test_flush_stderr();
-}
-
-static void test_fail_string_message(const char *prefix, const char *file,
- int line, const char *type,
- const char *left, const char *right,
- const char *op, const char *m1, size_t l1,
- const char *m2, size_t l2)
-{
- const int indent = subtest_level();
- const size_t width = (MAX_STRING_WIDTH - indent - 12) / 16 * 16;
- char b1[MAX_STRING_WIDTH + 1], b2[MAX_STRING_WIDTH + 1];
- char bdiff[MAX_STRING_WIDTH + 1];
- size_t n1, n2, i;
- unsigned int cnt = 0, diff;
-
- test_fail_message_prefix(prefix, file, line, type, left, right, op);
- if (m1 == NULL)
- l1 = 0;
- if (m2 == NULL)
- l2 = 0;
- if (l1 == 0 && l2 == 0) {
- if ((m1 == NULL) == (m2 == NULL)) {
- test_printf_stderr("%*s# % 4s %s\n", indent, "", "",
- m1 == NULL ? "NULL" : "''");
- } else {
- test_diff_header(left, right);
- test_printf_stderr("%*s# % 4s - %s\n", indent, "", "",
- m1 == NULL ? "NULL" : "''");
- test_printf_stderr("%*s# % 4s + %s\n", indent, "", "",
- m2 == NULL ? "NULL" : "''");
- }
- goto fin;
- }
-
- if (l1 != l2 || strcmp(m1, m2) != 0)
- test_diff_header(left, right);
-
- while (l1 > 0 || l2 > 0) {
- n1 = n2 = 0;
- if (l1 > 0) {
- b1[n1 = l1 > width ? width : l1] = 0;
- for (i = 0; i < n1; i++)
- b1[i] = isprint(m1[i]) ? m1[i] : '.';
- }
- if (l2 > 0) {
- b2[n2 = l2 > width ? width : l2] = 0;
- for (i = 0; i < n2; i++)
- b2[i] = isprint(m2[i]) ? m2[i] : '.';
- }
- diff = n1 != n2;
- i = 0;
- if (n1 > 0 && n2 > 0) {
- const size_t j = n1 < n2 ? n1 : n2;
- const size_t k = n1 > n2 ? n1 : n2;
-
- for (; i < j; i++)
- if (m1[i] == m2[i]) {
- bdiff[i] = ' ';
- } else {
- bdiff[i] = '^';
- diff = 1;
- }
- for (; i < k; i++)
- bdiff[i] = '^';
- bdiff[i] = '\0';
- }
- if (!diff) {
- test_printf_stderr("%*s# % 4u: '%s'\n", indent, "", cnt, b1);
- } else {
- if (cnt == 0 && m1 == NULL)
- test_printf_stderr("%*s# % 4s - NULL\n", indent, "", "");
- else if (cnt == 0 && *m1 == '\0')
- test_printf_stderr("%*s# % 4s - ''\n", indent, "", "");
- else if (n1 > 0)
- test_printf_stderr("%*s# % 4u:- '%s'\n", indent, "", cnt, b1);
- if (cnt == 0 && m2 == NULL)
- test_printf_stderr("%*s# % 4s + NULL\n", indent, "", "");
- else if (cnt == 0 && *m2 == '\0')
- test_printf_stderr("%*s# % 4s + ''\n", indent, "", "");
- else if (n2 > 0)
- test_printf_stderr("%*s# % 4u:+ '%s'\n", indent, "", cnt, b2);
- if (i > 0)
- test_printf_stderr("%*s# % 4s %s\n", indent, "", "", bdiff);
- }
- m1 += n1;
- m2 += n2;
- l1 -= n1;
- l2 -= n2;
- cnt += width;
- }
-fin:
- test_printf_stderr("\n");
- test_flush_stderr();
-}
-
-static char *convertBN(const BIGNUM *b)
-{
- if (b == NULL)
- return NULL;
- if (BN_is_zero(b) && BN_is_negative(b))
- return BN_minus_zero;
- return BN_bn2hex(b);
-}
-
-static void test_fail_bignum_message(const char *prefix, const char *file,
- int line, const char *type,
- const char *left, const char *right,
- const char *op,
- const BIGNUM *bn1, const BIGNUM *bn2)
-{
- char *s1 = convertBN(bn1), *s2 = convertBN(bn2);
- size_t l1 = s1 != NULL ? strlen(s1) : 0;
- size_t l2 = s2 != NULL ? strlen(s2) : 0;
-
- test_fail_string_message(prefix, file, line, type, left, right, op,
- s1, l1, s2, l2);
- if (s1 != BN_minus_zero)
- OPENSSL_free(s1);
- if (s2 != BN_minus_zero)
- OPENSSL_free(s2);
-}
-
-static void test_fail_bignum_mono_message(const char *prefix, const char *file,
- int line, const char *type,
- const char *left, const char *right,
- const char *op, const BIGNUM *bn)
-{
- char *s = convertBN(bn);
- size_t l = s != NULL ? strlen(s) : 0;
-
- test_fail_string_message(prefix, file, line, type, left, right, op,
- s, l, s, l);
- if (s != BN_minus_zero)
- OPENSSL_free(s);
-}
-
-static void hex_convert_memory(const char *m, size_t n, char *b)
-{
- size_t i;
-
- for (i = 0; i < n; i++) {
- const unsigned char c = *m++;
-
- *b++ = "0123456789abcdef"[c >> 4];
- *b++ = "0123456789abcdef"[c & 15];
- if ((i % 8) == 7 && i != n - 1)
- *b++ = ' ';
- }
- *b = '\0';
-}
-
-static void test_fail_memory_message(const char *prefix, const char *file,
- int line, const char *type,
- const char *left, const char *right,
- const char *op, const char *m1, size_t l1,
- const char *m2, size_t l2)
-{
- const int indent = subtest_level();
- const size_t bytes = (MAX_STRING_WIDTH - 9) / 17 * 8;
- char b1[MAX_STRING_WIDTH + 1], b2[MAX_STRING_WIDTH + 1];
- char *p, bdiff[MAX_STRING_WIDTH + 1];
- size_t n1, n2, i;
- unsigned int cnt = 0, diff;
-
- test_fail_message_prefix(prefix, file, line, type, left, right, op);
- if (m1 == NULL)
- l1 = 0;
- if (m2 == NULL)
- l2 = 0;
- if (l1 == 0 && l2 == 0) {
- if ((m1 == NULL) == (m2 == NULL)) {
- test_printf_stderr("%*s# %04s %s\n", indent, "", "",
- m1 == NULL ? "NULL" : "empty");
- } else {
- test_diff_header(left, right);
- test_printf_stderr("%*s# %04s -%s\n", indent, "", "",
- m1 == NULL ? "NULL" : "empty");
- test_printf_stderr("%*s# %04s +%s\n", indent, "", "",
- m2 == NULL ? "NULL" : "empty");
- }
- goto fin;
- }
-
- if (l1 != l2 || memcmp(m1, m2, l1) != 0)
- test_diff_header(left, right);
-
- while (l1 > 0 || l2 > 0) {
- n1 = n2 = 0;
- if (l1 > 0) {
- n1 = l1 > bytes ? bytes : l1;
- hex_convert_memory(m1, n1, b1);
- }
- if (l2 > 0) {
- n2 = l2 > bytes ? bytes : l2;
- hex_convert_memory(m2, n2, b2);
- }
-
- diff = n1 != n2;
- i = 0;
- p = bdiff;
- if (n1 > 0 && n2 > 0) {
- const size_t j = n1 < n2 ? n1 : n2;
- const size_t k = n1 > n2 ? n1 : n2;
-
- for (; i < j; i++) {
- if (m1[i] == m2[i]) {
- *p++ = ' ';
- *p++ = ' ';
- } else {
- *p++ = '^';
- *p++ = '^';
- diff = 1;
- }
- if ((i % 8) == 7 && (i != j - 1 || j != k))
- *p++ = ' ';
- }
-
- for (; i < k; i++) {
- *p++ = '^';
- *p++ = '^';
- if ((i % 8) == 7 && i != k - 1)
- *p++ = ' ';
- }
- *p++ = '\0';
- }
-
- if (!diff) {
- test_printf_stderr("%*s# %04x: %s\n", indent, "", cnt, b1);
- } else {
- if (cnt == 0 && m1 == NULL)
- test_printf_stderr("%*s# %04s -NULL\n", indent, "", "");
- else if (cnt == 0 && l1 == 0)
- test_printf_stderr("%*s# %04s -empty\n", indent, "", "");
- else if (n1 > 0)
- test_printf_stderr("%*s# %04x:-%s\n", indent, "", cnt, b1);
- if (cnt == 0 && m2 == NULL)
- test_printf_stderr("%*s# %04s +NULL\n", indent, "", "");
- else if (cnt == 0 && l2 == 0)
- test_printf_stderr("%*s# %04s +empty\n", indent, "", "");
- else if (n2 > 0)
- test_printf_stderr("%*s# %04x:+%s\n", indent, "", cnt, b2);
- if (i > 0)
- test_printf_stderr("%*s# % 4s %s\n", indent, "", "", bdiff);
- }
- m1 += n1;
- m2 += n2;
- l1 -= n1;
- l2 -= n2;
- cnt += bytes;
- }
-fin:
- test_printf_stderr("\n");