Perl Unit Tests <%perl> print ""; ($perl_unit_cnt,$perl_exists_cnt,$perl_test_cnt)=print_units("$data_path/perl-units.txt"); print ""; print ""; print ""; print ""; print ""; Unit name Status Count Perl unit count is $perl_unit_cnt $perl_exists_cnt exist $perl_test_cnt Python Unit Tests <%perl> print ""; ($python_unit_cnt,$python_exists_cnt,$python_test_cnt)=print_units("$data_path/python-units.txt"); print ""; print ""; print ""; print ""; print ""; Unit name Status Count Python unit count is $python_unit_cnt $python_exists_cnt exist $python_test_cnt Executable Unit Tests <%perl> print ""; ($exe_unit_cnt,$exe_exists_cnt,$exe_test_cnt)=print_units("$data_path/exe-units.txt"); print ""; print ""; print ""; print ""; print ""; Unit name Status Count Executable unit count is $exe_unit_cnt $exe_exists_cnt exist $exe_test_cnt

<& default-footer.mas &> <%perl> sub print_units { my($file)=@_; my $unit_cnt=0; my $exists_cnt=0; my $test_cnt=0; open(FILE,"<$file"); my @data=; close(FILE); foreach my $line (@data) { my @s=split(",",$line); print ""; print ""; print $s[0]; $unit_cnt++; print ""; if($s[1]) { print ""; print "Exists"; $exists_cnt++; } else { print ""; print "Not exists"; } print ""; print ""; if($s[1]) { print $s[1]; # print count $test_cnt+=$s[1]; } print ""; print ""; } return($unit_cnt,$exists_cnt,$test_cnt); }