[cl-soap-cvs] CVS update: cl-soap/test/test-xsd.lisp 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-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