tests: added test case for record timeout values

diff --git a/tests/Makefile.am b/tests/Makefile.am
index 4ca3e60b6295994ffec32bbe937532ef1241b2b8..04c7cc58d7bed36f62a25cd69052691fd6fa59f2 100644 (file)
--- a/tests/Makefile.am
+++ b/tests/Makefile.am
@@ -89,7 +89,8 @@ ctests = mini-record-2 simple gc set_pkcs12_cred certder certuniqueid \
         sign-md5-rep keygen mini-tls-nonblock no-signal pkcs7-gen \
         x509sign-verify2 mini-alignment oids atfork prf psk-file \
         status-request status-request-ok fallback-scsv pkcs8-key-decode \
-        key-usage resume-psk mini-session-verify-function auto-verify
+        key-usage resume-psk mini-session-verify-function auto-verify \
+        record-timeouts
 
 mini_dtls_pthread_LDADD = $(LDADD) -lpthread
 

diff --git a/tests/record-timeouts.c b/tests/record-timeouts.c
new file mode 100644 (file)
index 0000000..b9c2424
--- /dev/null
+++ b/tests/record-timeouts.c
@@ -0,0 +1,157 @@
+/*
+ * Copyright (C) 2015 Red Hat, Inc.
+ *
+ * Author: Nikos Mavrogiannopoulos
+ *
+ * This file is part of GnuTLS.
+ *
+ * GnuTLS is free software; you can redistribute it and/or modify it
+ * under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * GnuTLS is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with GnuTLS; if not, write to the Free Software Foundation,
+ * Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
+ */
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <errno.h>
+#include <gnutls/gnutls.h>
+#include "eagain-common.h"
+
+#include "utils.h"
+
+const char *side = "";
+
+static void tls_log_func(int level, const char *str)
+{
+       fprintf(stderr, "%s|<%d>| %s", side, level, str);
+}
+
+/* This tests gnutls_record_set_timeout() operation
+ */
+
+#define MAX_BUF 16384
+static char b1[MAX_BUF + 1];
+static char buffer[MAX_BUF + 1];
+static unsigned int expected_val = -1;
+static unsigned int called = 1;
+
+static int pull_timeout_func(gnutls_transport_ptr_t ptr, unsigned int ms)
+{
+       called = 1;
+       if (ms == 0 && expected_val != 0) {
+               fail("Expected timeout value: %u, got %u\n", expected_val, ms);
+               exit(1);
+       } else if (ms != expected_val && ms == GNUTLS_INDEFINITE_TIMEOUT) {
+               fail("Expected timeout value: %u, got %u\n", expected_val, ms);
+               exit(1);
+       }
+       return 1;
+}
+
+#define MAX_VALS 4
+static const int vals[MAX_VALS] = {0, 1000, 5000, GNUTLS_INDEFINITE_TIMEOUT};
+
+void doit(void)
+{
+       /* Server stuff. */
+       gnutls_anon_server_credentials_t s_anoncred;
+       const gnutls_datum_t p3 =
+           { (unsigned char *) pkcs3, strlen(pkcs3) };
+       static gnutls_dh_params_t dh_params;
+       gnutls_session_t server;
+       int sret = GNUTLS_E_AGAIN;
+       /* Client stuff. */
+       gnutls_anon_client_credentials_t c_anoncred;
+       gnutls_session_t client;
+       int cret = GNUTLS_E_AGAIN, i;
+       /* Need to enable anonymous KX specifically. */
+       ssize_t ns;
+       int ret, transferred = 0;
+
+       /* General init. */
+       global_init();
+       gnutls_global_set_log_function(tls_log_func);
+       if (debug)
+               gnutls_global_set_log_level(4711);
+
+       /* Init server */
+       gnutls_anon_allocate_server_credentials(&s_anoncred);
+       gnutls_dh_params_init(&dh_params);
+       gnutls_dh_params_import_pkcs3(dh_params, &p3, GNUTLS_X509_FMT_PEM);
+       gnutls_anon_set_server_dh_params(s_anoncred, dh_params);
+       gnutls_init(&server, GNUTLS_SERVER);
+       gnutls_priority_set_direct(server,
+                                  "NORMAL:+ANON-DH:+ANON-ECDH",
+                                  NULL);
+       gnutls_credentials_set(server, GNUTLS_CRD_ANON, s_anoncred);
+       gnutls_transport_set_push_function(server, server_push);
+       gnutls_transport_set_pull_function(server, server_pull);
+       gnutls_transport_set_ptr(server, server);
+
+       /* Init client */
+       gnutls_anon_allocate_client_credentials(&c_anoncred);
+       gnutls_init(&client, GNUTLS_CLIENT);
+       gnutls_priority_set_direct(client,
+                                  "NORMAL:+ANON-DH:+ANON-ECDH",
+                                  NULL);
+       gnutls_credentials_set(client, GNUTLS_CRD_ANON, c_anoncred);
+       gnutls_transport_set_push_function(client, client_push);
+       gnutls_transport_set_pull_function(client, client_pull);
+       gnutls_transport_set_pull_timeout_function(client, pull_timeout_func);
+       gnutls_transport_set_ptr(client, client);
+
+       memset(b1, 0, sizeof(b1));
+       HANDSHAKE(client, server);
+
+       if (debug)
+               success("Handshake established\n");
+
+       memset(b1, 1, MAX_BUF);
+
+       /* Try sending various other sizes */
+       for (i = 1; i < 128; i++) {
+               called = 0;
+               gnutls_record_set_timeout(client, vals[i%MAX_VALS]);
+               expected_val = vals[i%MAX_VALS];
+
+               TRANSFER(client, server, b1, i, buffer, MAX_BUF);
+
+               if (called == 0 && expected_val != 0) {
+                       fail("pull timeout callback was not called for %d!\n", vals[i%MAX_VALS]);
+                       exit(1);
+               } else if (called != 0 && expected_val == 0) {
+                       fail("pull timeout callback was called for %d!\n", vals[i%MAX_VALS]);
+                       exit(1);
+               }
+       }
+       if (debug)
+               fputs("\n", stdout);
+
+       gnutls_bye(client, GNUTLS_SHUT_RDWR);
+       gnutls_bye(server, GNUTLS_SHUT_RDWR);
+
+       gnutls_deinit(client);
+       gnutls_deinit(server);
+
+       gnutls_anon_free_client_credentials(c_anoncred);
+       gnutls_anon_free_server_credentials(s_anoncred);
+
+       gnutls_dh_params_deinit(dh_params);
+
+       gnutls_global_deinit();
+}
+