1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
# -*- perl -*-
use strict;
use Test;
BEGIN { plan tests => 15 }
foreach my $class (qw(
Curses::UI::Checkbox
Curses::UI::Calendar
Curses::UI::Label
Curses::UI::Menubar
Curses::UI::Progressbar
Curses::UI::PasswordEntry
Curses::UI::Buttonbox
Curses::UI::Listbox
Curses::UI::Popupmenu
Curses::UI::TextEditor
Curses::UI::TextEntry
Curses::UI::TextViewer
Curses::UI::Window
Curses::UI::Radiobuttonbox
Curses::UI::Notebook
)) {
my $file = $class;
$file =~ s|::|/|g;
$file .= '.pm';
require $file;
ok(1);
}
|
