#!/usr/bin/perl

use 5.010;
use strict;
use warnings;

use Test::Exception;
use Test::More 0.98;
use Text::ANSITable;

subtest "add_row, add_rows, {get,set}_cell" => sub {
    my $t = Text::ANSITable->new;
    $t->add_row([11, 12, 13]);
    dies_ok { $t->add_row(21, 22, 23) } 'add_row() only accepts arrayref';
    $t->add_row([21, 22, 23]);
    $t->add_rows([[31, 32, 33], [41]]);
    dies_ok { $t->add_rows(1) } 'add_rows() only accepts arrayref';

    is(~~@{$t->rows}, 4);
    is($t->get_cell(0, 0), 11);
    is($t->get_cell(1, 2), 23);
    ok(!defined($t->get_cell(3, 1)));
    ok(!defined($t->set_cell(3, 1, 42)));
    is($t->get_cell(3, 1), 42);

    # referring column by name
    $t->columns([qw/one two three/]);
    is($t->get_cell(1, "three"), 23);
    dies_ok { $t->get_cell(1, "four") } 'unknown column name -> dies';
};

DONE_TESTING:
done_testing;