"Inspired by 
 http://code.google.com/p/support/source/browse/trunk/scripts/googlecode_upload.py"

| filepath projectname username password summary labels client |

filepath := '/tmp/foo.txt'.
projectname := 'pharo'.
username := 'sven.van.caekenberghe'.
password := 's46K48jc0kn1'.
summary := 'Testing uploading a file to a Google project'.
labels := #( 'Cool' 'Cooler' 'Coolest').

(client := ZnClient new)
	systemPolicy;
	beOneShot;
	https;
	host: projectname, '.googlecode.com';
	username: username password: password;
	multiPartFormDataEntity;
	addPart: (ZnMimePart fieldName: 'filename' fileNamed: filepath);
	addPart: (ZnMimePart fieldName: 'summary' value: summary).
labels do: [ :each |
	client addPart: (ZnMimePart fieldName: 'label' value: each) ].
client post.
client response location.