Skip to content

Commit

Permalink
(core) p_unit: avoid modedef expansions in test assertions
Browse files Browse the repository at this point in the history
Src-commit: 0364200941549fb8f9447a8e205fdf4fe4ef30c1
  • Loading branch information
jfmc committed Jul 22, 2023
1 parent c1c2174 commit 8e17445
Showing 1 changed file with 1 addition and 0 deletions.
1 change: 1 addition & 0 deletions core/lib/compiler/p_unit/p_unit_db.pl
Original file line number Diff line number Diff line change
Expand Up @@ -432,6 +432,7 @@
"Assertion head syntax ~q, assertion ignored (try loading the 'modes' package)", [Goal])
).

allowed_head(Type,_) :- Type = test, !. % TODO: allow arbitrary args in test assertions (normalize instead?)
allowed_head(Type,Goal) :-
Type \= entry, !,
functor(Goal,F,A),
Expand Down

0 comments on commit 8e17445

Please sign in to comment.