<%perl>
if($ARGS{type} eq 'unit'){
print "Unit Testing Results";
}
elsif($ARGS{type} eq 'sim'){
print "Simulation Testing Results";
}
else {
print "Invalid testing type";
}
|
<%perl>
# Connect to the database.
our $dbh=$m->comp('mysql-connect.mas');
<%perl>
# Report unit testing results.
if($ARGS{type} eq "unit"){
print "| ID |
Module |
Test |
Wall [s] |
CPU [s] |
Result | ";
get_detailed_unit_testing_results($ARGS{id});
}
elsif ($ARGS{type} eq "sim"){
print "ID |
Name |
Wall [s] |
CPU [s] |
Result | ";
get_detailed_sim_testing_results($ARGS{id});
}
else {
print "Invalid testing type.";
}
|
| Green-colored results indicate 100% successful Test Runs. Red-colored results indicate less than 100% successful Test Runs. |