BEGIN {
$INT1 = '123456';
$INT2 = '1e8';
$INT3 = '10E+10';
$INT4 = '0';
$INT5 = '-987654';
$NUM1 = '3';
$NUM2 = '0.1';
$NUM3 = '.1';
$NUM4 = '1.456e156';
$NUM5 = '+1E-01';
$NUM6 = '999.9e-1';
$NUM7 = '0.00';
$NUM8 = '-0.1';
$NUM9 = '-1E-6';
$STR1 = 'asdf';
$STR2 = '"Test me!"';
$IN1 = $0;
$IN2 = '.';
$OUT1 = $0;
$OUT2 = '.';
@ARGV = (
'-integer' , $INT1, $INT2, $INT3, $INT4, $INT5,
'-int' , $INT1, $INT2, $INT3, $INT4, $INT5,
'-i' , $INT1, $INT2, $INT3, $INT4, $INT5,
'-pos_integer' , $INT1, $INT2, $INT3,
'-pos_int' , $INT1, $INT2, $INT3,
'-pos_i' , $INT1, $INT2, $INT3,
'-zero_integer', $INT1, $INT2, $INT3, $INT4,
'-zero_int' , $INT1, $INT2, $INT3, $INT4,
'-zero_i' , $INT1, $INT2, $INT3, $INT4,
'-number' , $NUM1, $NUM2, $NUM3, $NUM4, $NUM5, $NUM6, $NUM7, $NUM8, $NUM9,
'-num' , $NUM1, $NUM2, $NUM3, $NUM4, $NUM5, $NUM6, $NUM7, $NUM8, $NUM9,
'-n' , $NUM1, $NUM2, $NUM3, $NUM4, $NUM5, $NUM6, $NUM7, $NUM8, $NUM9,
'-zero_number' , $NUM1, $NUM2, $NUM3, $NUM4, $NUM5, $NUM6, $NUM7,
'-zero_num' , $NUM1, $NUM2, $NUM3, $NUM4, $NUM5, $NUM6, $NUM7,
'-zero_n' , $NUM1, $NUM2, $NUM3, $NUM4, $NUM5, $NUM6, $NUM7,
'-pos_number' , $NUM1, $NUM2, $NUM3, $NUM4, $NUM5, $NUM6,
'-pos_num' , $NUM1, $NUM2, $NUM3, $NUM4, $NUM5, $NUM6,
'-pos_n' , $NUM1, $NUM2, $NUM3, $NUM4, $NUM5, $NUM6,
'-string' , $STR1, $STR2,
'-str' , $STR1, $STR2,
'-s' , $STR1, $STR2,
'-readable' , $IN1 , $IN2 ,
'-input' , $IN1 , $IN2 ,
'-in' , $IN1 , $IN2 ,
'-writable' , $OUT1, $OUT2,
'-writeable' , $OUT1, $OUT2,
'-output' , $OUT1, $OUT2,
'-out' , $OUT1, $OUT2,
);
chmod 0644, $0;
}
use Getopt::Euclid;
use Test::More 'no_plan';
sub got_args {
my ($arr1, $arr2) = @_;
for my $i (0 .. $#$arr1) {
is $arr1->[$i], $arr2->[$i];
}
}
is ref $ARGV{'-integer'}, 'ARRAY' => 'Testing integers';
got_args $ARGV{'-integer'}, [$INT1, $INT2, $INT3, $INT4, $INT5];
got_args $ARGV{'-int' }, [$INT1, $INT2, $INT3, $INT4, $INT5];
got_args $ARGV{'-i' }, [$INT1, $INT2, $INT3, $INT4, $INT5];
got_args $ARGV{'-zero_integer'}, [$INT1, $INT2, $INT3, $INT4];
got_args $ARGV{'-zero_int' }, [$INT1, $INT2, $INT3, $INT4];
got_args $ARGV{'-zero_i' }, [$INT1, $INT2, $INT3, $INT4];
got_args $ARGV{'-pos_integer'}, [$INT1, $INT2, $INT3];
got_args $ARGV{'-pos_int' }, [$INT1, $INT2, $INT3];
got_args $ARGV{'-pos_i' }, [$INT1, $INT2, $INT3];
is ref $ARGV{'-number'}, 'ARRAY' => 'Testing numbers';
got_args $ARGV{'-number'}, [$NUM1, $NUM2, $NUM3, $NUM4, $NUM5, $NUM6, $NUM7, $NUM8, $NUM9];
got_args $ARGV{'-num' }, [$NUM1, $NUM2, $NUM3, $NUM4, $NUM5, $NUM6, $NUM7, $NUM8, $NUM9];
got_args $ARGV{'-n' }, [$NUM1, $NUM2, $NUM3, $NUM4, $NUM5, $NUM6, $NUM7, $NUM8, $NUM9];
got_args $ARGV{'-zero_number'}, [$NUM1, $NUM2, $NUM3, $NUM4, $NUM5, $NUM6, $NUM7];
got_args $ARGV{'-zero_num' }, [$NUM1, $NUM2, $NUM3, $NUM4, $NUM5, $NUM6, $NUM7];
got_args $ARGV{'-zero_n' }, [$NUM1, $NUM2, $NUM3, $NUM4, $NUM5, $NUM6, $NUM7];
got_args $ARGV{'-pos_number'}, [$NUM1, $NUM2, $NUM3, $NUM4, $NUM5, $NUM6];
got_args $ARGV{'-pos_num' }, [$NUM1, $NUM2, $NUM3, $NUM4, $NUM5, $NUM6];
got_args $ARGV{'-pos_n' }, [$NUM1, $NUM2, $NUM3, $NUM4, $NUM5, $NUM6];
is ref $ARGV{'-string'}, 'ARRAY' => 'Testing strings';
got_args $ARGV{'-string'}, [$STR1, $STR2];
got_args $ARGV{'-str' }, [$STR1, $STR2];
got_args $ARGV{'-s' }, [$STR1, $STR2];
is ref $ARGV{'-readable'}, 'ARRAY' => 'Testing input/output files';
got_args $ARGV{'-readable'}, [$IN1 , $IN2 ];
got_args $ARGV{'-input'}, [$IN1 , $IN2 ];
got_args $ARGV{'-in'}, [$IN1 , $IN2 ];
got_args $ARGV{'-writable'}, [$OUT1, $OUT2];
got_args $ARGV{'-writeable'}, [$OUT1, $OUT2];
got_args $ARGV{'-output'}, [$OUT1, $OUT2];
got_args $ARGV{'-out'}, [$OUT1, $OUT2];
# type 'regex' tested in file ./t/types_regex.t
# comparison to $variables are tested in file ./t/types_vars.t
__END__
=head1 NAME
orchestrate - Convert a file to Melkor's .orc format
=head1 VERSION
This documentation refers to orchestrate version 1.9.4
=head1 REQUIRED ARGUMENTS
=over
=item -integer <integer>...
=for Euclid:
integer.type: integer
=item -int <int>...
=for Euclid:
int.type: int
=item -i <i>...
=for Euclid:
i.type: i
=item -zero_integer <zero_integer>...
=for Euclid:
zero_integer.type: 0+integer
=item -zero_int <zero_int>...
=for Euclid:
zero_int.type: 0+int
=item -zero_i <zero_i>...
=for Euclid:
zero_i.type: 0+i
=item -pos_integer <pos_integer>...
=for Euclid:
pos_integer.type: +integer
=item -pos_int <pos_int>...
=for Euclid:
pos_int.type: +int
=item -pos_i <pos_i>...
=for Euclid:
pos_i.type: +i
=item -number <number>...
=for Euclid:
number.type: number
=item -num <num>...
=for Euclid:
num.type: num
=item -n <n>...
=for Euclid:
n.type: n
=item -pos_number <pos_number>...
=for Euclid:
pos_number.type: +number
=item -pos_num <pos_num>...
=for Euclid:
pos_num.type: +num
=item -pos_n <pos_n>...
=for Euclid:
pos_n.type: +n
=item -zero_number <zero_number>...
=for Euclid:
zero_number.type: 0+number
=item -zero_num <zero_num>...
=for Euclid:
zero_num.type: 0+num
=item -zero_n <zero_n>...
=for Euclid:
zero_n.type: 0+n
=item -string <string>...
=for Euclid:
string.type: string
=item -str <str>...
=for Euclid:
str.type: str
=item -s <s>...
=for Euclid:
s.type: s
=item -readable <readable>...
=for Euclid:
readable.type: readable
=item -input <input>...
=for Euclid:
input.type: input
=item -in <in>...
=for Euclid:
in.type: in
=item -writable <writable>...
=for Euclid:
writable.type: writable
=item -writeable <writeable>...
=for Euclid:
writeable.type: writeable
=item -output <output>...
=for Euclid:
output.type: output
=item -out <out>...
=for Euclid:
out.type: out
=back