timeseries/t/3missing.t

#!/usr/bin/perl
use warnings;
use strict;
use Test::More tests => 4;

BEGIN { use_ok( 'TimeSeries' ); }


my $ts = TimeSeries->new(output_format => 'ps');
ok($ts, 			'create timeseries');
$ts->add(0, 100);
$ts->add(1000, 200);
$ts->add(2000, 100);
$ts->add(3000, undef);
$ts->add(4000, 150);
$ts->add(5000, 200);
$ts->add(6000, 100);
$ts->legend('missing');
my $p = $ts->plot();
# 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 $t1 = "
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
";

my $t2 = "
6620 0 V
0 3960 V
-6620 0 V
";
ok(index($p, $t1) != -1,	'postscript output contains line');
ok(index($p, $t2) != -1,	'postscript output contains box');

#vim:tw=0