The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;

use Test::More;
use Prima::Test;
use Prima::Application;

plan tests => 4;

my @sz = $::application-> size;
cmp_ok( $sz[0], '>', 256, "size");
cmp_ok( $sz[1], '>', 256, "size" );

my @i = $::application-> get_indents;
cmp_ok( $i[0] + $i[2], '<', $sz[0], "indents" );
cmp_ok( $i[1] + $i[3], '<', $sz[1], "indents" );