X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/2fe88613fbaaeb0e648d1d2acbd3f7b53f6a5298..46448320f12d59d0a5efc015ec51ec6ebba525c6:/tools/tesh/catch-signal.tesh

diff --git a/tools/tesh/catch-signal.tesh b/tools/tesh/catch-signal.tesh
index 2b0436f2aa..be19f344c8 100644
--- a/tools/tesh/catch-signal.tesh
+++ b/tools/tesh/catch-signal.tesh
@@ -2,27 +2,25 @@
 # This suite builds and uses a program raising a segfault, ie a program dying
 # of SIGSEV. tesh must detect this condition and report the issue.
 
-$ rm -rf temp_testdir-catch-signal
+$ cmake -E remove_directory temp_testdir-catch-signal
 $ mkdir temp_testdir-catch-signal
 
 $ cd temp_testdir-catch-signal
-< #include <stdlib.h>
-< int main(void) {
-<   char *A=NULL;
-<   *A = 1;
-< }
-$ mkfile segfault.c
+< kill 'SEGV', $$;
+$ mkfile segfault.pl
 
-$ gcc -o segfault segfault.c
+p Check that we notice when SEGV is raised
+! expect signal SIGSEGV
+$ perl segfault.pl
 
+p Check that we return the expected return value on SEGV
 ! expect return 15
-< $ ./segfault
-$ ../tesh --log='log.thresh:info tesh.fmt:%m%n'
+< $ perl segfault.pl
+$ perl ${bindir:=.}/tesh
 > Test suite from stdin
-> [(stdin):1] ./segfault
+> [(stdin):1] perl segfault.pl
 > Test suite `(stdin)': NOK (<(stdin):1> got signal SIGSEGV)
-> Output of <(stdin):1> so far: 
-> ||
+> <(stdin):1> No output so far.
 
 $ cd ..
-$ rm -rf temp_testdir-catch-signal
+$ cmake -E remove_directory temp_testdir-catch-signal