2006-06-13 19:09:54 +04:00
|
|
|
#!/usr/bin/perl -wT
|
|
|
|
# -*- 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 Test Runner System.
|
|
|
|
#
|
|
|
|
# The Initial Developer of the Original Code is Maciej Maczynski.
|
|
|
|
# Portions created by Maciej Maczynski are Copyright (C) 2001
|
|
|
|
# Maciej Maczynski. All Rights Reserved.
|
|
|
|
#
|
|
|
|
# Contributor(s): Greg Hendricks <ghendricks@novell.com>
|
2006-10-28 00:22:27 +04:00
|
|
|
# Tyler Peterson <typeterson@novell.com>
|
2006-06-13 19:09:54 +04:00
|
|
|
|
|
|
|
use strict;
|
|
|
|
use lib ".";
|
|
|
|
|
|
|
|
use Bugzilla;
|
2006-10-06 01:11:04 +04:00
|
|
|
use Bugzilla::Bug;
|
2006-06-13 19:09:54 +04:00
|
|
|
use Bugzilla::Util;
|
2007-02-26 22:06:35 +03:00
|
|
|
use Bugzilla::User;
|
2006-10-06 01:11:04 +04:00
|
|
|
use Bugzilla::Error;
|
|
|
|
use Bugzilla::Constants;
|
2006-06-13 19:09:54 +04:00
|
|
|
use Bugzilla::Testopia::Util;
|
|
|
|
use Bugzilla::Testopia::TestCase;
|
|
|
|
use Bugzilla::Testopia::TestCaseRun;
|
2006-10-06 01:11:04 +04:00
|
|
|
use Bugzilla::Testopia::TestTag;
|
2006-06-13 19:09:54 +04:00
|
|
|
use Bugzilla::Testopia::Attachment;
|
|
|
|
use Bugzilla::Testopia::Search;
|
|
|
|
use Bugzilla::Testopia::Table;
|
2006-10-27 03:45:18 +04:00
|
|
|
use JSON;
|
2006-06-13 19:09:54 +04:00
|
|
|
|
2007-02-26 22:06:35 +03:00
|
|
|
require 'globals.pl';
|
|
|
|
|
|
|
|
use vars qw($vars);
|
2006-07-29 02:32:36 +04:00
|
|
|
my $template = Bugzilla->template;
|
2006-10-21 03:27:56 +04:00
|
|
|
my $query_limit = 15000;
|
2006-06-13 19:09:54 +04:00
|
|
|
|
2007-02-26 22:06:35 +03:00
|
|
|
|
|
|
|
Bugzilla->login(LOGIN_REQUIRED);
|
2006-12-01 21:06:58 +03:00
|
|
|
|
2006-06-13 19:09:54 +04:00
|
|
|
my $dbh = Bugzilla->dbh;
|
|
|
|
my $cgi = Bugzilla->cgi;
|
|
|
|
|
|
|
|
my $case_id = trim(Bugzilla->cgi->param('case_id')) || '';
|
|
|
|
|
|
|
|
unless ($case_id){
|
2006-12-01 21:06:58 +03:00
|
|
|
print $cgi->header();
|
|
|
|
$template->process("testopia/case/choose.html.tmpl", $vars)
|
|
|
|
|| ThrowTemplateError($template->error());
|
2006-06-13 19:09:54 +04:00
|
|
|
exit;
|
|
|
|
}
|
|
|
|
validate_test_id($case_id, 'case');
|
2007-01-24 22:26:34 +03:00
|
|
|
my $action = $cgi->param('action') || '';
|
2006-12-01 21:06:58 +03:00
|
|
|
|
2007-01-24 22:26:34 +03:00
|
|
|
$cgi->param('ctype' , 'print') if ($action eq 'Print');
|
2006-12-01 21:06:58 +03:00
|
|
|
my $format = $template->get_format("testopia/case/show", scalar $cgi->param('format'), scalar $cgi->param('ctype'));
|
2007-01-24 22:26:34 +03:00
|
|
|
my $disp = "inline";
|
|
|
|
# We set CSV files to be downloaded, as they are designed for importing
|
|
|
|
# into other programs.
|
|
|
|
if ( $format->{'extension'} eq "csv" || $format->{'extension'} eq "xml" )
|
|
|
|
{
|
|
|
|
$disp = "attachment";
|
|
|
|
$vars->{'displaycolumns'} = \@Bugzilla::Testopia::Constants::TESTCASE_EXPORT;
|
2006-12-01 21:06:58 +03:00
|
|
|
}
|
|
|
|
|
2007-01-24 22:26:34 +03:00
|
|
|
# Suggest a name for the file if the user wants to save it as a file.
|
|
|
|
my @time = localtime(time());
|
|
|
|
my $date = sprintf "%04d-%02d-%02d", 1900+$time[5],$time[4]+1,$time[3];
|
|
|
|
my $filename = "testcase-$case_id-$date.$format->{extension}";
|
|
|
|
print $cgi->header(-type => $format->{'ctype'},
|
|
|
|
-content_disposition => "$disp; filename=$filename");
|
2006-12-01 21:06:58 +03:00
|
|
|
|
2006-06-13 19:09:54 +04:00
|
|
|
$vars->{'action'} = "Commit";
|
|
|
|
$vars->{'form_action'} = "tr_show_case.cgi";
|
|
|
|
|
|
|
|
if ($action eq 'Clone'){
|
|
|
|
my $case = Bugzilla::Testopia::TestCase->new($case_id);
|
2007-02-26 22:06:35 +03:00
|
|
|
ThrowUserError("testopia-create-denied", {'object' => 'Test Case'}) unless $case->canview;
|
2006-06-13 19:09:54 +04:00
|
|
|
do_update($case);
|
|
|
|
$vars->{'case'} = $case;
|
|
|
|
$template->process("testopia/case/clone.html.tmpl", $vars) ||
|
|
|
|
ThrowTemplateError($template->error());
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
elsif ($action eq 'do_clone'){
|
|
|
|
my $case = Bugzilla::Testopia::TestCase->new($case_id);
|
|
|
|
my $count = 0;
|
|
|
|
my $method;
|
|
|
|
if ($cgi->param('copymethod') eq 'copy'){
|
2006-12-07 21:53:29 +03:00
|
|
|
ThrowUserError('missing-plans-list') if (!$cgi->param('existing') && !$cgi->param('newplans'));
|
2006-06-13 19:09:54 +04:00
|
|
|
my @planids;
|
|
|
|
my %planseen;
|
|
|
|
foreach my $p (split('[\s,]+', $cgi->param('newplans'))){
|
|
|
|
validate_test_id($p, 'plan');
|
|
|
|
$planseen{$p} = 1;
|
|
|
|
}
|
|
|
|
if ($cgi->param('existing')){
|
|
|
|
foreach my $p (@{$case->plans}){
|
2006-12-05 00:52:57 +03:00
|
|
|
$planseen{$p->id} = 1;
|
2006-06-13 19:09:54 +04:00
|
|
|
}
|
|
|
|
}
|
2006-12-05 00:03:06 +03:00
|
|
|
my $author = $cgi->param('keepauthor') ? $case->author->id : Bugzilla->user->id;
|
2006-10-28 00:22:27 +04:00
|
|
|
push @planids, keys %planseen;
|
2006-06-13 19:09:54 +04:00
|
|
|
my $newcase;
|
|
|
|
foreach my $pid (@planids){
|
|
|
|
$count++;
|
2007-02-26 22:06:35 +03:00
|
|
|
my $plan = Bugzilla::Testopia::TestPlan->new($pid);
|
|
|
|
next unless $plan->canedit;
|
2006-12-05 00:03:06 +03:00
|
|
|
my $newcaseid = $case->copy($pid, $author, $cgi->param('copy_doc'));
|
2006-06-13 19:09:54 +04:00
|
|
|
$case->link_plan($pid, $newcaseid);
|
|
|
|
$newcase = Bugzilla::Testopia::TestCase->new($newcaseid);
|
2007-02-13 03:31:53 +03:00
|
|
|
|
|
|
|
if($cgi->param('copy_attachments')){
|
|
|
|
foreach my $att (@{$case->attachments}){
|
|
|
|
$att->link_case($newcaseid);
|
|
|
|
}
|
|
|
|
}
|
2006-06-13 19:09:54 +04:00
|
|
|
if ($cgi->param('copy_tags')){
|
|
|
|
foreach my $tag (@{$case->tags}){
|
|
|
|
# Doing it this way avoids collisions
|
|
|
|
my $newtag = Bugzilla::Testopia::TestTag->new({
|
|
|
|
tag_name => $tag->name
|
|
|
|
});
|
|
|
|
my $newtagid = $newtag->store;
|
|
|
|
$newcase->add_tag($newtagid);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
if ($cgi->param('copy_comps')){
|
|
|
|
foreach my $comp (@{$case->components}){
|
|
|
|
$newcase->add_component($comp->{'id'});
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
$method = "copied";
|
|
|
|
$vars->{'copied'} = $case;
|
2006-10-31 01:29:32 +03:00
|
|
|
$vars->{'backlink'} = $case;
|
2006-06-13 19:09:54 +04:00
|
|
|
$case = $newcase;
|
|
|
|
}
|
|
|
|
elsif ($cgi->param('copymethod') eq 'link'){
|
|
|
|
# This should be a code error
|
|
|
|
ThrowUserError('testopia-missing-plans-list') if (!$cgi->param('linkplans'));
|
|
|
|
my %seen;
|
|
|
|
foreach my $p (split('[\s,]+', $cgi->param('linkplans'))){
|
|
|
|
validate_test_id($p, 'plan');
|
|
|
|
$seen{$p} = 1;
|
|
|
|
}
|
|
|
|
foreach my $p (keys %seen){
|
|
|
|
$count++;
|
2007-02-26 22:06:35 +03:00
|
|
|
my $plan = Bugzilla::Testopia::TestPlan->new($p);
|
|
|
|
next unless $plan->canedit;
|
2006-06-13 19:09:54 +04:00
|
|
|
$case->link_plan($p);
|
|
|
|
}
|
|
|
|
delete $case->{'plans'};
|
|
|
|
$method = "linked";
|
2006-10-31 01:29:32 +03:00
|
|
|
$vars->{'backlink'} = $case;
|
2006-06-13 19:09:54 +04:00
|
|
|
}
|
|
|
|
|
2006-10-31 01:29:32 +03:00
|
|
|
$vars->{'tr_message'} = "Case $method to $count plans.";
|
2006-06-13 19:09:54 +04:00
|
|
|
display($case);
|
|
|
|
}
|
|
|
|
|
|
|
|
elsif ($action eq 'Attach'){
|
|
|
|
my $case = Bugzilla::Testopia::TestCase->new($case_id);
|
2007-03-15 18:49:26 +03:00
|
|
|
ThrowUserError("testopia-read-only", {'object' => $case}) unless $case->canedit;
|
2006-06-13 19:09:54 +04:00
|
|
|
|
|
|
|
defined $cgi->upload('data')
|
|
|
|
|| ThrowUserError("file_not_specified");
|
|
|
|
my $filename = $cgi->upload('data');
|
|
|
|
$cgi->param('description')
|
|
|
|
|| ThrowUserError("missing_attachment_description");
|
|
|
|
my $description = $cgi->param('description');
|
|
|
|
my $contenttype = $cgi->uploadInfo($cgi->param('data'))->{'Content-Type'};
|
|
|
|
trick_taint($description);
|
|
|
|
my $fh = $cgi->upload('data');
|
|
|
|
my $data;
|
|
|
|
# enable 'slurp' mode
|
|
|
|
local $/;
|
|
|
|
$data = <$fh>;
|
|
|
|
$data || ThrowUserError("zero_length_file");
|
|
|
|
|
|
|
|
my $attachment = Bugzilla::Testopia::Attachment->new({
|
|
|
|
case_id => $case_id,
|
|
|
|
submitter_id => Bugzilla->user->id,
|
|
|
|
description => $description,
|
|
|
|
filename => $filename,
|
|
|
|
mime_type => $contenttype,
|
|
|
|
contents => $data
|
|
|
|
});
|
|
|
|
|
|
|
|
$attachment->store;
|
|
|
|
do_update($case);
|
2006-10-31 01:29:32 +03:00
|
|
|
$vars->{'tr_message'} = "File attached.";
|
|
|
|
$vars->{'backlink'} = $case;
|
2006-06-13 19:09:54 +04:00
|
|
|
display($case);
|
|
|
|
}
|
2006-10-06 01:11:04 +04:00
|
|
|
|
2006-06-13 19:09:54 +04:00
|
|
|
elsif ($action eq 'Commit'){
|
|
|
|
my $case = Bugzilla::Testopia::TestCase->new($case_id);
|
2007-03-15 18:49:26 +03:00
|
|
|
ThrowUserError("testopia-read-only", {'object' => $case}) unless $case->canedit;
|
2006-06-13 19:09:54 +04:00
|
|
|
do_update($case);
|
|
|
|
$vars->{'tr_message'} = "Test case updated";
|
2006-10-31 01:29:32 +03:00
|
|
|
$vars->{'backlink'} = $case;
|
2006-06-13 19:09:54 +04:00
|
|
|
display($case);
|
|
|
|
}
|
|
|
|
|
|
|
|
elsif ($action eq 'History'){
|
|
|
|
my $case = Bugzilla::Testopia::TestCase->new($case_id);
|
2007-03-15 18:49:26 +03:00
|
|
|
ThrowUserError("testopia-permission-denied", {'object' => $case}) unless $case->canview;
|
2006-06-13 19:09:54 +04:00
|
|
|
$vars->{'case'} = $case;
|
|
|
|
$vars->{'diff'} = $case->compare_doc_versions($cgi->param('new'),$cgi->param('old'));
|
|
|
|
$vars->{'new'} = $cgi->param('new');
|
|
|
|
$vars->{'old'} = $cgi->param('old');
|
|
|
|
$template->process("testopia/case/history.html.tmpl", $vars)
|
|
|
|
|| ThrowTemplateError($template->error());
|
|
|
|
|
|
|
|
}
|
|
|
|
|
2006-10-06 01:11:04 +04:00
|
|
|
elsif ($action eq 'unlink'){
|
|
|
|
my $plan_id = $cgi->param('plan_id');
|
|
|
|
validate_test_id($plan_id, 'plan');
|
|
|
|
my $case = Bugzilla::Testopia::TestCase->new($case_id);
|
2007-03-15 18:49:26 +03:00
|
|
|
ThrowUserError("testopia-read-only", {'object' => $case})
|
2007-02-06 03:02:16 +03:00
|
|
|
unless ($case->can_unlink_plan($plan_id));
|
|
|
|
|
|
|
|
if (scalar @{$case->plans} == 1){
|
|
|
|
$vars->{'case'} = $case;
|
|
|
|
$vars->{'runcount'} = scalar @{$case->runs};
|
|
|
|
$vars->{'plancount'} = scalar @{$case->plans};
|
|
|
|
$vars->{'bugcount'} = scalar @{$case->bugs};
|
|
|
|
$template->process("testopia/case/delete.html.tmpl", $vars) ||
|
|
|
|
ThrowTemplateError($template->error());
|
2006-10-06 01:11:04 +04:00
|
|
|
}
|
|
|
|
else {
|
2007-02-06 03:02:16 +03:00
|
|
|
$vars->{'plan'} = Bugzilla::Testopia::TestPlan->new($plan_id);
|
|
|
|
$vars->{'case'} = $case;
|
|
|
|
$template->process("testopia/case/unlink.html.tmpl", $vars) ||
|
|
|
|
ThrowTemplateError($template->error());
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
elsif ($action eq 'do_unlink'){
|
|
|
|
my $plan_id = $cgi->param('plan_id');
|
|
|
|
validate_test_id($plan_id, 'plan');
|
|
|
|
my $case = Bugzilla::Testopia::TestCase->new($case_id);
|
|
|
|
ThrowUserError("testopia-read-only", {'object' => 'case'})
|
|
|
|
unless ($case->can_unlink_plan($plan_id));
|
|
|
|
|
|
|
|
if ($case->unlink_plan($plan_id)){
|
|
|
|
$vars->{'tr_message'} = "Test plan successfully unlinked";
|
2006-10-06 01:11:04 +04:00
|
|
|
}
|
2007-02-06 03:02:16 +03:00
|
|
|
|
2006-10-31 01:29:32 +03:00
|
|
|
$vars->{'backlink'} = $case;
|
2006-10-06 01:11:04 +04:00
|
|
|
display($case);
|
|
|
|
}
|
|
|
|
|
|
|
|
elsif ($action eq 'detach_bug'){
|
|
|
|
my $case = Bugzilla::Testopia::TestCase->new($case_id);
|
2007-03-15 18:49:26 +03:00
|
|
|
ThrowUserError("testopia-read-only", {'object' => $case}) unless $case->canedit;
|
2006-10-06 01:11:04 +04:00
|
|
|
my @buglist;
|
|
|
|
foreach my $bug (split(/[\s,]+/, $cgi->param('bug_id'))){
|
|
|
|
ValidateBugID($bug);
|
|
|
|
push @buglist, $bug;
|
|
|
|
}
|
|
|
|
foreach my $bug (@buglist){
|
|
|
|
$case->detach_bug($bug);
|
|
|
|
}
|
|
|
|
display(Bugzilla::Testopia::TestCase->new($case_id));
|
|
|
|
}
|
2006-10-14 03:10:03 +04:00
|
|
|
elsif ($action eq 'Delete'){
|
|
|
|
my $case = Bugzilla::Testopia::TestCase->new($case_id);
|
2007-03-15 00:08:17 +03:00
|
|
|
ThrowUserError("testopia-no-delete", {'object' => $case}) unless $case->candelete;
|
2006-10-14 03:10:03 +04:00
|
|
|
$vars->{'case'} = $case;
|
|
|
|
$vars->{'runcount'} = scalar @{$case->runs};
|
|
|
|
$vars->{'plancount'} = scalar @{$case->plans};
|
|
|
|
$vars->{'bugcount'} = scalar @{$case->bugs};
|
|
|
|
$template->process("testopia/case/delete.html.tmpl", $vars) ||
|
|
|
|
ThrowTemplateError($template->error());
|
|
|
|
|
|
|
|
}
|
|
|
|
elsif ($action eq 'do_delete'){
|
|
|
|
my $case = Bugzilla::Testopia::TestCase->new($case_id);
|
2007-03-15 00:08:17 +03:00
|
|
|
ThrowUserError("testopia-no-delete", {'object' => $case}) unless $case->candelete;
|
2006-10-14 03:10:03 +04:00
|
|
|
$case->obliterate;
|
|
|
|
$vars->{'deleted'} = 1;
|
|
|
|
$template->process("testopia/case/delete.html.tmpl", $vars) ||
|
|
|
|
ThrowTemplateError($template->error());
|
|
|
|
}
|
2006-06-13 19:09:54 +04:00
|
|
|
####################
|
|
|
|
### Ajax Actions ###
|
|
|
|
####################
|
|
|
|
elsif ($action eq 'addcomponent' || $action eq 'removecomponent'){
|
|
|
|
my $case = Bugzilla::Testopia::TestCase->new($case_id);
|
2007-03-15 18:49:26 +03:00
|
|
|
ThrowUserError("testopia-read-only", {'object' => $case}) unless $case->canedit;
|
2006-06-13 19:09:54 +04:00
|
|
|
my $comp = $cgi->param('component_id');
|
|
|
|
detaint_natural($comp);
|
|
|
|
validate_selection($comp, 'id', 'components');
|
|
|
|
|
|
|
|
if ($action eq 'addcomponent'){
|
2006-10-27 03:45:18 +04:00
|
|
|
foreach my $c (@{$case->components}){
|
|
|
|
if ($c->id == $comp){
|
|
|
|
print "{ignore:1}";
|
|
|
|
exit;
|
|
|
|
}
|
|
|
|
}
|
2006-06-13 19:09:54 +04:00
|
|
|
$case->add_component($comp);
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
$case->remove_component($comp);
|
|
|
|
}
|
2006-10-27 03:45:18 +04:00
|
|
|
my @comps;
|
|
|
|
foreach my $c (@{$case->components}){
|
|
|
|
push @comps, {'id' => $c->id, 'name' => $c->name};
|
|
|
|
}
|
|
|
|
my $json = new JSON;
|
|
|
|
print $json->objToJson(\@comps);
|
|
|
|
}
|
2006-06-13 19:09:54 +04:00
|
|
|
|
|
|
|
#TODO: Clean up styles and put them in skins
|
|
|
|
else{
|
|
|
|
my $case = Bugzilla::Testopia::TestCase->new($case_id);
|
2007-03-15 18:49:26 +03:00
|
|
|
ThrowUserError("testopia-permission-denied", {'object' => $case}) unless $case->canview;
|
2006-06-13 19:09:54 +04:00
|
|
|
display($case);
|
|
|
|
}
|
|
|
|
|
|
|
|
#######################
|
|
|
|
### Helper Routines ###
|
|
|
|
#######################
|
|
|
|
|
|
|
|
sub do_update{
|
|
|
|
my ($case) = @_;
|
|
|
|
my $newtcaction = $cgi->param("tcaction");
|
|
|
|
my $newtceffect = $cgi->param("tceffect");
|
2006-10-06 01:11:04 +04:00
|
|
|
my $newtcsetup = $cgi->param("tcsetup") || '';
|
|
|
|
my $newtcbreakdown = $cgi->param("tcbreakdown") || '';
|
2006-06-13 19:09:54 +04:00
|
|
|
my $alias = $cgi->param('alias')|| '';
|
|
|
|
my $category = $cgi->param('category');
|
|
|
|
my $status = $cgi->param('status');
|
|
|
|
my $priority = $cgi->param('priority');
|
|
|
|
my $isautomated = $cgi->param("isautomated");
|
|
|
|
my $script = $cgi->param("script")|| '';
|
|
|
|
my $arguments = $cgi->param("arguments")|| '';
|
|
|
|
my $summary = $cgi->param("summary")|| '';
|
|
|
|
my $requirement = $cgi->param("requirement")|| '';
|
|
|
|
my $tcdependson = $cgi->param("tcdependson")|| '';
|
|
|
|
my $tcblocks = $cgi->param("tcblocks")|| '';
|
|
|
|
my $tester = $cgi->param("tester") || '';
|
2007-02-10 03:18:59 +03:00
|
|
|
my $est_time = $cgi->param("estimated_time") || '';
|
2006-06-13 19:09:54 +04:00
|
|
|
if ($tester){
|
2007-02-26 22:06:35 +03:00
|
|
|
$tester = login_to_id(trim($cgi->param('tester'))) || ThrowUserError("invalid_username", { name => $cgi->param('tester') });
|
2006-06-13 19:09:54 +04:00
|
|
|
}
|
|
|
|
|
|
|
|
ThrowUserError('testopia-missing-required-field', {'field' => 'summary'}) if $summary eq '';
|
|
|
|
|
|
|
|
detaint_natural($status);
|
|
|
|
detaint_natural($category);
|
|
|
|
detaint_natural($priority);
|
|
|
|
detaint_natural($isautomated);
|
2007-02-10 03:18:59 +03:00
|
|
|
|
|
|
|
$est_time =~ m/(\d+)[:\s](\d+)[:\s](\d+)/;
|
|
|
|
ThrowUserError('testopia-format-error', {'field' => 'Estimated Time' })
|
|
|
|
unless ($1 < 24 && $2 < 60 && $3 < 60);
|
|
|
|
$est_time = "$1:$2:$3";
|
|
|
|
|
2006-06-13 19:09:54 +04:00
|
|
|
# All inserts are done with placeholders so this is OK
|
|
|
|
trick_taint($alias);
|
|
|
|
trick_taint($script);
|
|
|
|
trick_taint($arguments);
|
|
|
|
trick_taint($summary);
|
|
|
|
trick_taint($requirement);
|
|
|
|
trick_taint($newtcaction);
|
|
|
|
trick_taint($newtceffect);
|
2006-10-06 01:11:04 +04:00
|
|
|
trick_taint($newtcbreakdown);
|
|
|
|
trick_taint($newtcsetup);
|
2006-06-13 19:09:54 +04:00
|
|
|
trick_taint($tcdependson);
|
|
|
|
trick_taint($tcblocks);
|
|
|
|
|
|
|
|
validate_selection($category, 'category_id', 'test_case_categories');
|
|
|
|
validate_selection($status, 'case_status_id', 'test_case_status');
|
|
|
|
|
2006-10-06 01:11:04 +04:00
|
|
|
my @buglist;
|
|
|
|
foreach my $bug (split(/[\s,]+/, $cgi->param('bugs'))){
|
|
|
|
ValidateBugID($bug);
|
|
|
|
push @buglist, $bug;
|
|
|
|
}
|
2006-12-02 03:32:10 +03:00
|
|
|
my @runs;
|
|
|
|
foreach my $runid (split(/[\s,]+/, $cgi->param('addruns'))){
|
|
|
|
validate_test_id($runid, 'run');
|
|
|
|
push @runs, Bugzilla::Testopia::TestRun->new($runid);
|
|
|
|
}
|
2006-10-06 01:11:04 +04:00
|
|
|
|
2006-06-13 19:09:54 +04:00
|
|
|
ThrowUserError('testiopia-alias-exists',
|
|
|
|
{'alias' => $alias}) if $case->check_alias($alias);
|
|
|
|
ThrowUserError('testiopia-invalid-data',
|
|
|
|
{'field' => 'isautomated', 'value' => $isautomated })
|
|
|
|
if ($isautomated !~ /^[01]$/);
|
|
|
|
|
2006-10-06 01:11:04 +04:00
|
|
|
if($case->diff_case_doc($newtcaction, $newtceffect, $newtcsetup, $newtcbreakdown) ne ''){
|
|
|
|
$case->store_text($case->id, Bugzilla->user->id, $newtcaction, $newtceffect, $newtcsetup, $newtcbreakdown);
|
2006-06-13 19:09:54 +04:00
|
|
|
}
|
|
|
|
|
|
|
|
my %newvalues = (
|
|
|
|
'case_status_id' => $status,
|
|
|
|
'category_id' => $category,
|
|
|
|
'priority_id' => $priority,
|
|
|
|
'summary' => $summary,
|
2007-02-10 03:18:59 +03:00
|
|
|
'estimated_time' => $est_time,
|
2006-06-13 19:09:54 +04:00
|
|
|
'isautomated' => $isautomated,
|
|
|
|
'alias' => $alias,
|
|
|
|
'requirement' => $requirement,
|
|
|
|
'script' => $script,
|
|
|
|
'arguments' => $arguments,
|
|
|
|
'default_tester_id' => $tester,
|
|
|
|
);
|
|
|
|
$case->update(\%newvalues);
|
|
|
|
$case->update_deps($cgi->param('tcdependson'), $cgi->param('tcblocks'));
|
2006-10-06 01:11:04 +04:00
|
|
|
# Add new tags
|
2006-10-30 21:58:02 +03:00
|
|
|
foreach my $tag_name (split(/[,]+/, $cgi->param('newtag'))){
|
2006-10-06 01:11:04 +04:00
|
|
|
trick_taint($tag_name);
|
|
|
|
my $tag = Bugzilla::Testopia::TestTag->new({tag_name => $tag_name});
|
|
|
|
my $tag_id = $tag->store;
|
|
|
|
$case->add_tag($tag_id);
|
|
|
|
}
|
|
|
|
# Attach bugs
|
|
|
|
foreach my $bug (@buglist){
|
|
|
|
$case->attach_bug($bug);
|
|
|
|
}
|
2006-12-02 03:32:10 +03:00
|
|
|
# Add to runs
|
|
|
|
foreach my $run (@runs){
|
|
|
|
$run->add_case_run($case->id);
|
|
|
|
}
|
2006-06-13 19:09:54 +04:00
|
|
|
$cgi->delete_all;
|
|
|
|
$cgi->param('case_id', $case->id);
|
|
|
|
}
|
|
|
|
|
|
|
|
sub display {
|
|
|
|
my $case = shift;
|
2006-07-18 21:38:13 +04:00
|
|
|
$cgi->param('case_id', $case->id);
|
|
|
|
$cgi->param('isactive', 1);
|
2006-06-13 19:09:54 +04:00
|
|
|
$cgi->param('current_tab', 'case_run');
|
|
|
|
my $search = Bugzilla::Testopia::Search->new($cgi);
|
|
|
|
my $table = Bugzilla::Testopia::Table->new('case_run', 'tr_show_case.cgi', $cgi, undef, $search->query);
|
2006-11-17 20:07:10 +03:00
|
|
|
ThrowUserError('testopia-query-too-large', {'limit' => $query_limit}) if $table->view_count > $query_limit;
|
2006-06-13 19:09:54 +04:00
|
|
|
$vars->{'case'} = $case;
|
|
|
|
$vars->{'table'} = $table;
|
2006-10-27 03:45:18 +04:00
|
|
|
$vars->{'user'} = Bugzilla->user;
|
2006-12-01 21:06:58 +03:00
|
|
|
$template->process($format->{'template'}, $vars) ||
|
|
|
|
ThrowTemplateError($template->error());
|
|
|
|
}
|