b91ce76052
Following TESTING_GUIDE.md, added tests at layers 2 and 3: Layer 2 - Prolog Integration Tests (src/tests/custom_toplevel.pl): - Test that g_caused_exception/2 is not asserted when no exception occurs - Test that g_caused_exception/2 can be checked from custom toplevel - Added check_for_exception/0 helper predicate for testing Layer 3 - CLI Tests (tests/scryer/cli/src_tests/custom_toplevel.md): - Test g_caused_exception/2 with exception thrown - Test g_caused_exception/2 with no exception - Test g_caused_exception/2 with error/2 terms - Added test helper predicates in fixtures/toplevel_test_helper.pl All tests pass successfully. Co-Authored-By: J.J.'s Robot <jjtolton@gmail.com>
126 lines
3.4 KiB
Markdown
126 lines
3.4 KiB
Markdown
# Custom Toplevel Tests
|
|
|
|
## Basic -t halt functionality
|
|
Test that -t halt prevents entering REPL and exits cleanly
|
|
|
|
```trycmd
|
|
$ scryer-prolog -f --no-add-history -t halt
|
|
```
|
|
|
|
## -t halt with successful goal
|
|
Test that -t halt exits after running a goal successfully
|
|
|
|
```trycmd
|
|
$ scryer-prolog -f --no-add-history -g "write('Goal executed')" -t halt
|
|
Goal executed
|
|
```
|
|
|
|
## -t halt with failing goal
|
|
Test that -t halt still exits even when goal fails
|
|
|
|
```trycmd
|
|
$ scryer-prolog -f --no-add-history -g "fail" -t halt
|
|
% Warning: initialization failed for: fail
|
|
|
|
```
|
|
|
|
## Custom toplevel with exit code 0
|
|
Test custom toplevel that exits with code 0
|
|
|
|
```trycmd
|
|
$ scryer-prolog -f --no-add-history tests/scryer/cli/fixtures/toplevel_test_helper.pl -t success_toplevel
|
|
SUCCESS_TOPLEVEL_EXECUTED
|
|
|
|
```
|
|
|
|
## Custom toplevel with file loading
|
|
Test that custom toplevel can access predicates from loaded file
|
|
|
|
```trycmd
|
|
$ scryer-prolog -f --no-add-history tests/scryer/cli/fixtures/toplevel_test_helper.pl -t test_file_loaded
|
|
LOADED_PREDICATE_CALLED
|
|
|
|
```
|
|
|
|
## Custom toplevel with -g goal
|
|
Test combining -g goal with custom toplevel
|
|
|
|
```trycmd
|
|
$ scryer-prolog -f --no-add-history tests/scryer/cli/fixtures/toplevel_test_helper.pl -g "helper_predicate" -t halt
|
|
Helper predicate works
|
|
|
|
```
|
|
|
|
## Multiple goals with custom toplevel
|
|
Test multiple -g goals before custom toplevel
|
|
|
|
```trycmd
|
|
$ scryer-prolog -f --no-add-history tests/scryer/cli/fixtures/toplevel_test_helper.pl -g "write('First goal'), nl" -g "write('Second goal'), nl" -t halt
|
|
First goal
|
|
Second goal
|
|
|
|
```
|
|
|
|
## File loading then custom toplevel
|
|
Test that files are loaded before toplevel runs
|
|
|
|
```trycmd
|
|
$ scryer-prolog -f --no-add-history tests/scryer/cli/fixtures/toplevel_test_helper.pl -t write_and_exit
|
|
Output from custom toplevel
|
|
|
|
```
|
|
|
|
## Undefined toplevel predicate
|
|
Test error handling when toplevel predicate doesn't exist
|
|
|
|
```trycmd
|
|
$ scryer-prolog -f --no-add-history -t undefined_predicate
|
|
? failed
|
|
error(existence_error(procedure,undefined_predicate/0),undefined_predicate/0).
|
|
|
|
```
|
|
|
|
## Test that default behavior unchanged
|
|
Without -t flag, a simple goal should still work (using halt to avoid REPL)
|
|
|
|
```trycmd
|
|
$ scryer-prolog -f --no-add-history -g "write('No custom toplevel'), nl, halt"
|
|
No custom toplevel
|
|
|
|
```
|
|
|
|
## g_caused_exception/2 with exception thrown
|
|
Test that g_caused_exception/2 is asserted when -g goal throws exception
|
|
|
|
```trycmd
|
|
$ scryer-prolog -f --no-add-history tests/scryer/cli/fixtures/toplevel_test_helper.pl -g "throw(test_error)" -t check_exception_halt_1
|
|
? 1
|
|
throw(test_error) causes: test_error
|
|
EXCEPTION_CAUGHT
|
|
Goal: throw(test_error)
|
|
Exception: test_error
|
|
|
|
```
|
|
|
|
## g_caused_exception/2 with no exception
|
|
Test that g_caused_exception/2 is not asserted when -g goal succeeds
|
|
|
|
```trycmd
|
|
$ scryer-prolog -f --no-add-history tests/scryer/cli/fixtures/toplevel_test_helper.pl -g "write('Success')" -t check_exception_halt_0
|
|
SuccessSUCCESS_NO_EXCEPTION
|
|
|
|
```
|
|
|
|
## g_caused_exception/2 with error() term
|
|
Test that g_caused_exception/2 captures error/2 terms correctly
|
|
|
|
```trycmd
|
|
$ scryer-prolog -f --no-add-history tests/scryer/cli/fixtures/toplevel_test_helper.pl -g "throw(error(type_error(integer, foo), context))" -t check_exception_halt_1
|
|
? 1
|
|
throw(error(type_error(integer,foo),context)) causes: error(type_error(integer,foo),context)
|
|
EXCEPTION_CAUGHT
|
|
Goal: throw(error(type_error(integer,foo),context))
|
|
Exception: error(type_error(integer,foo),context)
|
|
|
|
```
|