Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
2004-04-09 Martin Quinson <martin.quinson@tuxfamily.org>
[simgrid.git] / testsuite / gras / trp_file_server.c
diff --git a/testsuite/gras/trp_file_server.c b/testsuite/gras/trp_file_server.c
new file mode 100644 (file)
index 0000000..e1bfb99
--- /dev/null
@@ -0,0 +1,38 @@
+/* $Id$ */
+
+/* trp_tcp_server: Server of a test case for the tcp transport.             */
+
+/* Authors: Martin Quinson                                                  */
+/* Copyright (C) 2003 the OURAGAN project.                                  */
+
+/* This program is free software; you can redistribute it and/or modify it
+   under the terms of the license (GNU LGPL) which comes with this package. */
+
+#include <stdio.h>
+#include <gras.h>
+#include "../Transport/transport_interface.h"
+
+//GRAS_LOG_NEW_DEFAULT_CATEGORY(test);
+
+int main(int argc,char *argv[]) {
+  gras_socket_t *sock, *conn;
+  gras_error_t errcode;
+  char data_recv[256];
+
+  gras_init_defaultlog(argc,argv,"trp.thresh=debug");
+
+  fprintf(stderr,"===[SERVER]=== Create the socket\n");
+  TRYFAIL(gras_socket_server_from_file("-",&sock));
+
+  fprintf(stderr,"===[SERVER]=== Waiting for incomming connexions\n");
+  TRYFAIL(gras_trp_select(60,&conn));
+
+  fprintf(stderr,"===[SERVER]=== Contacted ! Waiting for the data\n");
+  TRYFAIL(gras_trp_chunk_recv(conn,data_recv, sizeof(data_recv)));
+  fprintf(stderr,"===[SERVER]=== Got '%s'.\n", data_recv);
+
+  fprintf(stderr,"===[SERVER]=== Exiting successfully\n");
+  gras_socket_close(&sock);
+
+  return 0;
+}