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

[simgrid.git] / tools / tesh / set-return.tesh

diff --git a/tools/tesh/set-return.tesh b/tools/tesh/set-return.tesh
index 679234d..4ff5698 100644 (file)
--- a/tools/tesh/set-return.tesh
+++ b/tools/tesh/set-return.tesh
@@ -2,19 +2,8 @@
 # This suite builds and uses a program returning 1.
 # tesh is instructed of this return code and must not whine.
 
 # This suite builds and uses a program returning 1.
 # tesh is instructed of this return code and must not whine.
 

-$ rm -rf temp_testdir-set-return
-$ mkdir temp_testdir-set-return
-
-$ cd temp_testdir-set-return
-< #include <stdlib.h>
-< int main(void) {
-<   exit(1);
-< }
-$ mkfile return1.c
-
-$ cc -o return1 return1.c
-

 ! expect return 1
 ! expect return 1

-$ ./return1
-$ cd ..
-$ rm -rf temp_testdir-set-return
+$ perl -e "exit 1"
+
+! expect return 42
+$ perl -e "exit 42"