#! /usr/bin/perl

#  Copyright (C) 2010, Geoffrey Leach
#
#===============================================================================
#
#         FILE:  02-internals_magic_multi.t
#
#  DESCRIPTION:  Test the construction of internal data structures
#                which result from the "magic" mode of Getopt::Auto
#                when running multiple files
#
#       AUTHOR:  Geoffrey Leach (), <geoff@hughes.net>
#      VERSION:  1.9.7
#      CREATED:  07/06/2009 03:27:58 PM PDT
#===============================================================================

use strict;
use warnings;

use Test::More tests => 1;
use Test::Output;
use Getopt::Auto( { findsub => 1, test => 1 } );
use lib 't';
use Internals_magic_multi;

use 5.006;
our $VERSION = '1.9.7';

## no critic (ProhibitImplicitNewlines)
## no critic (RequireLocalizedPunctuationVars)
## no critic (ProtectPrivateVars)
## no critic (RequireCheckedSyscalls))

# What's being tested here is the ability to spread option subroutines
# over multiple files. The sub for --internals_magic_multi_pm is in
# internals_magic_multi, which itself uses Getopt::Auto.

my $output = q{did internals_magic_multi_t
did Internals_magic_multi_pm
};

sub internals_magic_multi_t { print "did internals_magic_multi_t\n"; return; }

@ARGV = qw(--internals_magic_multi_t --internals_magic_multi_pm);
stdout_is( \&Getopt::Auto::_parse_args, $output,
    'Check internals_magic_multi' );

exit 0;

__END__