view release on metacpan or  search on metacpan

t/03-setup.t  view on Meta::CPAN

    $re_main_buttons .
    $re_select;

my $re_main_window =
    '^========== test\s++' . $re_window_content;

my $re_main_box =
    '^<1> ' . $re_div . $re_list_packages . $re_div .
    '^<2> ' . $re_div . $re_list_files . $re_div .
    '^<3> ' . $re_div . $re_list_filter . $re_div .
    '^<4> ' . $re_div . $re_network .
    '^<5> ' . $re_div . $re_features .
    '^<6> ' . $re_div . $re_list_users . $re_div .
    $re_main_buttons .
    $re_select;

my $re_help =
    "^========== Help\n" .
    "    The first column .* on the host\\.\n" .
    '<1> \[ OK \]\s++' .
    $re_select;

my $re_2nd_cancel_ok = '^<2>\s++\[ Cancel \]\s++\[ OK \]\s++';
my $re_select_file_dialogue_inside =
    '^<1>\s++\[ \.\. \]\s++[^<]++' .
    $re_2nd_cancel_ok;
my $re_select_file_dialogue_package =
    '^========== (?:select files for packages\s++){2}' .
    $re_select_file_dialogue_inside;
my $re_select_file_dialogue_libraries =
    '^========== (?:select files for needed library packages\s++){2}' .
    $re_select_file_dialogue_inside;
my $re_select_file_dialogue_files =
    '^========== (?:select files and/or directory\s++){2}' .
    $re_select_file_dialogue_inside;
my $re_select_file_dialogue_filter =
    '^========== (?:select files and/or directory for filters\s++){2}' .
    $re_select_file_dialogue_inside;
my $re_select_file_box =
    '^<1>\s++<\*> \[ \.\. \]\s++[^<]++' .
    '^<2> [^<]++';
my $re_select_file_list =
    '(?:<\+/-> ++)?' . $re_listbox_head .
    '^(< ?[1-9]\d*>[ *]{3}\S++\s++)++' .
    $re_select_listbox;
my $re_select_cancel_ok_buttons = '<1> \[ Cancel \]\s++<2> \[ OK \]\s++';

my $re_modify_package_dialogue =
    '========== (?:modify chromium\s++){2}' .
    '^<1> (?:chromium|VI)\s++' .
    $re_2nd_cancel_ok . $re_select;

my $re_select_in_files_list =
    '(?:^<\+/-> ++)?' . $re_listbox_head .
    '(?:^< ?[1-9]\d*>[ *]{3}(  |OV|RW) /(?-s:.++)\s++){3,4}' .
    $re_select_listbox;
my $re_modify_perm_dialogue =
    '^========== (?:modify file permissions\s++){2}' .
    '^' .
    $re_radio . ' ++read-only access\s++' .
    $re_radio . 'OV overlay file-system \(hide original\)\s++' .
    $re_radio . 'RW read/write access\s++' .
    $re_2nd_cancel_ok;
my $re_perm_radio_select =
    '^<1>    read-only access\s++' .
    '^<2> OV overlay file-system \(hide original\)\s++' .
    '^<3> RW read/write access\s++' .
    $re_select_radio;

my $re_select_in_filter_list =
    '(?:^<\+/-> ++)?' . $re_listbox_head .
    '(?:^< ?[1-9]\d*>[ *]{3}(IG|CP|EM|NM) /(?-s:.++)\s++){3,6}' .
    $re_select_listbox;
my $re_modify_filter_dialogue =
    '^========== (?:modify type of filter\s++){2}' .
    '^' .
    $re_radio . 'IG ignore directory\s++' .
    $re_radio . 'CP copy from original \(at time of LXC update!\)\s++' .
    $re_radio . 'EM create empty\s++' .
    $re_radio . 'NM don.t merge sub-directories into directory\s++' .
    $re_2nd_cancel_ok;
my $re_filter_radio_select =
    '^<1> IG ignore directory\s++' .
    '^<2> CP copy from original \(at time of LXC update!\)\s++' .
    '^<3> EM create empty\s++' .
    '^<4> NM don.t merge sub-directories into directory\s++' .
    $re_select_radio;

my $re_modify_network =
    '<1> none\s++' .
    '<2> local\s++' .
    '<3> full\s++' .
    $re_select_radio;

my $re_modify_features =
    'features\s++' .
    '<1> \[[ X]\] X11\s++' .
    '<2> \[[ X]\] audio\s++' .
    $re_select;

my $re_user = '\d++:[-a-z_A-Z.0-9]++';	# user names as in sub regular_users
my $re_select_user_dialogue =
    '^========== (?:select users\s++){2}' .
    '^' . $re_listbox_head .
    '(?:(?:\* )?' . $re_user . '\s++)*+' .
    $re_2nd_cancel_ok;
my $re_select_user_list =
    $re_listbox_head .
    '(?:^< ?[1-9]\d*> [ *] ' . $re_user . '\s++)++' .
    $re_select_listbox;

$_=    '
';

my $re_error_to_small = '^screen [0-9x]+ to small for window, ' .
    'need >= [0-9x]+ for all UI variants' . $re_msg_tail_m;
my $re_bad_interpreter = "bad interpreter '.*/usr/bin/1chromium' doesn't" .
    ' use ld-linux.so for dynamic linkage at ';

# PS:	Yes, I have a little helper script to analyse the error output of a
#	running Perl test script (to see where a regular expression fails to
#	match ;-).

#########################################################################
# 1st round: run help and quit