App-CSV2LaTeXTable
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::LongString;
use File::Basename;
my $dir = dirname __FILE__;
use_ok 'App::CSV2LaTeXTable';
my $latex = $dir . '/data/test.latex';
my $csv = $dir . '/data/test.csv';
{
unlink $latex;
ok !-f $latex;
my $obj = App::CSV2LaTeXTable->new(
csv => $csv,
latex => $latex,
);
$obj->run;
ok -f $latex;
my $content = do { local (@ARGV, $/) = $latex; <> };
like_string $content, qr/begin\{table\}/;
like_string $content, qr/Name & Age & City \\\\/;
}
done_testing();
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.202 second using v1.00-cache-2.02-grep-82fe00e-cpan-d29e8ade9f55 )