view release on metacpan or  search on metacpan

t/02-Options-2.t  view on Meta::CPAN

#!/usr/bin/perl
#
use strict ;
use Test::More;

use App::Framework ;

# VERSION
our $VERSION = '1.234' ;

my $DEBUG=0;
my $VERBOSE=0;

	my $stdout="" ;
	my $stderr="" ;

	diag( "Testing options" );

	## run time options
	my %expected_options = (
		'name=s'			=> 'a default',
		'default=s'			=> 'a default',
		'default2=s'		=> 'a default a default',
		'default3=s'		=> 'a default a default another default',
		'log=s'				=> 'another default',
		'dbg-namestuff=s'	=> 'a name',
	) ;

	plan tests => 1 + 2*scalar(keys %expected_options) ;


	@ARGV = () ;
#	foreach my $opt (keys %expected_options)
#	{
#		if ($opt !~ /^default/)
#		{
#			if ($opt =~ /([\w\-]+)=/)
#			{
#				push @ARGV, "-$1" ;
#				push @ARGV, $expected_options{$opt} ;
#			}
#			else
#			{
#				push @ARGV, "-$opt" ;
#			}
#		}
#	}
	App::Framework->new()->go() ;


#=================================================================================
# SUBROUTINES EXECUTED BY APP
#=================================================================================

#----------------------------------------------------------------------
# Main execution
#
sub app
{
	my ($app) = @_ ;
	
	# Check options
	my %opts = $app->options() ;

	# Check options alias
	my %opts2 = $app->Options() ;

	is_deeply(\%opts, \%opts2, "Access alias") ;
	
$app->prt_data("Options=", \%opts) ;

	foreach my $optkey (keys %expected_options)
	{
		my $opt = $optkey ;
		my $num=1 ;