trunk/t/Sack-Server-Gnuplot.t

#!/usr/bin/perl

use Test::More tests => 4;
use File::Slurp;
use Data::Dump qw(dump);
use File::Temp qw/ tempfile tempdir /;

use lib '/srv/Sack/lib';

BEGIN {
        use_ok( 'Sack::Server::Gnuplot' );
}

my @paths = glob('/tmp/sack.out.*.txt');
diag 'paths', dump( @paths );
ok( @paths, 'found dumps' );
ok( my $path = Sack::Server::Gnuplot::date( @paths ), 'date' );
ok( -e $path, "$path exists" );
1	#!/usr/bin/perl
2
3	use Test::More tests => 4;
4	use File::Slurp;
5	use Data::Dump qw(dump);
6	use File::Temp qw/ tempfile tempdir /;
7
8	use lib '/srv/Sack/lib';
9
10	BEGIN {
11	use_ok( 'Sack::Server::Gnuplot' );
12	}
13
14	my @paths = glob('/tmp/sack.out.*.txt');
15	diag 'paths', dump( @paths );
16	ok( @paths, 'found dumps' );
17	ok( my $path = Sack::Server::Gnuplot::date( @paths ), 'date' );
18	ok( -e $path, "$path exists" );