t/parser/02_constructor.t

#!/usr/bin/perl
use strict;
use warnings;

use Test::More tests => 5;
use Term::Emulator::Parser;

my $term = Term::Emulator::Parser->new;

is($term->width, 80);
is($term->height, 24);
my $str = join "\n", map { " " x 80 } 1 .. 24;
is($term->as_string, $str);

$term = Term::Emulator::Parser->new( width => 20, height => 10 );
is($term->width, 20);
is($term->height, 10);

1	#!/usr/bin/perl
2	use strict;
3	use warnings;
4
5	use Test::More tests => 5;
6	use Term::Emulator::Parser;
7
8	my $term = Term::Emulator::Parser->new;
9
10	is($term->width, 80);
11	is($term->height, 24);
12	my $str = join "\n", map { " " x 80 } 1 .. 24;
13	is($term->as_string, $str);
14
15	$term = Term::Emulator::Parser->new( width => 20, height => 10 );
16	is($term->width, 20);
17	is($term->height, 10);
18