1use strict; 2use warnings; 3 4use Test::More; 5use Prima::sys::Test; 6use Prima::Application; 7 8plan tests => 4; 9 10my @sz = $::application-> size; 11cmp_ok( $sz[0], '>', 256, "size"); 12cmp_ok( $sz[1], '>', 256, "size" ); 13 14my @i = $::application-> get_indents; 15cmp_ok( $i[0] + $i[2], '<', $sz[0], "indents" ); 16cmp_ok( $i[1] + $i[3], '<', $sz[1], "indents" ); 17