mirror of
https://github.com/JustinSDK/dotSCAD.git
synced 2025-01-17 14:18:13 +01:00
20 lines
557 B
OpenSCAD
20 lines
557 B
OpenSCAD
use <util/dedup.scad>
|
|
|
|
module test_dedup() {
|
|
echo("==== test_dedup ====");
|
|
|
|
eq = function(e1, e2) e1[0] == e2[0] && e1[1] == e2[1] && e1[2] == e2[2];
|
|
|
|
points = [[1, 1, 2], [3, 4, 2], [7, 2, 2], [3, 4, 2], [1, 2, 3]];
|
|
assert(
|
|
dedup([[1, 1, 2], [3, 4, 2], [7, 2, 2], [3, 4, 2], [1, 2, 3]])
|
|
== [[1, 1, 2], [3, 4, 2], [7, 2, 2], [1, 2, 3]]
|
|
);
|
|
|
|
assert(
|
|
dedup([[1, 1, 2], [3, 4, 2], [7, 2, 2], [3, 4, 2], [1, 2, 3]], eq = eq)
|
|
== [[1, 1, 2], [3, 4, 2], [7, 2, 2], [1, 2, 3]]
|
|
);
|
|
}
|
|
|
|
test_dedup(); |