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
|
#!/usr/bin/env perl
use 5.10.1;
use warnings;
use strict;
use Term::Choose qw( choose );
use FindBin qw( $RealBin );
use lib $RealBin;
use Y_Data_Test_Arguments;
choose( [] );
choose( [], {} );
my $valid_values = Y_Data_Test_Arguments::valid_values();
for my $opt ( sort keys %$valid_values ) {
for my $val ( @{$valid_values->{$opt}}, undef ) {
choose( [], { $opt => $val } );
}
}
choose( [], Y_Data_Test_Arguments::mixed_options_1() );
choose( [], Y_Data_Test_Arguments::mixed_options_2() );
print "<End_fc_va>\n";
|
