2004-04-09 Martin Quinson <martin.quinson@tuxfamily.org>

[simgrid.git] / testsuite / gras / trp_file_client.c

diff --git a/testsuite/gras/trp_file_client.c b/testsuite/gras/trp_file_client.c
new file mode 100644 (file)
index 0000000..2504954
--- /dev/null
+++ b/testsuite/gras/trp_file_client.c
@@ -0,0 +1,34 @@
+/* $Id$ */
+
+/* trp_tcp_client: Client 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;
+  gras_error_t errcode;
+  char data_send[256];
+
+  gras_init_defaultlog(argc,argv,"trp.thresh=debug");
+
+  fprintf(stderr,"===[CLIENT]=== Contact the server\n");
+  TRYFAIL(gras_socket_client_from_file("-",&sock));
+
+  sprintf(data_send,"Hello, I am a little test data to send.");
+  fprintf(stderr,"===[CLIENT]=== Send data\n");
+  TRYFAIL(gras_trp_chunk_send(sock,data_send, sizeof(data_send)));
+  
+  fprintf(stderr,"===[CLIENT]=== Exiting successfully\n");
+  gras_socket_close(&sock);
+  return 0;
+}