Fixed perl unit test for the Q64 build.

This commit is contained in:
Dirk Lemstra
2024-12-26 10:51:25 +01:00
parent 5612526cc4
commit ff35b02fc0
+1 -1
View File
@@ -69,7 +69,7 @@ testFilterCompare('input.miff', q//, 'reference/filter/Crop.miff', 'Crop', q/ge
testFilterCompare('input.miff', q//, 'reference/filter/Set.miff', 'Set', q/page=>'0x0+0+0'/, 0.0, 0.0);
++$test;
testFilterCompare('input.miff', q//, 'reference/filter/Despeckle.miff', 'Despeckle', q//, 0.0, 0.0);
testFilterCompare('input.miff', q//, 'reference/filter/Despeckle.miff', 'Despeckle', q//, 0.00001, 0.008);
++$test;
testFilterCompare('input.miff', q//, 'reference/filter/Draw.miff', 'Draw', q/fill=>'none',stroke=>'gold',primitive=>'circle',points=>'60,90 60,120',strokewidth=>2/, 0.0, 0.0);