App-CSV2LaTeXTable

 view release on metacpan or  search on metacpan

t/base.t  view on Meta::CPAN

    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();

t/latex-params.t  view on Meta::CPAN

        latex_param => [
            "coldef='|c|c|p{3cm}|'",
            "caption='Testtable'",
        ]
    );

    $obj->run;

    ok -f $latex;

    my $content = do { local (@ARGV, $/) = $latex; <> };
    like_string $content, qr/begin\{table\}/;
    like_string $content, qr/\Q|c|c|p{3cm}|\E/;
    like_string $content, qr/Testtable/;
    like_string $content, qr/Name & Age & City \\\\/;
}

done_testing();

t/rotate.t  view on Meta::CPAN

    my $obj = App::CSV2LaTeXTable->new(
        csv    => $csv,
        latex  => $latex,
        rotate => 90,
    );

    $obj->run;

    ok -f $latex;

    my $content = do { local (@ARGV, $/) = $latex; <> };
    like_string $content, qr/rotatebox\{90\}/;
    like_string $content, qr/Name & Age & City \\\\/;
}

done_testing();

t/split_tables.t  view on Meta::CPAN

    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 distribution
 view release on metacpan -  search on metacpan