projects
/
sbcl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0e4b15d
)
use SB-EXT:EXIT in expect.sh instead of QUIT
author
Nikodemus Siivola
<nikodemus@random-state.net>
Thu, 4 Oct 2012 21:01:43 +0000
(
00:01
+0300)
committer
Nikodemus Siivola
<nikodemus@random-state.net>
Sat, 6 Oct 2012 08:37:15 +0000
(11:37 +0300)
tests/expect.sh
patch
|
blob
|
history
diff --git
a/tests/expect.sh
b/tests/expect.sh
index
bbcd3c5
..
383b5f8
100644
(file)
--- a/
tests/expect.sh
+++ b/
tests/expect.sh
@@
-26,7
+26,7
@@
expect_load_error ()
(assert (null value0))
(format t "VALUE1=~S (~A)~%" value1 value1)
(assert (typep value1 'error)))
(assert (null value0))
(format t "VALUE1=~S (~A)~%" value1 value1)
(assert (typep value1 'error)))
- (sb-ext:quit :unix-status $EXIT_LISP_WIN)
+ (sb-ext:exit :code $EXIT_LISP_WIN)
EOF
check_status_maybe_lose compile-and-load $?
EOF
check_status_maybe_lose compile-and-load $?
@@
-37,7
+37,7
@@
EOF
(assert (null value0))
(format t "VALUE1=~S (~A)~%" value1 value1)
(assert (typep value1 'error)))
(assert (null value0))
(format t "VALUE1=~S (~A)~%" value1 value1)
(assert (typep value1 'error)))
- (sb-ext:quit :unix-status $EXIT_LISP_WIN)
+ (sb-ext:exit :code $EXIT_LISP_WIN)
EOF
check_status_maybe_lose load-into-interpreter $?
}
EOF
check_status_maybe_lose load-into-interpreter $?
}
@@
-51,7
+51,7
@@
expect_clean_cload ()
(ignore-errors (load (compile-file-pathname "$f")))
(assert value0)
(assert (null value1)))
(ignore-errors (load (compile-file-pathname "$f")))
(assert value0)
(assert (null value1)))
- (sb-ext:quit :unix-status $EXIT_LISP_WIN)
+ (sb-ext:exit :code $EXIT_LISP_WIN)
EOF
check_status_maybe_lose load-compiled $?
}
EOF
check_status_maybe_lose load-compiled $?
}
@@
-67,7
+67,7
@@
expect_clean_compile ()
(declare (ignore pathname))
(assert (not warnings-p))
(assert (not failure-p))
(declare (ignore pathname))
(assert (not warnings-p))
(assert (not failure-p))
- (sb-ext:quit :unix-status $EXIT_LISP_WIN))
+ (sb-ext:exit :code $EXIT_LISP_WIN))
EOF
check_status_maybe_lose clean-compile $?
}
EOF
check_status_maybe_lose clean-compile $?
}
@@
-81,7
+81,7
@@
expect_warned_compile ()
(declare (ignore pathname))
(assert warnings-p)
(assert (not failure-p))
(declare (ignore pathname))
(assert warnings-p)
(assert (not failure-p))
- (sb-ext:quit :unix-status $EXIT_LISP_WIN))
+ (sb-ext:exit :code $EXIT_LISP_WIN))
EOF
check_status_maybe_lose warn-compile $?
}
EOF
check_status_maybe_lose warn-compile $?
}
@@
-94,7
+94,7
@@
expect_failed_compile ()
(compile-file "$f")
(declare (ignore pathname warnings-p))
(assert failure-p)
(compile-file "$f")
(declare (ignore pathname warnings-p))
(assert failure-p)
- (sb-ext:quit :unix-status $EXIT_LISP_WIN))
+ (sb-ext:exit :code $EXIT_LISP_WIN))
EOF
check_status_maybe_lose fail-compile $?
}
EOF
check_status_maybe_lose fail-compile $?
}
@@
-111,7
+111,7
@@
expect_aborted_compile ()
(assert failure-p)
(assert warnings-p)
(assert (not (probe-file fasl))))
(assert failure-p)
(assert warnings-p)
(assert (not (probe-file fasl))))
- (sb-ext:quit :unix-status $EXIT_LISP_WIN))
+ (sb-ext:exit :code $EXIT_LISP_WIN))
EOF
check_status_maybe_lose abort-compile $?
}
EOF
check_status_maybe_lose abort-compile $?
}
@@
-123,7
+123,7
@@
fail_on_condition_during_compile ()
run_sbcl <<EOF
(handler-bind (($c #'error))
(compile-file "$f")
run_sbcl <<EOF
(handler-bind (($c #'error))
(compile-file "$f")
- (sb-ext:quit :unix-status $EXIT_LISP_WIN))
+ (sb-ext:exit :code $EXIT_LISP_WIN))
EOF
check_status_maybe_lose "fail-on-condition_$1" $?
}
EOF
check_status_maybe_lose "fail-on-condition_$1" $?
}
@@
-135,7
+135,7
@@
expect_condition_during_compile ()
run_sbcl <<EOF
(handler-bind (($c (lambda (c)
(declare (ignore c))
run_sbcl <<EOF
(handler-bind (($c (lambda (c)
(declare (ignore c))
- (sb-ext:quit :unix-status $EXIT_LISP_WIN))))
+ (sb-ext:exit :code $EXIT_LISP_WIN))))
(compile-file "$f"))
EOF
check_status_maybe_lose "expect-condition_$1" $?
(compile-file "$f"))
EOF
check_status_maybe_lose "expect-condition_$1" $?