#!/usr/bin/env perl
use Data::Tabulate;
use Test::More;
use File::Basename;
use lib dirname(__FILE__);
my @array     = (1..10);
my $tabulator = Data::Tabulate->new();
my $dump      = $tabulator->render('Test',{data => [@array]});
my $check     = q~$VAR1 = [
          [
            1,
            2,
            3
          ],
          [
            4,
            5,
            6
          ],
          [
            7,
            8,
            9
          ],
          [
            10,
            undef,
            undef
          ]
        ];
~;
is($dump,$check);
done_testing();