3 # Antoine Bertholon, December 2006
8 # 2) Add message for $cfg_bug_id
9 # 3) List message for $cfg_bug_id
14 ($dirname, $progname) = ($0 =~ m|^(.*)[/\\]([^/\\]+)$|o) ? ($1, $2) : ('.', $0);
17 use vars qw($dirname $progname
18 $cfg_cli_cmd $cfg_wsdl $cfg_project
19 $cfg_user_username $cfg_user_password
20 $cfg_member_username $cfg_member_password
21 $cfg_tracker $cfg_tracker_id $cfg_bug_id $addeed
24 require "$dirname/test.config";
26 use Test::Simple tests => 4;
28 use File::Temp qw/ tempfile tempdir /;
29 use File::Path qw/ rmtree /;
33 my ($tempdir) = tempdir(CLEANUP => 1);
34 my ($fh, $tempfile) = tempfile();
38 $ENV{'GFORGE_WSDL'} = $cfg_wsdl;
40 # Test login identified access
41 system("$cfg_cli_cmd login '--username=$cfg_user_username' '--password=$cfg_user_password' ");
43 ok( !$? , "Login with a good password");
45 system("$cfg_cli_cmd tracker addmessage '--type=$cfg_tracker_id' '--project=$cfg_project' '--id=$cfg_bug_id' '--message=test add message for $cfg_bug_id'");
47 ok( !$? , "Add message for $cfg_bug_id");
50 system("$cfg_cli_cmd tracker messages '--type=$cfg_tracker_id' '--project=$cfg_project' '--id=$cfg_bug_id' ");
51 ok( !$? , "List Messages of tracker $cfg_tracker_id");
53 system("$cfg_cli_cmd logout");
57 rmtree($tempdir, 0, 0);