1# -*- perl -*- 2use Test::More tests => 5; 3use FindBin; 4use lib "$FindBin::RealBin/fakelib"; 5require ("$FindBin::RealBin/lorem.pl"); 6 7$ENV{LINES} = 25; 8$ENV{COLUMNS} = 80; 9 10BEGIN { use_ok( "Curses::UI"); } 11 12close STDIN or warn $!; 13 14my $cui = new Curses::UI("-clear_on_exit" => 0, 15 "-mouse_support" => 1); 16 17$cui->leave_curses(); 18 19isa_ok($cui, "Curses::UI"); 20 21my $mainw = $cui->add("testw","Window"); 22 23isa_ok($mainw, "Curses::UI::Window"); 24 25my $wid = $mainw->add("testwidget","TextEditor"); 26 27isa_ok($wid, "Curses::UI::TextEditor"); 28 29$wid->text($lorem); 30 31ok($wid->get() eq $lorem, "get and set"); 32 33 34