[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-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)