view release on metacpan or  search on metacpan

t/01-csv.t  view on Meta::CPAN

        qr/You must specify where to write/,
        'croaks when nothing to write lines to was given';
}

{ # Text
    my $sample = sample_csv();
    my $csv = Mojo::CSV->new;
    chomp( my $expected = path(CSV_FILE)->slurp );
    is $csv->text($sample), $expected, '->text on rows matches expectations';

    my @lines = split m{$/}, $expected;
    is $csv->text($sample->[$_]),
        $lines[$_], '->text on single row matches expectations on row ' . $_
            for 0 .. $#$sample;
}

done_testing;

sub sample_csv {
    return [
          [