1use Test::More; 2BEGIN { use_ok( 'UI::Dialog::Screen::Druid' ); } 3require_ok( 'UI::Dialog::Screen::Druid' ); 4 5# ######################### 6 7eval { new UI::Dialog::Screen::Druid(test_mode=>1); }; 8if ( $@ ) { 9 diag("Unable to load UI::Dialog::Screen::Druid: ".$@); 10 done_testing(); 11} else { 12 my $obj = UI::Dialog::Screen::Druid->new(); 13 isa_ok( $obj, 'UI::Dialog::Screen::Druid' ); 14 15 my @methods = 16 qw( perform new 17 add_input_step add_password_step 18 add_menu_step add_yesno_step 19 ); 20 can_ok( 'UI::Dialog::Screen::Druid', @methods ); 21 done_testing(); 22} 23