BEGIN {
    @ARGV = (
        '-a', 1, 2, 3,
        '-d', 'string',
        '-c', 'test1', 'test2',
        '-b', 4, 5, 6,
        'Why not',
        'eat at', 'Joes',
    );
}

use Getopt::Euclid;
use Test::More 'no_plan';

is ref $ARGV{'-a'}, 'ARRAY'         => 'Array reference returned for -a';
is $ARGV{'-a'}[0],  1               => 'Got expected value for -a[0]';
is $ARGV{'-a'}[1],  2               => 'Got expected value for -a[1]';
is $ARGV{'-a'}[2],  3               => 'Got expected value for -a[2]';

is ref $ARGV{'-b'}, 'HASH'          => 'Hash reference returned for -b';
is $ARGV{'-b'}{first},  4           => 'Got expected value for -b{first}';
is ref $ARGV{'-b'}{rest}, 'ARRAY'   => 'Array reference returned for -b{rest}';
is $ARGV{'-b'}{rest}[0],  5         => 'Got expected value for -b{rest}[0]';
is $ARGV{'-b'}{rest}[1],  6         => 'Got expected value for -b{rest}[1]';

is ref $ARGV{'-c'}, 'ARRAY'         => 'Array reference returned for -c';
is $ARGV{'-c'}[0],  'test1'         => 'Got expected value for -c[0]';
is $ARGV{'-c'}[1],  'test2'         => 'Got expected value for -c[1]';

is ref $ARGV{'-d'}, 'ARRAY'         => 'Array reference returned for -d';
is $ARGV{'-d'}[0],  'string'        => 'Got expected value for -d[0]';

isnt ref $ARGV{'<file>'}, 'ARRAY'   => 'Array reference not returned for <file>';
is $ARGV{'<file>'},       'Why not' => 'Got expected value for <file>';

is ref $ARGV{'<other>'}, 'ARRAY'    => 'Array reference returned for <other>';
is $ARGV{'<other>'}[0],  'eat at'   => 'Got expected value for <other>[0]';
is $ARGV{'<other>'}[1],  'Joes'     => 'Got expected value for <other>[1]';


__END__

=head1 NAME

orchestrate - Convert a file to Melkor's .orc format

=head1 VERSION

This documentation refers to orchestrate version 1.9.4

=head1 USAGE

    orchestrate  -in source.txt  --out dest.orc  -verbose  -len=24

=head1 OPTIONS

=over

=item  -a <data>...

=for Euclid:
    data.type:   int > 0

=item  -b <first> <rest>...

=for Euclid:
    first.type:   int > 0
    rest.type:    int > 0

=item  -c <more>...

=for Euclid:
    more.type:   string

=item  -d <even_more>...

=for Euclid:
    even_more.type:   string

=item <file>

=item <other>...

=back

=begin remainder of documentation here...

=end

=head1 AUTHOR

Damian Conway (damian@conway.org)

=head1 BUGS

There are undoubtedly serious bugs lurking somewhere in this code.
Bug reports and other feedback are most welcome.

=head1 COPYRIGHT

Copyright (c) 2002, Damian Conway. All Rights Reserved.
This module is free software. It may be used, redistributed
and/or modified under the terms of the Perl Artistic License
  (see http://www.perl.com/perl/misc/Artistic.html)