| Subject: | test patch |
Tests fail with different numbers on different systems,
since the numbers depend on some sysdependant fontsize.
module is okay.
--
http://xarch.tu-graz.ac.at/home/rurban/
--- Graph-Writer-GraphViz-0.08/t/1.simple.t.orig 2005-01-26 18:56:36.000000000 +0100
+++ Graph-Writer-GraphViz-0.08/t/1.simple.t 2005-02-01 15:09:11.484375000 +0100
@@ -1,6 +1,7 @@
#!/usr/bin/env perl -w
use strict;
+use blib;
use Test::Simple tests => 1;
use IO::All;
use Graph;
@@ -16,6 +17,9 @@
$/ = undef;
my $g1 = <DATA>;
my $g2 = io('t/graph.simple.dot')->slurp;
+# TODO: ignore sizes (autocalculated, dependent on font size)
+$g1 =~ s/\d/0/g;
+$g2 =~ s/\d/0/g;
ok($g1 eq $g2);
unlink('t/graph.simple.dot');
--- Graph-Writer-GraphViz-0.08/t/2.ioall.t.orig 2005-01-26 18:56:36.000000000 +0100
+++ Graph-Writer-GraphViz-0.08/t/2.ioall.t 2005-02-01 15:09:26.203125000 +0100
@@ -1,6 +1,7 @@
#!/usr/bin/env perl -w
use strict;
+use blib;
use Test::Simple tests => 2;
use IO::All;
use Graph;
@@ -24,6 +25,8 @@
}
ok(-f 't/graph.ioall.dot');
+$g1 =~ s/\d/0/g;
+$g2 =~ s/\d/0/g;
ok($g1 eq $g2);
$io->unlink;