Extend UpEnv/DownEnv test

gap-system · Oct 24, 2017 · 1195411 · 1195411
1 parent 6e08245
commit 1195411
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 0 deletions.
diff --git a/tst/test-error/up-down-env.g b/tst/test-error/up-down-env.g
@@ -8,3 +8,10 @@ DownEnv(10); lvl;
 UpEnv(1); lvl;
 UpEnv(3); lvl;
 DownEnv(2); lvl;
+Read("good.g");
+lvl;
+Read("top-level-error.g");
+Where(20);
+lvl;
+quit;
+lvl;
diff --git a/tst/test-error/up-down-env.g.out b/tst/test-error/up-down-env.g.out
@@ -16,4 +16,14 @@ brk> 7
 brk> 6
 brk> 3
 brk> 5
+brk> All is well
+brk> 5
+brk> Error, foo called from
+not in any function at top-level-error.g:1
+you can 'quit;' to quit to outer loop, or
+you can 'return;' to continue
+brk_2> not in any function at *errin*:1
+brk_2> Error, Variable: 'lvl' must have a value
+not in any function at *errin*:2
+brk_2> brk> 5
 brk>