PowerPath Test Automation Infrastructure

PPTAI Test Report Page

##

#!/usr/bin/perl -w
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
#use strict;
use lib "/view/sawans1_Ndb_0037_work/vobs/pp/pptai/api/NightlyDB";
use API;

print header;
print start_html("Thank You");
#print h2("Thank You");
#print "Hello folks !!!";
my $input;
#STORING INPUT VALUES IN HASH NAMED $input. 
$input->{pp_branch} = param('pp_branch'); 
$input->{controller} = param('controller');
$input->{start_date} = param('start_date');
$input->{end_date} = param('end_date');

my $test_run_list_ref = API::get_test_run($input);
#-------------------------------------------------------------------------------
# test Test Run calls
#-------------------------------------------------------------------------------

#Calling a function defined in API.pm

my $test_run_list_ref = API::get_test_run($input);

my $counter = 0;
foreach my $tr_obj (@$test_run_list_ref)
{
  
    print"---------- Test Run Attributes ---------\n";
    $counter++;
    print ":Counter:".$counter;
     print ":Database ID:".$tr_obj->id;
     print "\n";
    print ":NIghtly Web ID: ";
    print $tr_obj->nightly_web_id();
    print "\n";
         print":Test Controller:";
    print $tr_obj->test_controller();
    print "\n";
    print ":Start Date:";
    print $tr_obj->start_date();
    print "\n";
    print ":End Date:";
    print $tr_obj->start_date_only();
	print "\n";
    print ":Minutes Elapsed:";
    print $tr_obj->elapsed_minutes();
        print "\n";
     print":A link to the log :" ;
    print $tr_obj->log_link();
        print "\n\n";
    print"-------End of Test Run Attributes------\n";
    # In the class DIagram the powerpath_branch() is not available
    # in the TestRun class so it is inge=herited through TestRunSpecification's module
    # i.e specification
    print"-------Test Run Specifications------";
    print"\n";
    print":Powerpath Branch Name:";
    print $tr_obj->specification->powerpath_branch();
    print "\n";
     print":Powerpath Host Name:";
    print $tr_obj->specification->host_name();
     print"\n";
     print":Powerpath Build Type:";
     print $tr_obj->specification->powerpath_build_type();
     print"\n";
     print":Powerpath array type:";
     $tr_obj->specification->array_type();
     print"\n";
     print":Package Name:";
     print $tr_obj->specification->package();
     print"\n";
     print"------End of TestRun Specifications ------\n\n";
     print"------Test Run Status ----------\n";
	print ": ";
	print "# PASSED: ";
	print $tr_obj->number_of_passed();
	print "\n";
	print "# FAILED: ";
	print $tr_obj->number_of_failed();
	print "\n";
	print "# UNRESOLVED: ";
	print $tr_obj->number_of_unresolved();
	print "\n";
	print "# NOT EXPOSED: ";
	print $tr_obj->number_of_not_exposed();
	print "\n";
        
	print"------End of Test Run Status------\n\n";
        
	print"------Test Suite Run List---------\n";
	
	print":User Scenario Name:\n";
	
        print "# Total Number of user scenarios: ";
	print $tr_obj->number_of_user_scenarios()."\n";
	
         #To get XML type report	
	#print $tr_obj->get_xml();
	print "\n"
}

print end_html;