Adapted and commented postscript test.

This commit is contained in:
hjp 2007-02-17 12:55:22 +00:00
parent 429e13239e
commit c56fd5c9a0
1 changed files with 26 additions and 16 deletions

View File

@ -12,29 +12,39 @@ $ts->add(0, 100);
$ts->add(1000, 200);
$ts->add(2000, 100);
$ts->add(3000, undef);
$ts->add(4000, 100);
$ts->add(4000, 150);
$ts->add(5000, 200);
$ts->add(6000, 100);
$ts->legend('missing');
my $p = $ts->plot();
my $t = "LT0
6395 4739 M
399 0 V
574 1344 M
1639 4872 L
2703 1344 L
2130 0 R
5897 4872 L
6962 1344 L
# Postscript file visually inspected and copied postscript code.
# The real graph is the MLLMLL pattern. The MVVVL after it is the
# bounding rectangle, so we could compute if the coordinates are
# correct, if we wanted to.
# open(my $fh, '>:raw', "t/3missing.ps");
# print $fh $p;
# close($fh);
my $t = "
LT0
6607 4807 M
303 0 V
410 960 M
1513 4920 L
2617 960 L
4823 2940 M
5927 4920 L
7030 960 L
1.000 UL
LTb
574 1344 M
6388 0 V
0 3528 V
-6388 0 V
0 -3528 V
410 960 M
6620 0 V
0 3960 V
-6620 0 V
410 960 L
1.000 UP
stroke";
stroke
";
ok(index($p, $t) != -1, 'postscript output looks ok');
#vim:tw=0