view release on metacpan or  search on metacpan

t/schema.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use Catmandu::Exporter::Table;


sub is_table(@) {
    my ($message,$expect,$data) = (pop,pop,shift);
    my $out = "";
    my $exporter = Catmandu::Exporter::Table->new(@_, file => \$out);
    $exporter->add($_) for @$data;
    $exporter->commit;
    is $out, $expect, $message;
}

foreach my $schema (
    { fields => [ { name => "c", title => "C" }, { name => "b" } ] },

t/simple.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;

BEGIN { use_ok 'Catmandu::Exporter::Table'; }
require_ok 'Catmandu::Exporter::Table';

my ($got, $expect);

sub export_table(@) {
    my ($data, %config) = @_;
    $got = "";
    my $exporter = Catmandu::Exporter::Table->new(%config, file => \$got);
    isa_ok $exporter, 'Catmandu::Exporter::Table';
    $exporter->add($_) for @$data;
    $exporter->commit;
    is($exporter->count, scalar @$data, "Count ok");
}

export_table [{'a' => 'moose', b => '1'},