view release on metacpan or  search on metacpan

t/Log/Shiras/Report/01-csv.t  view on Meta::CPAN

#!perl
#########1 Test File for Log::Shiras::TapPrint    5#########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( 57 );
	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]; };
	$SIG{__DIE__} = sub{ diag longmess $_[0]; };
}
$| = 1;
use MooseX::ShortCut::BuildInstance qw( build_class );
use File::Copy qw( copy );
use File::Temp;
use Test::File;
use lib $lib,;
#~ use Log::Shiras::Unhide qw( :InternalReporTCSV );# :InternalSwitchboarD :InternalTaPWarN :InternalTypeSHeadeR
use Log::Shiras::Switchboard;
use Log::Shiras::Telephone;
use Log::Shiras::Report::CSVFile;
use	Log::Shiras::Report::Test2Diag;
use Log::Shiras::TapWarn;
my  		@attributes = qw(
				file					headers					reconcile_headers
				test_first_row			
			);
my  		@methods = qw(
				get_file_name			get_file_name			set_headers
				get_headers				has_headers				number_of_headers
				add_line				set_reconcile_headers	should_reconcile_headers
				should_test_first_row
			);
my  (
			$csv_class, $csv_instance, $ella_peterson, $name_space_ref, $report_ref,
			$temp_file,	$test_class,
	);
my( $file_name_1, $file_name_2 ) = ( 'MyCSV.csv', ($test_file . 'csv_header.csv'), );
my $temp_dir = File::Temp->newdir( CLEANUP => 1 );
note 									"easy question first ...";
ok			$name_space_ref = {
				UNBLOCK =>{
					log_file => 'trace',
				},
				Log =>{