VM: make save-image throw exception on error (#1090)

[factor.git] / core / memory / memory-tests.factor

diff --git a/core/memory/memory-tests.factor b/core/memory/memory-tests.factor
index 4f2fe9601c4caa1be91cc20b00a53c313719c2ef..6aa97a6838531b4ef53dc85007b903b8ae793d54 100644 (file)
--- a/core/memory/memory-tests.factor
+++ b/core/memory/memory-tests.factor
@@ -6,6 +6,13 @@ IN: memory.tests
 
 [ save-image-and-exit ] must-fail
 
+[ "does/not/exist" save-image ] must-fail
+
+[
+    os windows? "C:\\windows\\hello-windows" "/usr/bin/hello-unix" ?
+    save-image
+] must-fail
+
 ! Tests for 'instances'
 [ [ ] instances ] must-infer
 2 [ [ [ 3 throw ] instances ] must-fail ] times