[tesh] Write self-tests in perl (we may not have cc at hand)

[simgrid.git] / tools / tesh / bg-set-signal.tesh

diff --git a/tools/tesh/bg-set-signal.tesh b/tools/tesh/bg-set-signal.tesh
index ff9c3d5..172435d 100644 (file)
--- a/tools/tesh/bg-set-signal.tesh
+++ b/tools/tesh/bg-set-signal.tesh
@@ -5,17 +5,12 @@
 $ rm -rf temp_testdir-bg-set-signal
 $ mkdir temp_testdir-bg-set-signal
 
-$ cd temp_testdir-bg-set-signal
-< #include <stdlib.h>
-< int main(void) {
-<   char *A=NULL;
-<   *A = 1;
-< }
-$ mkfile segfault.c
+$ cd temp_testdir-catch-signal
+< kill 'SEGV', $$;
+$ mkfile segfault.pl
 
-$ cc -o segfault segfault.c
 ! expect signal SIGSEGV
-& ./segfault
-$ sleep 1
+& perl segfault.pl
+
 $ cd ..
 $ rm -rf temp_testdir-bg-set-signal