Branch Coverage

blib/lib/Test/Smoke/Smoker.pm

Criterion	Covered	Total	%
branch	69	318	21.7

line	true	false	branch
147	0	20	unless (ref $fh eq "GLOB")
152	0	20	UNIVERSAL::isa($_[0], 'HASH') ? :
	20	0	@_ ? :
160	28	412	exists $args{$_} ? :
166	0	20	if $fields{'is56x'}
167	0	20	if $^O =~ /VMS/i
169	18	2	unless (defined $fields{'testmake'})
171	0	18	if $fields{'is_win32'}
172	0	18	if $fields{'is_vms'}
224	21	18	if ($key eq "all_defaults")
232	0	18	unless exists $CONFIG{"df_$key"}
234	0	18	if @_
285	0	0	if $self->{'is_vms'}
289	0	0	if $self->{'v'} > 1
301	0	0	if $cinfo{'cc'}
304	0	0	unless ($c_result)
310	0	0	unless exists $sconf{'ldlibpthname'}
313	0	0	if $sconf{'ldlibpthname'}
318	0	0	if ($build_stat == -1)
324	0	0	if ($build_stat == 0)
329	0	0	unless ($self->make_test_prep)
350	0	0	if ($self->{'fdir'} and -d $self->{'fdir'}) { }
360	0	0	$self->{'is_vms'} ? :
375	0	0	unless $self->{'v'} > 1
382	0	0	if ($mani_check->{$file} == ST_MISSING()) { }
	0	0	elsif ($mani_check->{$file} == ST_UNDECLARED()) { }
401	0	0	unless UNIVERSAL::isa($policy, "Test::Smoke::Policy")
405	0	0	if (@substs)
425	0	0	if ($self->{'is_win32'}) { }
	0	0	elsif ($self->{'is_vms'}) { }
428	0	0	"$config" =~ /-DCCTYPE=/ ? :
459	0	0	if $self->{'is_vms'} and $config->has_arg("-Dusevmsdebug")
462	0	0	if $self->{'is_win32'} and $config->has_arg("-Uuseshrplib")
467	0	0	if ($self->{'is_win32'})
473	0	0	if $cinfo{'cc'}
475	0	0	if $self->{'w32cc'} =~ /MSVC|BORLAND|GCC/
482	0	0	if $self->{'is_vms'} and $config->has_arg("-Dusevmsdebug")
484	0	0	if $self->{'is_win32'} and $config->has_arg("-Uuseshrplib")
489	0	0	unless -x $miniperl
491	0	0	$self->{'_run_exit'} ? :
	0	0	-x $perl ? :
503	0	0	if $self->{'harnessonly'}
507	0	0	if $self->{'run'}
510	0	0	$self->{'is_win32'} ? :
532	0	0	$self->{'perlio_only'} ? :
	0	0	$config_args =~ /-Uuseperlio\b/ || $self->{'defaultenv'} ? :
536	0	0	if (not $config_args =~ /-Uuseperlio\b/ || $self->{'defaultenv'} and $self->{'locale'})
546	0	0	defined $ENV{'LC_ALL'} ? :
548	0	0	if ($perlio ne 'locale') { }
550	0	0	if $self->{'is_win32'}
551	0	0	if $self->{'force_c_locale'}
552	0	0	unless $ENV{'LC_ALL'}
554	0	0	if $self->{'defaultenv'}
562	0	0	unless ($self->{'run'})
567	0	0	if ($self->{'harnessonly'}) { }
571	0	0	if $self->{'harness3opts'}
577	0	0	$self->{'is56x'} ? :
	0	0	$self->{'is_vms'} ? :
580	0	0	if ($self->{'is_win32'}) { }
590	0	0	if not $had_LC_ALL and exists $ENV{'LC_ALL'}
608	0	0	if (@harness)
618	0	0	if $self->{'is_vms'}
622	0	0	if chdir "t"
625	0	0	$self->{'v'} > 1 ? :
633	0	0	if ($all_ok) { }
637	0	0	$harness_out ? :
	0	0	scalar keys %inconsistent ? :
645	0	0	scalar keys %inconsistent ? :
651	0	0	if $changed_dir
668	0	0	if ($self->{'is_vms'}) { }
	0	0	elsif ($self->{'is_win32'}) { }
