3 # Antoine Bertholon, December 2006
8 # 2) Attach file for $cfg_bug_id
9 # 3) List file for $cfg_bug_id
10 # 4) Download file for $cfg_bug_id
15 ($dirname, $progname) = ($0 =~ m|^(.*)[/\\]([^/\\]+)$|o) ? ($1, $2) : ('.', $0);
18 use vars qw($dirname $progname
19 $cfg_cli_cmd $cfg_wsdl $cfg_project
20 $cfg_user_username $cfg_user_password
21 $cfg_member_username $cfg_member_password
22 $cfg_tracker $cfg_tracker_id $cfg_bug_id $addeed $cfg_file_id
25 require "$dirname/test.config";
27 use Test::Simple tests => 5;
29 use File::Temp qw/ tempfile tempdir /;
30 use File::Path qw/ rmtree /;
34 my ($tempdir) = tempdir(CLEANUP => 1);
35 my ($fh, $tempfile) = tempfile();
39 $ENV{'GFORGE_WSDL'} = $cfg_wsdl;
41 # Test login identified access
42 system("$cfg_cli_cmd login '--username=$cfg_user_username' '--password=$cfg_user_password' ");
44 ok( !$? , "Login with a good password");
46 system("date > file");
47 system("$cfg_cli_cmd tracker addfile '--type=$cfg_tracker_id' '--project=$cfg_project' '--id=$cfg_bug_id' '--file=./file' '--description=test add file for $cfg_bug_id'");
49 ok( !$? , "Add file for $cfg_bug_id");
51 # lister attached file(s)
52 system("$cfg_cli_cmd tracker files '--type=$cfg_tracker_id' '--project=$cfg_project' '--id=$cfg_bug_id' ");
53 ok( !$? , "List attached file(s) of tracker $cfg_tracker_id");
55 system("rm /tmp/output");
56 # Download attached file(s)
57 system("$cfg_cli_cmd tracker getfile '--type=$cfg_tracker_id' '--file_id=$cfg_file_id' '--project=$cfg_project' '--id=$cfg_bug_id' '--output=/tmp/output'");
58 ok( !$? , "Get attached file(s) of tracker $cfg_tracker_id");
60 system("$cfg_cli_cmd logout");
64 rmtree($tempdir, 0, 0);