Branch Coverage

test_eng/Testout.pm
Criterion Covered Total %
branch 125 208 60.1


line true false branch
200 79 0 unless @_ > 1 and $_[0] =~ /^\[/
202 0 0 if grep {not /^\s*\[.*\]\s*$/;} @_
210 0 0 unless @_ > 1 and $_[0] =~ /^\[/
212 0 0 if grep {not /^\s*\[.*\]\s*$/;} @_
220 0 0 unless @$subarr > $ind
237 11 1 if defined $power
243 1 8 if $initial =~ /Skip this/
245 1 7 if (($what eq 'if') ne defined $else) { }
5 2 elsif ($what eq 'if') { }
256 0 0 unless $ENV{'AUTOMATED_TESTING'}
272 0 94 unless eval "use vars '\$${sym}'; 1"
277 0 121 if ($use_dollars_in_argsign)
279 0 0 if ($pre =~ /^(v?vector|fordiv|sumdiv|plothexport)\(/) { }
280 0 0 unless $pre =~ /^\w+\s*\([^,]*,\s*([\$\w]+)\s*,/
283 0 0 unless $pre =~ /^\w+\s*\(\s*([\$\w]+)\s*,/
295 150 0 unless $r =~ /\bMod\(/
307 33 703 if $noans eq "print"
339 15 721 if ($in =~ /^\\p\s*(\d+)/) { }
0 721 elsif ($in =~ /^\\pb\s*(\d+)/) { }
1 720 elsif ($in =~ /^\\ps\s*(\d+)/) { }
0 720 elsif ($in =~ /\\/) { }
0 720 elsif ($in =~ /^(\w+)\s*\([^()]*\)\s*=/ and 0) { }
0 720 elsif ($in =~ /!(?![\(\w])|\'/) { }
401 0 720 if ($in =~ /\[[^\]]*;/) { }
1 719 elsif ($in =~ /Skip this `(.*)'/) { }
0 719 elsif ($in =~ /&for\s*\([^\)]*$/) { }
0 719 elsif ($in =~ /(^|[\(=,])%/) { }
26 693 elsif ($in =~ /\b(get(heap|stack)|Total time spent.*gettime)\b/) { }
9 684 elsif ($in =~ / ( \b ( if | goto | label | input | break # | while | until | gettime | default ) \b | (\w+) \s* \( \s* (?: (?!\d)\w+ \s* (?:, \s* (?!\d)\w+ \s* )* )? \) \s* =(?!=) | \b install \s* \( \s* (\w+) \s* , [^()]* \) | \b ( my _ )? (?: p? print $or_matrix ) \( ( \[ | (1 ,)? PARImat ) | # Too many parens: will not be wrapped in sub{...} \b forprime .* \){5} ) /x) { }
1 683 elsif ($userfun and $in =~ / \b ($userfun) \s* \( /x) { }
1 682 elsif ($installed and $in =~ / \b ($installed) \s* \( /x) { }
2 680 elsif ($in =~ /\b(nonesuch now|nfisincl$or_matrix)\b/) { }
0 680 elsif ($in =~ /\$?\b($skipvars_rx)\b/) { }
0 680 elsif ($in =~ /$skip_fun_rx/) { }
439 4 5 if (defined $3)
442 1 8 if (defined $4)
443 0 1 if (defined $installed) { }
450 0 9 if ($1 eq 'default' and $in =~ /^default\s*\(\s*echo\s*,\s*0\s*\)\s*(;\s*)?$/) { }
451 0 0 if ($rest =~ s/\A.*?^default\s*\(\s*echo\s*,\s*0\s*\)\s*(;\s*)?$//ms) { }
452 0 0 if ($rest =~ s/\A(.*?)^default\s*\(\s*echo\s*,\s*(?!0\b)\S[^\n]*\)\s*(;\s*)?$//ms) { }
454 0 0 if ($cmd =~ /(?:^|;)\s*(?:print|error)\(/ or $userfun and $cmd =~ / \b ($userfun) \s* \( /x) { }
456 0 0 if ($cmd =~ /^\s*(\w+)\s*\($matched_par\)\s*=(?!=)/)
458 0 0 if (defined $userfun) { }
468 0 0 unless eval { do { &parse_as_gp($cmd, sub ($) { "main::" . (CORE::shift()); } , "echo"); 1 } }
471 0 0 if (defined $Err) { }
515 687 33 unless $in =~ /\b(my_)?print\b/
516 0 720 if ($in =~ /~/)
520 0 720 if ($in =~ /->/)
524 40 680 if ($RET)
529 4 716 if ($RET and $in =~ /(?:^|;)\$?(\w+)\([^()]*\)=(?!=)/)
531 1 3 if ($in =~ /\b(print|error|$ourvars_rx)\b/)
535 0 1 if ($1 eq 'print') { }
540 0 1 if (defined $userfun) { }
552 39 680 if $RET
553 1 679 if ($in =~ /^\s*alias\s*\(\s*(\w+)\s*,\s*(\w+)\s*\)$/)
559 25 654 if (not $in =~ /\w\(/) { }
32 622 elsif ($in =~ /\b(elllseries|binomial|mathilbert|intnum|intfuncinit|intfuncinit)\b/) { }
571 1 31 if $in =~ /intfuncinit/
583 674 5 unless ($in =~ /\b(hermite|mathnf|until)\s*\(/)
589 0 679 if ($skip_eval and $in =~ /\beval\(/g)
595 679 0 if $seen_now{'oo'} or &Math::Pari::pari_version_exp() < 2009000
598 2 677 if $in =~ /\bdireuler\b/
600 0 679 if ($in =~ /\.((?!\d|(?<=\d\.)e-?\d)\w+(?![\w"]))/)
603 0 679 if ($in =~ /(?
613 2 76 unless $seen{$2} and $seen{$2} eq " " or $in =~ /\"/
734 2 675 if ($in =~ s/([,\(]\s*)&(\$(\w+)\s*)(?=[,\)])/$1$2/)
743 82 595 $noans ? :
751 75 602 if ($newvars)
761 595 82 if defined $res and ref $res
763 14 663 if ($doprint) { }
764 0 14 if ($in =~ /my_texprint/) { }
769 1 13 if ($have_floats)
784 79 584 if ($have_floats || $in =~ /^(sinh?|solve)\b/ and ref $res) { }
787 79 0 if (defined $rres and not $rres =~ /\n/)
793 24 55 if ($rout =~ /\[.*[-+,;]\s/ or $rout =~ /\bQfb\b/)
795 24 0 if defined $res
796 24 0 if defined $res
798 24 0 if defined $res
800 17 62 if ($in =~ /\b(zeta|bin|comprealraw|frac|lseriesell|powrealraw|pollegendre|legendre|suminf|ellinit)\b/) { }
808 79 0 if defined $res
826 8 669 if ($@)
827 0 8 if ($@ =~ /^Undefined subroutine &main::(\w+)/ and $not_yet_defined{$1}) { }
0 8 elsif ($@ =~ /high resolution graphics disabled/ and 0 >= &Math::Pari::have_graphics()) { }
0 8 elsif ($@ =~ /pari_daemon without waitpid & setsid is not yet implemented/) { }
8 0 elsif ($@ =~ /gnuplot-like plotting environment not loaded yet/ and $skip_gnuplot) { }
844 547 122 if (defined $rres and defined $re_out)
847 31 547 if $how
849 0 578 if ($@ and $@ =~ /regexp too big/)
855 516 62 if $cmp
859 0 669 if (not $noans and defined $re_out and not defined $rres && $cmp) { }
516 153 elsif (not $noans and defined $re_out) { }
0 153 elsif (not $noans and !defined($rres) || &filter_res($rres) ne &filter_res($rout)) { }
0 153 elsif ($doprint and $printout ne $rout) { }
892 0 0 if ($@) { }
902 0 0 if $in =~ /^\\p\s*(\d+)$/
922 105 126 ref $_ ? :
924 67 59 if $nl
930 0 0 ref $_ ? :
932 0 0 if $nl
938 0 0 ref $_ ? :
940 0 0 if $nl
947 15 0 unless $_[1]
953 0 0 unless $_[1]
964 1 0 unless eval { do { &plothsizes() } }