38 lines
1.5 KiB
Perl
Executable File
38 lines
1.5 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
use warnings;
|
|
use strict;
|
|
use Test::More tests => 12;
|
|
|
|
my $ps1=`./blib/script/tsplot --output_format ps t/1.data`;
|
|
ok($ps1, 'Postscript output of tsplot is not empty');
|
|
ok($ps1 =~ m/\(2006-06-04\) Rshow/, 'Postscript output of tsplot contains a date');
|
|
ok($ps1 =~ m/\(val1\) Rshow/, 'Postscript output of tsplot contains a column name');
|
|
|
|
my $ps2=`./blib/script/tsplotv --output_format ps t/1.vdata`;
|
|
ok($ps2, 'Postscript output of tsplot is not empty');
|
|
ok($ps2 =~ m/\(2006-06-04\) Rshow/, 'Postscript output of tsplot contains a date');
|
|
ok($ps2 =~ m/\(val1\) Rshow/, 'Postscript output of tsplot contains a column name');
|
|
|
|
# title and creation date will be different, but the rest should be
|
|
# identical:
|
|
$ps1 =~ s/^%%Title: .*//m;
|
|
$ps1 =~ s/^%%CreationDate: .*//m;
|
|
$ps2 =~ s/^%%Title: .*//m;
|
|
$ps2 =~ s/^%%CreationDate: .*//m;
|
|
ok($ps1 eq $ps2, 'output of tsplot and tsplotv are identical');
|
|
|
|
my $ps3=`./blib/script/tsplot --output_format ps --log_y t/1.data`;
|
|
ok($ps3, 'Postscript output of tsplot is not empty');
|
|
ok($ps3 !~ m/\( 0\) Rshow/, 'Postscript output of tsplot doesn\'t contain marker "0"');
|
|
ok($ps3 =~ m/\( 1\) Rshow/, 'Postscript output of tsplot contains marker "1"');
|
|
ok($ps3 =~ m/\( 10\) Rshow/, 'Postscript output of tsplot contains marker "10"');
|
|
|
|
my $ps4=`./blib/script/tsplot --output_format ps --style dots t/1.data`;
|
|
ok($ps4, 'Postscript output of tsplot --style dots is not empty');
|
|
|
|
my $fh;
|
|
open($fh, ">", "t/$$.lin.ps"); print $fh $ps1; close($fh);
|
|
open($fh, ">", "t/$$.dot.ps"); print $fh $ps4; close($fh);
|
|
|
|
#vim:tw=0
|