rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add tests for issue 3048

Browse Source
This commit is contained in:
Skgland
2025-08-16 15:29:25 +02:00
committed by Bennet Bleßmann
parent 93cc4d4898
commit e38ee14580
9 changed files with 160 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
tests/scryer/cli/issues/issue_3048.in/compare_get_assoc.pl Normal file
View File

@@ -0,0 +1,12 @@
get_assoc(Key, t(K,V,_,L,R), Val) :-
compare(Rel, Key, K),
get_assoc(Rel, Key, V, L, R, Val).
get_assoc(=, _, Val, _, _, Val).
get_assoc(>, Key, _, _, Tree, Val) :- get_assoc(Key, Tree, Val).
test :- get_assoc("1"-'0', t("0"-'2',_, _, t(_,_,_,t,t), t("1"-'0',_,_,t,t)), _).
?- test.
false, unexpected.
true.