42 lines
628 B
Perl
42 lines
628 B
Perl
|
#!/usr/bin/perl
|
||
|
|
use warnings;
|
||
|
|
use strict;
|
||
|
|
use Test::More tests => 3;
|
||
|
|
|
||
|
|
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, 100);
|
||
|
|
$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
|
||
|
|
1.000 UL
|
||
|
|
LTb
|
||
|
|
574 1344 M
|
||
|
|
6388 0 V
|
||
|
|
0 3528 V
|
||
|
|
-6388 0 V
|
||
|
|
0 -3528 V
|
||
|
|
1.000 UP
|
||
|
|
stroke";
|
||
|
|
ok(index($p, $t) != -1, 'postscript output looks ok');
|
||
|
|
|
||
|
|
#vim:tw=0
|
||
|
|
|