Update of /project/cl-soap/cvsroot/cl-soap/test In directory common-lisp.net:/tmp/cvs-serv2248/test Modified Files: test-google-adwords.lisp Log Message: made file loadable moved all manual calls to #+NIL indicated better which methods are supposed to work Date: Fri Sep 23 10:03:48 2005 Author: scaekenberghe Index: cl-soap/test/test-google-adwords.lisp diff -u cl-soap/test/test-google-adwords.lisp:1.6 cl-soap/test/test-google-adwords.lisp:1.7 --- cl-soap/test/test-google-adwords.lisp:1.6 Thu Sep 22 17:30:01 2005 +++ cl-soap/test/test-google-adwords.lisp Fri Sep 23 10:03:46 2005 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: test-google-adwords.lisp,v 1.6 2005/09/22 15:30:01 scaekenberghe Exp $ +;;;; $Id: test-google-adwords.lisp,v 1.7 2005/09/23 08:03:46 scaekenberghe Exp $ ;;;; ;;;; Some test on the Google AdWords API (not publically available) ;;;; @@ -17,7 +17,7 @@ (defvar *google-adwords-email*) (defvar *google-adwords-password*) -(defvar *google-adwords-user-agent) +(defvar *google-adwords-user-agent*) (defvar *google-adwords-token*) (defvar *google-client-email*) @@ -41,7 +41,8 @@ ;;; ****************************************************************** ;;; apparently there are different XML Schema Defintion namespace URIs -;;; Google is using (s-xml:register-namespace "http://www.w3.org/2001/XMLSchema" "xsd" :xsd) +;;; Google is using +(s-xml:register-namespace "http://www.w3.org/2001/XMLSchema" "xsd" :xsd) ;;; **************************************************************************************** (defparameter *google-adwords-api-wsdl-urls* @@ -68,6 +69,7 @@ ;;; some test calls +#+NIL (defun get-usage-quota-this-month () (multiple-value-bind (result headers) (soap-call (make-soap-end-point "https://adwords.google.com:443/api/adwords/v2/InfoService") @@ -84,7 +86,6 @@ (error "Expected a <getUsageQuotaThisMonthReturn> element"))) (error "Expected a <getUsageQuotaThisMonthResponse> element")))) -#+NIL (defun get-usage-quota-this-month () (wsdl-soap-call (wsdl-cache-get "https://adwords.google.com:443/api/adwords/v2/InfoService?wsdl") "getUsageQuotaThisMonth" @@ -94,6 +95,7 @@ "token" ,*google-adwords-token* "clientEmail" ,*google-client-email*))) +#+NIL (defun get-method-cost (service method &optional (date (ut))) (multiple-value-bind (result headers) (soap-call (make-soap-end-point "https://adwords.google.com:443/api/adwords/v2/InfoService") @@ -113,7 +115,6 @@ (error "Expected a <getMethodCostReturn> element"))) (error "Expected a <getMethodCostResponse> element")))) -#+NIL (defun get-method-cost (service method &optional (date (ut))) (wsdl-soap-call (wsdl-cache-get "https://adwords.google.com:443/api/adwords/v2/InfoService?wsdl") "getMethodCost" @@ -126,6 +127,7 @@ "token" ,*google-adwords-token* "clientEmail" ,*google-client-email*))) +#+NIL (defun get-operation-count (start-date &optional (end-date start-date))) (defun get-unit-count (&optional (start-date (ut)) (end-date start-date)) @@ -139,8 +141,10 @@ "token" ,*google-adwords-token* "clientEmail" ,*google-client-email*))) +#+NIL (defun get-unit-count-for-method (service method &optional (start-date (ut)) (end-date start-date))) +#+NIL (defun get-billing-address (client-email) (multiple-value-bind (result headers) (soap-call (make-soap-end-point "https://adwords.google.com:443/api/adwords/v2/AccountService") @@ -155,6 +159,7 @@ (values (rest result) headers) (error "Expected a <getBillingAddressResponse> element")))) +#+NIL (defun get-all-adwords-campaigns (client-email) (multiple-value-bind (result headers) (soap-call (make-soap-end-point "https://adwords.google.com:443/api/adwords/v2/CampaignService") @@ -169,6 +174,7 @@ (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) @@ -178,6 +184,7 @@ "token" ,*google-adwords-token* "clientEmail" ,client-email))) +#+NIL (defun get-campaign (id client-email) (multiple-value-bind (result headers) (soap-call (make-soap-end-point "https://adwords.google.com:443/api/adwords/v2/CampaignService") @@ -191,6 +198,7 @@ :envelope-attributes `(:|xmlns| ,+google-adwords-ns-uri+)) (values result headers))) +#+NIL (defun estimate-keyword-list (keywords) "((<text> <type> <max-cpc>)*) where type is Broad|Phrase|Exact" (multiple-value-bind (result headers)