view release on metacpan or  search on metacpan

t/Log/Shiras/04-telephone.t  view on Meta::CPAN

#!perl
#########1 Initial Test File for Log::Shiras::Telephone     6#########7#########8#########9
my ( $lib, $test_file );
BEGIN{
	use Modern::Perl;
	use Test2::Bundle::Extended qw( !meta );
	use Test2::Plugin::UTF8;
	use Test::Moose;
	plan( 35 );
	my $file = (caller(0))[1];
	my 	$directory_ref = {
			t		=> './',# repo level
			Log		=> '../',# t folder level
			$file	=> '../../../',# test file level
		};
	for my $next ( <*> ){
		#~ diag $next;
		if( $next =~/^($file|t|Log)$/ ){
			my $return = $1;
			#~ diag $return;
			$lib 			= $directory_ref->{$return} . 'lib';
			$test_file 		= $directory_ref->{$return} . 't/test_files/';
			#~ diag $lib;
			#~ diag $test_file;
			last;
		}
	}
	use Carp 'longmess';
	$SIG{__WARN__} = sub{ note longmess $_[0]; };
	$ENV{hide_warn_for_test} = 1;
}
$| = 1;
use Data::Dumper;
use lib $lib,;
use Log::Shiras::Unhide qw( :InternalSwitchboarD );
use Log::Shiras::Report::Test2Note;
use Log::Shiras::Switchboard;
use Log::Shiras::Telephone;
use Log::Shiras::Test2;
use Log::Shiras::Report::Test2Note;
my(
			$ella_peterson, 		$name_space_ref,		$report_ref,
			$test_class,			$main_phone,	
);	

my  		@attributes = qw(
				fail_over			name_space			report				level
				message				carp_stack			
			);

my  		@telephone_methods = qw(
				talk				set_name_space		get_name_space		set_report
				get_report			set_level			get_level			set_shared_message
				get_shared_message	set_fail_over		should_fail_over	set_carp_stack
				should_carp_longmess	
			);
			
note 									'Log::Shiras::Telephone easy questions';
ok			$name_space_ref = {
				main =>{
					UNBLOCK =>{
						report1	=> 'ELEVEN',
						report2	=> 'trace',
						run		=> 'warn',
						WARN	=> 'debug',