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

Modified Files: test-google-adwords.lisp Added Files: test-xsd.lisp Log Message: added basic support for XSD complexContent combined with an extension more test code

Date: Tue Sep 27 18:25:18 2005 Author: scaekenberghe

Index: cl-soap/test/test-google-adwords.lisp diff -u cl-soap/test/test-google-adwords.lisp:1.10 cl-soap/test/test-google-adwords.lisp:1.11 --- cl-soap/test/test-google-adwords.lisp:1.10 Tue Sep 27 07:39:34 2005 +++ cl-soap/test/test-google-adwords.lisp Tue Sep 27 18:25:18 2005 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: test-google-adwords.lisp,v 1.10 2005/09/27 05:39:34 scaekenberghe Exp $ +;;;; $Id: test-google-adwords.lisp,v 1.11 2005/09/27 16:25:18 scaekenberghe Exp $ ;;;; ;;;; Some test on the Google AdWords API (not publically available) ;;;; @@ -166,7 +166,6 @@ (values result headers)))

(defun get-all-adwords-campaigns (client-email) - ;; to be debugged !! (wsdl-soap-call (wsdl-cache-get "https://adwords.google.com:443/api/adwords/v2/CampaignService?wsdl") "getAllAdWordsCampaigns" :input '("dummy" 1) @@ -235,5 +234,29 @@ "useragent" ,*google-adwords-user-agent* "token" ,*google-adwords-token* "clientEmail" ,*google-client-email*))) + +(defun add-campaign (client-email daily-budget status &key name language-targeting geo-targeting) + ;; to be completed + (wsdl-soap-call (wsdl-cache-get "https://adwords.google.com:443/api/adwords/v2/CampaignService?wsdl") + "addCampaign" + ;; input placeholder !! + :input `(,daily-budget ,status name ,name ,language-targeting ,geo-targeting) + :headers `("email" ,*google-adwords-email* + "password" ,*google-adwords-password* + "useragent" ,*google-adwords-user-agent* + "token" ,*google-adwords-token* + "clientEmail" ,client-email))) + +(defun schedule-report-job (client-email report-job) + ;; to be completed + (wsdl-soap-call (wsdl-cache-get "https://adwords.google.com:443/api/adwords/v2/ReportService?") + "scheduleReportJob" + ;; input placeholder !! + :input `(,report-job) + :headers `("email" ,*google-adwords-email* + "password" ,*google-adwords-password* + "useragent" ,*google-adwords-user-agent* + "token" ,*google-adwords-token* + "clientEmail" ,client-email)))

;;;; eof