#!perl
use Test::More;

use App::Framework::Lite ;

	plan tests => 3 ;
	go() ;
	
#		# alternates
#		['app_begin',	'app_start'],
#		['app_enter',	'app_start'],
#		['app_init',	'app_start'],

#		['app_finish',	'app_end'],
#		['app_exit',	'app_end'],
#		['app_term',	'app_end'],
	
#=================================================================================
# SUBROUTINES EXECUTED BY APP
#=================================================================================

#----------------------------------------------------------------------
sub app_start
{
	my ($app) = @_ ;

	pass("In app start subroutine") ;	
}

#----------------------------------------------------------------------
sub app_begin
{
	my ($app) = @_ ;

	fail("In app begin subroutine") ;	
}

#----------------------------------------------------------------------
sub app_enter
{
	my ($app) = @_ ;

	fail("In app enter subroutine") ;	
}

#----------------------------------------------------------------------
sub app_init
{
	my ($app) = @_ ;

	fail("In app init subroutine") ;	
}




#----------------------------------------------------------------------
# Main execution
#
sub app
{
	my ($app) = @_ ;

	pass("In app subroutine") ;	
}



#----------------------------------------------------------------------
sub app_end
{
	my ($app) = @_ ;

	pass("In app end subroutine") ;	
}

#----------------------------------------------------------------------
sub app_finish
{
	my ($app) = @_ ;

	fail("In app finish subroutine") ;	
}

#----------------------------------------------------------------------
sub app_exit
{
	my ($app) = @_ ;

	fail("In app exit subroutine") ;	
}


#----------------------------------------------------------------------
sub app_term
{
	my ($app) = @_ ;

	fail("In app term subroutine") ;	
}