Adapted and commented postscript test.
This commit is contained in:
parent
429e13239e
commit
c56fd5c9a0
42
t/3missing.t
42
t/3missing.t
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue