App-CSV2LaTeXTable
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
t/split_tables.t view on Meta::CPAN
#!/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$$.tex";
my $csv = $dir . '/data/test.csv';
{
for ( 1 .. 2 ) {
my $local = $dir . sprintf '/data/test%s-%s.tex', $$, $_;
unlink $local;
ok !-f $local;
}
my $obj = App::CSV2LaTeXTable->new(
csv => $csv,
latex => $latex,
split => 2,
);
$obj->run;
for ( 1 .. 2 ) {
my $local = $dir . sprintf '/data/test%s-%s.tex', $$, $_;
my $content = do { local (@ARGV, $/) = $local; <> };
like_string $content, qr/begin\{table\}/;
like_string $content, qr/Name & Age & City \\\\/;
unlink $local;
ok !-f $local;
}
}
done_testing();
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.525 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )