Skip to content

Commit 129d9a1

Browse files
committed
Avoid constraint_error on comparing json values
of unmatched kinds. (no-tn-check)
1 parent ad4d590 commit 129d9a1

File tree

1 file changed

+1
-0
lines changed

1 file changed

+1
-0
lines changed

source/tester/tester-tests.adb

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1091,6 +1091,7 @@ package body Tester.Tests is
10911091
begin
10921092
if Left.Kind /= Right.Kind then
10931093
Diff (Left, Right);
1094+
return;
10941095
end if;
10951096

10961097
case Left.Kind is

0 commit comments

Comments
 (0)