Update of /cvsroot/silgraphite/silgraphite/contrib/Perl
In directory sc8-pr-cvs1:/tmp/cvs-serv28720
Modified Files:
test.pl
Log Message:
Update test data and allow for 1 pixel jitter
Index: test.pl
===================================================================
RCS file: /cvsroot/silgraphite/silgraphite/contrib/Perl/test.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- test.pl 11 Nov 2002 15:51:03 -0000 1.1
+++ test.pl 29 May 2003 16:04:22 -0000 1.2
@@ -6,13 +6,15 @@
%tests = (
'piglatin' => [
- ['Hello World', 1198,
+ ['Hello World', 1183,
[39, 78, 78, 81, 74, 67, 91, 2, 49, 84, 78, 70, 89, 67, 91],
- [0, 106, 154, 202, 289, 376, 453, 540, 590, 715, 774, 822, 909, 1034, 1111],
+ [0, 105, 152, 199, 285, 371, 447, 533, 582, 706, 764, 811, 897, 1021, 1097],
[0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0],
- [106, 48, 48, 87, 87, 77, 87, 50, 125, 59, 48, 87, 125, 77, 87],
+ [105, 47, 47, 86, 86, 76, 86, 49, 124, 58, 47, 86, 124, 76, 87],
]]);
+$error = 1; # $error pixel jitter is acceptable
+
foreach $k (keys %tests)
{
$numtests++;
@@ -20,7 +22,7 @@
}
plan tests => $numtests;
-
+
foreach $t (keys %tests)
{
$graphics = SIL::Graphite::PerlGraphics->new(font_file => "../fonts/$t.ttf", size => 12, XperInch => 1000);
@@ -41,12 +43,22 @@
$passed = (scalar @{$str->[2]} == scalar @res);
for ($i = 0; $i < 4; $i++)
{
+ $offset = 0;
for ($j = 0; $j < scalar @res; $j++)
- { $passed = 0 if ($res[$j][$i] != $str->[$i + 2][$j]); }
+ {
+ if ($i > 0)
+ {
+ $passed = 0 if ($res[$j][$i] > $str->[$i + 2][$j] + $offset + $error || $res[$j][$i] < $str[$i + 2][$j] + $offset - $error);
+ $offset = $res[$j][$i] - $str->[$i + 2][$j];
+ }
+ else
+ { $passed = 0 if ($res[$j][$i] != $str->[$i + 2][$j]); }
+ }
}
ok ($passed);
}
}
+
|