Files

J.J. Tolton b91ce76052 Add comprehensive tests for g_caused_exception/2

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>

2025-11-09 12:44:48 -05:00

3.4 KiB

Raw Blame History

Custom Toplevel Tests

Basic -t halt functionality

Test that -t halt prevents entering REPL and exits cleanly

$ scryer-prolog -f --no-add-history -t halt

-t halt with successful goal

Test that -t halt exits after running a goal successfully

$ 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

$ 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

$ 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

$ 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

$ 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

$ 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

$ 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

$ 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)

$ 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

$ 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

$ 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

$ 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)

3.4 KiB Raw Blame History