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

[Sven Van Caekenberghe]

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

Modified Files:
	test-google-adwords.lisp test-xsd.lisp 
Log Message:
added a solution to the 'subtype' problem: using a special purpose member called xsi:|type| to indicate a concrete subtype for abstract types

Date: Thu Oct  6 13:09:41 2005
Author: scaekenberghe

Index: cl-soap/test/test-google-adwords.lisp
diff -u cl-soap/test/test-google-adwords.lisp:1.13 cl-soap/test/test-google-adwords.lisp:1.14
--- cl-soap/test/test-google-adwords.lisp:1.13	Fri Sep 30 19:12:20 2005
+++ cl-soap/test/test-google-adwords.lisp	Thu Oct  6 13:09:40 2005
@@ -1,6 +1,6 @@
 ;;;; -*- mode: lisp -*-
 ;;;;
-;;;; $Id: test-google-adwords.lisp,v 1.13 2005/09/30 17:12:20 scaekenberghe Exp $
+;;;; $Id: test-google-adwords.lisp,v 1.14 2005/10/06 11:09:40 scaekenberghe Exp $
 ;;;;
 ;;;; Some tests on the Google AdWords API (not publically available)
 ;;;;
@@ -77,6 +77,8 @@
                   :input `("getMethodCost" ("service" ,service "method" ,method "date" ,date))
                   :headers (make-google-headers)))
 
+#+nil (get-method-cost "InfoService" "getMethodCost")
+
 (defun get-unit-count (&optional (start-date (ut)) (end-date start-date))
   (wsdl-soap-call (wsdl-cache-get "https://adwords.google.com:443/api/adwords/v2/InfoService?wsdl")
                   "getUnitCount"
@@ -102,6 +104,8 @@
                                      keywords)))
                   :headers (make-google-headers)))
 
+#+nil (estimate-keyword-list '(("flowers" "Broad" 50000) ("trees" "Broad" 50000)))
+ 
 (defun get-all-adgroups (campaign-id)
   (wsdl-soap-call (wsdl-cache-get "https://adwords.google.com:443/api/adwords/v2/AdGroupService?wsdl")
                   "getAllAdGroups"


Index: cl-soap/test/test-xsd.lisp
diff -u cl-soap/test/test-xsd.lisp:1.3 cl-soap/test/test-xsd.lisp:1.4
--- cl-soap/test/test-xsd.lisp:1.3	Fri Sep 30 21:57:20 2005
+++ cl-soap/test/test-xsd.lisp	Thu Oct  6 13:09:41 2005
@@ -1,6 +1,6 @@
 ;;;; -*- mode: lisp -*-
 ;;;;
-;;;; $Id: test-xsd.lisp,v 1.3 2005/09/30 19:57:20 scaekenberghe Exp $
+;;;; $Id: test-xsd.lisp,v 1.4 2005/10/06 11:09:41 scaekenberghe Exp $
 ;;;;
 ;;;; Some (internal) test on the implementatin of the XML Schema Definition
 ;;;;
@@ -139,6 +139,7 @@
                               '(("flowers" "Broad" 50000) ("tree" "Broad" 100000)))))))
     (bind-xsd-template template
                        binding
+                       schema
                        *google-adwords-ns*)))
 
 (defun test-2 ()
@@ -160,5 +161,23 @@
     (resolve-xsd-template template
                           (list lxml)
                           *google-adwords-ns*)))
+
+(defun test-3 ()
+  (let* ((schema (get-xml-schema-definition 
+                  (wsdl-cache-get "https://adwords.google.com:443/api/adwords/v2/ReportService?wsdl")))
+         (template (generate-xsd-template "scheduleReportJob" schema))
+         (binding `("scheduleReportJob"
+                    ("job"
+                     (xsi:|type| "UrlReportJob"
+                      "name" "test123"
+                      "startDate" ,(ut)
+                      "endDate" ,(ut)
+                      "clientAccounts" (100 200)
+                      "adWordsType" "SearchOnly"
+                      "campaigns" (101 201))))))
+    (bind-xsd-template template
+                       binding
+                       schema
+                       *google-adwords-ns*)))
 
 ;;;; eof