Fixed perl unit tests

This commit is contained in:
Vojtech Bubnik 2021-05-05 13:27:00 +02:00
parent a2de09e11e
commit 5764d8984c

View File

@ -71,7 +71,7 @@ diff(subject, clip, safety_offset = false)
Polygons clip
bool safety_offset
CODE:
RETVAL = diff(subject, clip, safety_offset);
RETVAL = diff(subject, clip, safety_offset ? ApplySafetyOffset::Yes : ApplySafetyOffset::No);
OUTPUT:
RETVAL
@ -81,7 +81,7 @@ diff_ex(subject, clip, safety_offset = false)
Polygons clip
bool safety_offset
CODE:
RETVAL = diff_ex(subject, clip, safety_offset);
RETVAL = diff_ex(subject, clip, safety_offset ? ApplySafetyOffset::Yes : ApplySafetyOffset::No);
OUTPUT:
RETVAL
@ -100,7 +100,7 @@ intersection(subject, clip, safety_offset = false)
Polygons clip
bool safety_offset
CODE:
RETVAL = intersection(subject, clip, safety_offset);
RETVAL = intersection(subject, clip, safety_offset ? ApplySafetyOffset::Yes : ApplySafetyOffset::No);
OUTPUT:
RETVAL
@ -110,7 +110,7 @@ intersection_ex(subject, clip, safety_offset = false)
Polygons clip
bool safety_offset
CODE:
RETVAL = intersection_ex(subject, clip, safety_offset);
RETVAL = intersection_ex(subject, clip, safety_offset ? ApplySafetyOffset::Yes : ApplySafetyOffset::No);
OUTPUT:
RETVAL
@ -128,7 +128,7 @@ union(subject, safety_offset = false)
Polygons subject
bool safety_offset
CODE:
RETVAL = union_(subject, safety_offset);
RETVAL = safety_offset ? union_safety_offset(subject) : union_(subject);
OUTPUT:
RETVAL
@ -137,7 +137,7 @@ union_ex(subject, safety_offset = false)
Polygons subject
bool safety_offset
CODE:
RETVAL = union_ex(subject, safety_offset);
RETVAL = safety_offset ? union_safety_offset_ex(subject) : union_ex(subject);
OUTPUT:
RETVAL