hjp
/
timeseries
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
t/3missing.t
View File

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