[cl-soap-cvs] CVS update: cl-soap/test/test-google-adwords.lisp

[Sven Van Caekenberghe]

Update of /project/cl-soap/cvsroot/cl-soap/test
In directory common-lisp.net:/tmp/cvs-serv3520/test

Modified Files:
	test-google-adwords.lisp 
Log Message:
added get-all-adgroups

Date: Tue Sep 27 07:39:34 2005
Author: scaekenberghe

Index: cl-soap/test/test-google-adwords.lisp
diff -u cl-soap/test/test-google-adwords.lisp:1.9 cl-soap/test/test-google-adwords.lisp:1.10
--- cl-soap/test/test-google-adwords.lisp:1.9	Mon Sep 26 13:14:56 2005
+++ cl-soap/test/test-google-adwords.lisp	Tue Sep 27 07:39:34 2005
@@ -1,6 +1,6 @@
 ;;;; -*- mode: lisp -*-
 ;;;;
-;;;; $Id: test-google-adwords.lisp,v 1.9 2005/09/26 11:14:56 scaekenberghe Exp $
+;;;; $Id: test-google-adwords.lisp,v 1.10 2005/09/27 05:39:34 scaekenberghe Exp $
 ;;;;
 ;;;; Some test on the Google AdWords API (not publically available)
 ;;;;
@@ -223,6 +223,16 @@
                   :headers `("email" ,*google-adwords-email* 
                              "password" ,*google-adwords-password* 
                              "useragent" ,*google-adwords-user-agent* 
+                             "token" ,*google-adwords-token*
+                             "clientEmail" ,*google-client-email*)))
+
+(defun get-all-adgroups (campaign-id)
+  (wsdl-soap-call (wsdl-cache-get "https://adwords.google.com:443/api/adwords/v2/AdGroupService?wsdl")
+                  "getAllAdGroups"
+                  :input `("campaignID" ,campaign-id)
+                  :headers `("email" ,*google-adwords-email*
+                             "password" ,*google-adwords-password*
+                             "useragent" ,*google-adwords-user-agent*
                              "token" ,*google-adwords-token*
                              "clientEmail" ,*google-client-email*)))