view release on metacpan or  search on metacpan

t/02-Options-1.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 name',
		'default=s'			=> 'a default',
		'default2=s'		=> 'b default',
		'default3=s'		=> 'c default',
		'log=s'				=> 'new setting',
		'nomacro'			=> 1,
		'dbg-namestuff=s'	=> 'a name',
		'dbg-name'			=> 1,
	) ;

	plan tests => 1 + 2*scalar(keys %expected_options) ;
	
	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() ;


#sub diag
#{
#	print "$_[0]\n" ;
#}	
#sub fail
#{
#	print "FAIL: $_[0]\n" ;
#}	
#sub pass
#{
#	print "PASS: $_[0]\n" ;
#}	
#sub like
#{
#	print "LIKE: $_[0]\n" ;
#}	
#sub ok
#{
#	print "OK: $_[1]\n" ;
#}	

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