X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/d0ffc37686edcc803601f76ab51fdfed5fc2f241..cf74de4a878beaa5177d7ea2fc4e11b550240559:/tools/tesh/background.tesh

diff --git a/tools/tesh/background.tesh b/tools/tesh/background.tesh
index 359d2a5446..6eb8602370 100644
--- a/tools/tesh/background.tesh
+++ b/tools/tesh/background.tesh
@@ -1,56 +1,23 @@
 
-$ rm -rf temp_testdir_background
-$ mkdir temp_testdir_background
-$ cd temp_testdir_background
+$ cmake -E remove bgtesh.pl bgtesh.data
 
-< #include <unistd.h>
-< #include <stdlib.h>
-< #include <stdio.h>
-< #include <sys/types.h>
-< #include <sys/stat.h>
-< #include <fcntl.h>
-< #ifdef WIN32 
-<   #include "windows.h"
-< #endif
-<		     
-< int main() {
-<   char buff[2048];
-<   int got;
-<   int in;
+< use strict; 
+< sleep(1);
+< open (FILE, "<bgtesh.data") || die "Cannot open bgtesh.data: $!\n";
 < 
-< #ifndef WIN32 
-<   sleep(1);
-< #else
-<   Sleep(1000);
-< #endif
-<   in = open("tmp_fich",O_RDONLY|O_CREAT);
-<   if (in == -1) {
-<     perror("Cannot open tmp_fich: ");
-<     exit(1);
-<   }
-<   while ((got = read(in,&buff,2048))>0) {
-<      int w = write(1,&buff,got);
-<      if (w<0) {
-<        perror("Error while writing:");
-<        exit(1);
-<      }
-<   }
-<   if (got < 0) {
-<     perror("Error while reading:");
-<     exit(1);
-<   }
-<   return 0;
+< while (<FILE>) {
+<   print;
 < }
-$ mkfile delayed_cat.c
+< close(FILE);
+< exit 0;
+<
+$ mkfile bgtesh.pl
 
-$ gcc -Wall -o delayed_cat delayed_cat.c
-
-& ./delayed_cat
+& perl bgtesh.pl
 > TOTO
 
 < TOTO
-$ mkfile tmp_fich
+$ mkfile bgtesh.data
 
 $ sleep 2
-$ cd ..
-$ rm -rf temp_testdir_background
+$ cmake -E remove bgtesh.pl bgtesh.data