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

Shut up some warnings.

This commit is contained in:
hjp 2004-05-03 09:07:03 +00:00
parent 674160c45c
commit 9ba25e1b7b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
t/0basic.t
View File

@ -43,7 +43,7 @@ if (length($g) > 0 && substr($g, 0, 4) eq "\211PNG") {
$test = 4; $test = 4;
$ts->output_format("gif"); $ts->output_format("gif");
my $g = $ts->plot(); $g = $ts->plot();
# print STDERR "length \$g = ", length($g), "\n"; # print STDERR "length \$g = ", length($g), "\n";
if (length($g) > 0 && substr($g, 0, 6) eq "GIF87a") { if (length($g) > 0 && substr($g, 0, 6) eq "GIF87a") {
print "ok $test\n"; print "ok $test\n";
@ -53,7 +53,7 @@ if (length($g) > 0 && substr($g, 0, 6) eq "GIF87a") {
$test = 5; $test = 5;
$ts->output_format("jpeg"); $ts->output_format("jpeg");
my $g = $ts->plot(); $g = $ts->plot();
# print STDERR "length \$g = ", length($g), "\n"; # print STDERR "length \$g = ", length($g), "\n";
if (length($g) > 0 && substr($g, 0, 10) eq "\377\330\377\340\000\020JFIF") { if (length($g) > 0 && substr($g, 0, 10) eq "\377\330\377\340\000\020JFIF") {
print "ok $test\n"; print "ok $test\n";
@ -63,7 +63,7 @@ if (length($g) > 0 && substr($g, 0, 10) eq "\377\330\377\340\000\020JFIF") {
$test = 6; $test = 6;
$ts->output_format("ps"); $ts->output_format("ps");
my $g = $ts->plot(); $g = $ts->plot();
# print STDERR "length \$g = ", length($g), "\n"; # print STDERR "length \$g = ", length($g), "\n";
if (length($g) > 0 && substr($g, 0, 2) eq "%!") { if (length($g) > 0 && substr($g, 0, 2) eq "%!") {
print "ok $test\n"; print "ok $test\n";