# in t/Term-Menu-Hierarchical.t use Test::More tests => 2; BEGIN { use_ok('Term::Menu::Hierarchical') }; # Until I test them, I can't promise anything... ok($^O !~ /^(?:MSWin|VMS|dos|MacOS|os2|epoc|cygwin)/i) or BAIL_OUT("OS unsupported");