25 lines
930 B
Perl
25 lines
930 B
Perl
|
#!/usr/bin/perl
|
||
|
|
use warnings;
|
||
|
|
use strict;
|
||
|
|
use Test::More tests => 7;
|
||
|
|
|
||
|
|
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');
|
||
|
|
|
||
|
|
#vim:tw=0
|