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

Fixed test for PNG generation.

This commit is contained in:
hjp 2003-04-24 14:09:44 +00:00
parent c9ebeaf37e
commit 185cbdedec
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
TimeSeries.pm
View File

@ -4,6 +4,7 @@ use File::Temp qw(tempfile);
use Time::Local; use Time::Local;
use Data::Dumper; use Data::Dumper;
$VERSION = do { my @r=(q$Revision: 1.3 $=~/\d+/g);sprintf "%d."."%02d"x$#r,@r};
sub new { sub new {
my ($class, %opts) = @_; my ($class, %opts) = @_;

2
t/0basic.t
View File

@ -35,7 +35,7 @@ $ts->add(1.002E9, 3);
$test = 3; $test = 3;
my $g = $ts->plot(); my $g = $ts->plot();
print STDERR "length \$g = ", length($g), "\n"; print STDERR "length \$g = ", length($g), "\n";
if (length($g) > 0 && substr($g, 0, 3) eq "PNG") { if (length($g) > 0 && substr($g, 0, 4) eq "\211PNG") {
print "ok $test\n"; print "ok $test\n";
} else { } else {
print "not ok $test\n"; print "not ok $test\n";