Move GRAS tests to TESH

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

diff --git a/teshsuite/gras/trp_file_client.c b/teshsuite/gras/trp_file_client.c
new file mode 100644 (file)
index 0000000..c60f9fa
--- /dev/null
+++ b/teshsuite/gras/trp_file_client.c
@@ -0,0 +1,43 @@
+/* $Id$ */
+
+/* trp_tcp_client: Client of a test case for the tcp transport.             */
+
+/* Copyright (c) 2003, 2004 Martin Quinson. All rights reserved.            */
+
+/* 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. */
+ 
+#ifdef __BORLANDC__
+#pragma hdrstop
+#endif
+
+#include <stdio.h>
+#include "gras.h"
+#include "gras/Transport/transport_interface.h"
+
+XBT_LOG_NEW_CATEGORY(test,"Logging for this test");
+
+#ifdef __BORLANDC__
+#pragma argsused
+#endif
+
+int main(int argc,char *argv[]) {
+  gras_socket_t sock;
+  char data_send[256];
+
+  memset(data_send,0,sizeof(data_send));
+  gras_init(&argc,argv);
+
+  fprintf(stderr,"===[CLIENT]=== Contact the server\n");
+  sock = gras_socket_client_from_file("-");
+
+  sprintf(data_send,"Hello, I am a little test data to send.");
+  fprintf(stderr,"===[CLIENT]=== Send data\n");
+  gras_trp_send(sock,data_send, sizeof(data_send),1);
+  
+  fprintf(stderr,"===[CLIENT]=== Exiting successfully\n");
+  gras_socket_close(sock);
+   
+  gras_exit();
+  return 0;
+}