425 lines
12 KiB
Perl
425 lines
12 KiB
Perl
# -*- Mode: perl; indent-tabs-mode: nil -*-
|
|
#
|
|
# The contents of this file are subject to the Mozilla Public
|
|
# License Version 1.1 (the "License"); you may not use this file
|
|
# except in compliance with the License. You may obtain a copy of
|
|
# the License at http://www.mozilla.org/MPL/
|
|
#
|
|
# Software distributed under the License is distributed on an "AS
|
|
# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
|
|
# implied. See the License for the specific language governing
|
|
# rights and limitations under the License.
|
|
#
|
|
# The Original Code is the Bugzilla Testopia System.
|
|
#
|
|
# The Initial Developer of the Original Code is Greg Hendricks.
|
|
# Portions created by Greg Hendricks are Copyright (C) 2006
|
|
# Novell. All Rights Reserved.
|
|
#
|
|
# Contributor(s): Greg Hendricks <ghendricks@novell.com>
|
|
# Jeff Dayley <jedayley@novell.com>
|
|
|
|
package API_TestRun;
|
|
|
|
use strict;
|
|
|
|
use base qw(Test::Unit::TestCase);
|
|
|
|
use lib ".";
|
|
use lib "../..";
|
|
|
|
use Bugzilla;
|
|
use Testopia::TestRun;
|
|
use Testopia::Search;
|
|
use Testopia::Table;
|
|
|
|
use Testopia::Test::Constants;
|
|
use Testopia::Test::API::Util;
|
|
use Testopia::Test::Util;
|
|
|
|
use Test::More;
|
|
use Test::Deep;
|
|
|
|
# The the XMLRPC::Lite proxy handle
|
|
our $proxy = proxy( LOGIN_CREDENTIALS->{'admin'} );
|
|
|
|
sub new {
|
|
my $self = shift()->SUPER::new(@_);
|
|
|
|
return $self;
|
|
}
|
|
|
|
sub set_up {
|
|
my $self = shift;
|
|
}
|
|
|
|
sub tear_down {
|
|
my $self = shift;
|
|
}
|
|
|
|
sub test_create_by_id {
|
|
my $self = shift;
|
|
|
|
my $plan = Testopia::TestPlan->new( get_rep('test_plans')->{'plan_id'} );
|
|
while (scalar @{ $plan->test_cases } == 0
|
|
|| scalar @{ $plan->product->environments } == 0
|
|
|| scalar @{ $plan->product->builds } == 0 )
|
|
{
|
|
$plan = Testopia::TestPlan->new( get_rep('test_plans')->{'plan_id'} );
|
|
}
|
|
|
|
my @cases = @{ $plan->test_cases };
|
|
my @builds = @{ $plan->product->builds };
|
|
my @envs = @{ $plan->product->environments };
|
|
|
|
my $case = $cases[ int( rand( scalar @cases ) ) ];
|
|
my $build = $builds[ int( rand( scalar @builds ) ) ];
|
|
my $env = $envs[ int( rand( scalar @envs ) ) ];
|
|
|
|
my $response = $proxy->call(
|
|
"TestRun.create",
|
|
{
|
|
plan_id => $plan->{'plan_id'},
|
|
build => $build->{'build_id'},
|
|
environment => $env->{'environment_id'},
|
|
manager => get_rep('profiles')->{'userid'},
|
|
summary => 'API TEST RUN CREATE ' . time(),
|
|
product_version => $plan->product_version,
|
|
plan_text_version => $plan->version,
|
|
notes => 'API TEST RUN NOTES' . time(),
|
|
status => 1,
|
|
target_pass => 90,
|
|
target_completion => 95,
|
|
cases => [ get_rep('test_cases')->{'case_id'}, get_rep('test_cases')->{'case_id'} ],
|
|
}
|
|
);
|
|
|
|
check_fault( $response, $self );
|
|
|
|
my $obj = Testopia::TestRun->new( $response->result->{'run_id'} );
|
|
$obj->build;
|
|
|
|
convert_undef($obj);
|
|
|
|
# dump_all($response->result, $obj);
|
|
cmp_deeply( $response->result, noclass($obj), "TestRun - test_create_by_id" );
|
|
}
|
|
|
|
sub test_create_by_string {
|
|
my $self = shift;
|
|
|
|
my $plan = Testopia::TestPlan->new( get_rep('test_plans')->{'plan_id'} );
|
|
while (scalar @{ $plan->test_cases } == 0
|
|
|| scalar @{ $plan->product->environments } == 0
|
|
|| scalar @{ $plan->product->builds } == 0 )
|
|
{
|
|
$plan = Testopia::TestPlan->new( get_rep('test_plans')->{'plan_id'} );
|
|
}
|
|
|
|
my @cases = @{ $plan->test_cases };
|
|
my @builds = @{ $plan->product->builds };
|
|
my @envs = @{ $plan->product->environments };
|
|
|
|
my $case = $cases[ int( rand( scalar @cases ) ) ];
|
|
my $build = $builds[ int( rand( scalar @builds ) ) ];
|
|
my $env = $envs[ int( rand( scalar @envs ) ) ];
|
|
|
|
my $response = $proxy->call(
|
|
"TestRun.create",
|
|
{
|
|
plan_id => $plan->{'plan_id'},
|
|
build => $build->{'name'},
|
|
environment => $env->{'name'},
|
|
manager => get_rep('profiles')->{'login_name'},
|
|
summary => 'API TEST RUN CREATE ' . time(),
|
|
}
|
|
);
|
|
|
|
check_fault( $response, $self );
|
|
|
|
my $obj = Testopia::TestRun->new( $response->result->{'run_id'} );
|
|
|
|
convert_undef($obj);
|
|
|
|
# dump_all($response->result, $obj);
|
|
cmp_deeply( $response->result, noclass($obj), "TestRun - test_create_by_string" );
|
|
}
|
|
|
|
sub test_get {
|
|
my $self = shift;
|
|
|
|
my $rep = get_rep('test_runs');
|
|
my $obj = Testopia::TestRun->new( $rep->{'run_id'} );
|
|
$obj->{'case_count'} = $obj->case_count();
|
|
|
|
convert_undef($obj);
|
|
|
|
my $response = $proxy->call( "TestRun.get", $rep->{'run_id'} );
|
|
|
|
check_fault( $response, $self );
|
|
|
|
# dump_all($response->result, $obj);
|
|
cmp_deeply( $response->result, noclass($obj), "TestRun - test_get" );
|
|
|
|
}
|
|
|
|
sub test_add_cases {
|
|
my $self = shift;
|
|
|
|
my $response = $proxy->call( "TestRun.add_cases",
|
|
[get_rep('test_cases')->{'case_id'}, get_rep('test_cases')->{'case_id'}],
|
|
[get_rep('test_runs')->{'run_id'}]
|
|
);
|
|
|
|
check_fault( $response, $self );
|
|
|
|
# dump_all($response->result, $obj);
|
|
ok( scalar @{$response->result} == 0, "TestRun - test_add_cases" );
|
|
|
|
}
|
|
|
|
sub test_update {
|
|
my $self = shift;
|
|
|
|
my $plan = Testopia::TestPlan->new( get_rep('test_plans')->{'plan_id'} );
|
|
while (scalar @{ $plan->test_cases } == 0
|
|
|| scalar @{ $plan->product->environments } == 0
|
|
|| scalar @{ $plan->product->builds } == 0 )
|
|
{
|
|
$plan = Testopia::TestPlan->new( get_rep('test_plans')->{'plan_id'} );
|
|
}
|
|
|
|
my @cases = @{ $plan->test_cases };
|
|
my @builds = @{ $plan->product->builds };
|
|
my @envs = @{ $plan->product->environments };
|
|
my @versions = @{ $plan->product->versions };
|
|
|
|
my $case = $cases[ int( rand( scalar @cases ) ) ];
|
|
my $build = $builds[ int( rand( scalar @builds ) ) ];
|
|
my $env = $envs[ int( rand( scalar @envs ) ) ];
|
|
my $version = $versions[ int( rand( scalar @versions ) ) ];
|
|
|
|
my $rep = get_rep('test_runs');
|
|
my $obj = Testopia::TestRun->new( $rep->{'run_id'} );
|
|
|
|
my $response = $proxy->call(
|
|
"TestRun.update",
|
|
$rep->{'run_id'},
|
|
{
|
|
plan_id => $plan->{'plan_id'},
|
|
build => $build->{'build_id'},
|
|
environment => $env->{'environment_id'},
|
|
manager => get_rep('profiles')->{'userid'},
|
|
summary => 'API TEST RUN UPDATE ' . time(),
|
|
product_version => $version->{'value'},
|
|
plan_text_version => $plan->version,
|
|
notes => 'API TEST RUN NOTES' . time(),
|
|
target_pass => 90,
|
|
target_completion => 95,
|
|
status => 1,
|
|
}
|
|
);
|
|
|
|
# Get the newly updated object to compare with
|
|
$obj = Testopia::TestRun->new( $rep->{'run_id'} );
|
|
|
|
convert_undef($obj);
|
|
|
|
check_fault( $response, $self );
|
|
cmp_deeply( $response->result, noclass($obj), "TestRun - test_update" );
|
|
|
|
}
|
|
|
|
sub test_list {
|
|
my $self = shift;
|
|
|
|
my $cgi = Bugzilla->cgi;
|
|
$cgi->param( "current_tab", "run" );
|
|
$cgi->param( "pagesize", 25 );
|
|
$cgi->param( 'distinct', 1 );
|
|
$cgi->param( "Bugzilla_login", LOGIN_CREDENTIALS->{'admin'}->{'login_name'} );
|
|
$cgi->param( "Bugzilla_password", LOGIN_CREDENTIALS->{'admin'}->{'password'} );
|
|
|
|
Bugzilla->login();
|
|
|
|
my $search = Testopia::Search->new($cgi);
|
|
my $table =
|
|
Testopia::Table->new( 'run', 'tr_xmlrpc.cgi', $cgi, undef, $search->query() );
|
|
|
|
convert_undef( $table->list );
|
|
|
|
my $response = $proxy->call( "TestRun.list", { pagesize => 25, } );
|
|
|
|
check_fault( $response, $self );
|
|
cmp_deeply( $response->result, noclass( $table->list ), "TestRun - test_list" );
|
|
|
|
$response = $proxy->call( "TestRun.list_count", { pagesize => 25, } );
|
|
ok($response->result == $table->list_count, 'list_count');
|
|
}
|
|
|
|
sub test_add_tag {
|
|
my $self = shift;
|
|
|
|
my $rep = get_rep('test_runs');
|
|
my $obj = Testopia::TestRun->new( $rep->{'run_id'} );
|
|
my $orig_size = scalar @{ $obj->tags };
|
|
delete $obj->{'tags'};
|
|
|
|
my $tag = get_rep('test_tags');
|
|
|
|
my $response = $proxy->call( "TestRun.add_tag", $rep->{'run_id'}, $tag->{'tag_name'} );
|
|
|
|
check_fault( $response, $self );
|
|
|
|
# dump_all($tag, $obj->tags);
|
|
ok( scalar @{ $obj->tags } == ( $orig_size + 1 ), "TestRun - test_add_tag" );
|
|
|
|
}
|
|
|
|
sub test_get_bugs {
|
|
my $self = shift;
|
|
|
|
my $rep = get_rep('test_case_bugs');
|
|
while ( !$rep->{'case_run_id'} ) {
|
|
$rep = get_rep('test_case_bugs');
|
|
}
|
|
my $cr = Testopia::TestCaseRun->new( $rep->{'case_run_id'} );
|
|
my $obj = Testopia::TestRun->new( $cr->run_id );
|
|
|
|
my $response = $proxy->call( "TestRun.get_bugs", $cr->run_id );
|
|
|
|
check_fault( $response, $self );
|
|
my $list = $obj->bugs;
|
|
convert_undef($list);
|
|
|
|
# dump_all($obj->bugs, $response->result);
|
|
cmp_deeply( $response->result, noclass($list), "TestRun - test_get_bugs" );
|
|
|
|
}
|
|
|
|
sub test_get_change_history {
|
|
my $self = shift;
|
|
|
|
my $rep = get_rep('test_run_activity');
|
|
my $obj = Testopia::TestRun->new( $rep->{'run_id'} );
|
|
|
|
my $response = $proxy->call( "TestRun.get_change_history", $rep->{'run_id'} );
|
|
|
|
check_fault( $response, $self );
|
|
my $list = $obj->history;
|
|
convert_undef($list);
|
|
|
|
# dump_all($list, $response->result);
|
|
cmp_deeply( $response->result, $list, "TestRun - test_get_change_history" );
|
|
|
|
}
|
|
|
|
sub test_get_completion_report {
|
|
my $self = shift;
|
|
|
|
my $rep = get_rep('test_case_runs');
|
|
my $obj = Testopia::TestRun->new( $rep->{'run_id'} );
|
|
|
|
my $response = $proxy->call( "TestRun.get_completion_report", $rep->{'run_id'} );
|
|
|
|
check_fault( $response, $self );
|
|
|
|
# dump_all($obj, $response->result);
|
|
isa_ok( $response->result, 'HASH', "TestRun - test_get_completion_report" );
|
|
}
|
|
|
|
sub test_get_tags {
|
|
my $self = shift;
|
|
|
|
my $rep = get_rep('test_run_tags');
|
|
my $obj = Testopia::TestRun->new( $rep->{'run_id'} );
|
|
|
|
my $response = $proxy->call( "TestRun.get_tags", $rep->{'run_id'} );
|
|
|
|
check_fault( $response, $self );
|
|
|
|
my @results;
|
|
foreach my $tag ( @{ $obj->tags } ) {
|
|
push @results, $tag->name;
|
|
}
|
|
|
|
# dump_all(\@results, $response->result);
|
|
cmp_deeply( $response->result, \@results, "TestRun - test_get_tags" );
|
|
|
|
}
|
|
|
|
sub test_get_test_case_runs {
|
|
my $self = shift;
|
|
|
|
my $rep = get_rep('test_case_runs');
|
|
my $obj = Testopia::TestRun->new( $rep->{'run_id'} );
|
|
|
|
my $response = $proxy->call( "TestRun.get_test_case_runs", $rep->{'run_id'} );
|
|
|
|
check_fault( $response, $self );
|
|
|
|
my $list = $obj->caseruns;
|
|
convert_undef($list);
|
|
|
|
# dump_all($obj, $response->result);
|
|
cmp_deeply( $response->result, noclass($list), "TestRun - test_get_test_case_runs" );
|
|
|
|
}
|
|
|
|
sub test_get_test_cases {
|
|
my $self = shift;
|
|
|
|
my $rep = get_rep('test_case_runs');
|
|
my $obj = Testopia::TestRun->new( $rep->{'run_id'} );
|
|
|
|
my $response = $proxy->call( "TestRun.get_test_cases", $rep->{'run_id'} );
|
|
|
|
check_fault( $response, $self );
|
|
|
|
my $list = $obj->cases;
|
|
convert_undef($list);
|
|
|
|
# dump_all($obj, $response->result);
|
|
cmp_deeply( $response->result, noclass( $list ), "TestRun - test_get_test_cases" );
|
|
|
|
}
|
|
|
|
sub test_get_test_plan {
|
|
my $self = shift;
|
|
|
|
my $rep = get_rep('test_runs');
|
|
my $obj = Testopia::TestRun->new( $rep->{'run_id'} );
|
|
|
|
my $response = $proxy->call( "TestRun.get_test_plan", $rep->{'run_id'} );
|
|
|
|
check_fault( $response, $self );
|
|
|
|
# dump_all($obj, $response->result);
|
|
cmp_deeply( $response->result, noclass( $obj->plan ), "TestRun - test_get_test_plan" );
|
|
|
|
}
|
|
|
|
sub test_remove_tag {
|
|
my $self = shift;
|
|
|
|
my $rep = get_rep('test_run_tags');
|
|
|
|
my $obj = Testopia::TestRun->new( $rep->{'run_id'} );
|
|
my $tag = Testopia::TestTag->new( $rep->{'tag_id'} );
|
|
|
|
delete $obj->{'tags'};
|
|
my $orig_size = scalar @{ $obj->tags };
|
|
delete $obj->{'tags'};
|
|
|
|
my $response = $proxy->call( "TestRun.remove_tag", $rep->{'run_id'}, $tag->name );
|
|
|
|
check_fault( $response, $self );
|
|
|
|
# dump_all($rep, $obj->tags);
|
|
ok( scalar @{ $obj->tags } == ( $orig_size - 1 ), "TestRun - test_remove_tag" );
|
|
}
|
|
|
|
1;
|
|
|
|
__END__
|