Attachment 291355 Details for Bug 427901 – test for upstream function Bug::create()

test for upstream function Bug::create()

create.pl (text/plain), 1.02 KB, created by Noura El hawary on 2008-01-11 07:17:23 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Noura El hawary

Created: 2008-01-11 07:17:23 UTC

Size: 1.02 KB

patch

obsolete

>use strict;
>use warnings;
>
>use XMLRPC::Lite;
>use Data::Dumper;
>use HTTP::Cookies;
>use File::Basename;
>use File::Spec;
>
>my $username   = 'admin@redhat.com';
>my $password   = 'password';
>my $xmlrpc_url = 'http://localhost/rh_bugzilla_3/xmlrpc.cgi';
>
>my $cookie_jar = new HTTP::Cookies();
>
>my $rpc = new XMLRPC::Lite;
>$rpc->proxy($xmlrpc_url);
>$rpc->transport->cookie_jar($cookie_jar);
>
>my $bug_fields = {
>    bug_severity => 'normal',
>    component    => 'TestComponent',
>    comment      => 'this is a testing bug only',
>    op_sys       => 'Linux',
>    priority     => 'P1',
>    product      => 'TestProduct',
>    rep_platform => 'All',
>    short_desc   => 'This is a testing bug only',
>    version      => 'unspecified'
>};
>
>my $call = $rpc->call( 'User.login',
>    { login => $username, password => $password } );
>
>
>$call = $rpc->call( 'Bug.create', $bug_fields );
>
>my $result = "";
>if ( $call->faultstring ) {
>    print $call->faultstring . "\n";
>    exit;
>}
>else {
>    $result = $call->result;
>}
>
>print "Data: " . Dumper($result) . "\n";
>

Actions: View

Attachments on bug 427901: 291355