p Check that we return the expected return value on SEGV
! expect return 15
< $ perl segfault.pl
-$ ${bindir:=.}/tesh
+$ perl ${bindir:=.}/tesh
> Test suite from stdin
> [(stdin):1] perl segfault.pl
> Test suite `(stdin)': NOK (<(stdin):1> got signal SIGSEGV)