670	0	0	$config->has_arg('-Dusevmsdebug') ? :
675	0	0	$config->has_arg('-Uuseshrplib') ? :
678	0	0	if ($self->{'hasharness3'}) { }
712	0	0	if $line =~ / \b (?:Files | u) = .+ Tests = [0-9]+ /xi
715	0	0	if $last
716	0	0	if $line =~ /All tests successful/
719	0	0	if $line =~ /Failed Test\s+Stat/
721	0	0	unless $seenheader
724	0	0	if ($name) { }
730	0	0	unless $fail
736	0	0	unless (close $tst)
773	0	0	if $line =~ / \b (?:Files | u) = .+ Tests = [0-9]+ /xi
776	0	0	if $line =~ /All tests successful/
779	0	0	if $line =~ /Test Summary Report/
780	0	0	unless $seenheader
783	0	0	if ($tname)
784	0	0	if ($file and not $found)
796	0	0	if ($failed)
805	0	0	if ($todo)
814	0	0	if ($extra)
820	0	0	if ($parse_error)
829	0	0	if ($exit_status)
837	0	0	if ($file and not $found)
844	0	0	unless (close $tst)
856	0	0	unless ($target)
867	0	0	if skip_filter($_)
872	0	0	if (/^u=.*tests=/) { }
881	0	0	unless (close $tst)
887	0	0	if (grep /^All tests successful/, @nok) { }
	0	0	elsif (not $extend) { }
891	0	0	if $self->{'patch'}
911	0	0	if ($self->{'is_win32'}) { }
931	12	5	if grep /^Test Summary Report/, @lines
939	10	6	if ($name) { }
948	0	28	if /All tests successful/
985	22	108	if ($tname) { }
	9	99	elsif ($failed) { }
	14	85	elsif ($todo) { }
	23	62	elsif ($extra) { }
	7	55	elsif ($parse_error) { }
	6	49	elsif ($exit_status) { }
987	0	22	if ($file and not $found)
1017	178	118	unless $seenheader
1018	2	294	if /All tests successful/
1020	130	166	$seenheader ? :
1022	1	11	if ($file and not $found)
1044	0	4	unless $nok =~ m(^((?:\.\.[\\/])?\w+[\\/][-\w/\\]+)\.*(.*))
1064	6	24	unless $test_name =~ /\.t$/
1065	28	2	unless ($test_name =~ m[^\.\.\/])
1066	5	23	$test_name =~ /^(?:cpan|dist|ext|lib|t)\b/ ? :
1075	0	30	if $self->{'is_win32'}
1078	0	30	unless $test_path =~ m[^\.\.[\\/]]
1098	0	2	unless $self->{'skip_tests'}
1101	2	0	if (open SKIPTESTS, "< $self->{'skip_tests'}") { }
1102	1	1	$unset ? :
1107	0	10	if $raw =~ /^\s*#/
1109	0	0	unless ($raw =~ /\.t$/ or $raw =~ /test\.pl$/)
1112	8	2	if ($raw =~ m[^(?:lib|ext|cpan|dist)/])
1117	0	2	unless -f $tsrc
1126	1	1	!$unset ? :
1132	2	0	if @libext
1150	1	1	if ($unset) { }
1151	1	0	if (-f $mani_new)
1161	0	1	unless (rename $mani_org, $mani_new)
1168	1	0	if (open MANIO, "< $mani_new")
1170	1	0	if (open MANIN, "> $mani_org")
1176	13	4	if (not grep(/\Q$fn\E/, @$tests)) { }
1203	0	0	if defined $sub
1207	0	0	if $err
1209	0	0	wantarray ? :
1222	0	0	if $self->{'makeopt'}
1223	0	0	if $cmd =~ /clean/
1227	0	0	$self->{'is_win32'} ? :
	0	0	$self->{'is_vms'} ? :
1238	0	0	unless chdir "win32"
1240	0	0	unless chdir ".."
1241	0	0	wantarray ? :
1252	0	0	if $cmd =~ s[2\s*>\s*/dev/null\s*$][]
1255	0	0	$kill_err ? :
1258	0	0	wantarray ? :
1271	0	0	unless defined $extra
1277	0	0	if ($self->{'is_win32'}) { }
1278	0	0	unless chdir "win32"
1281	0	0	unless $ok = open(TST, $cmd)
1282	0	0	unless chdir ".."
1286	0	0	unless $ok = open(TST, $cmd)
1288	0	0	unless ($ok)
1306	0	0	unless $^O eq "VMS"