Update of /project/cl-soap/cvsroot/cl-soap/test In directory common-lisp.net:/tmp/cvs-serv9362/test
Modified Files: test-xsd.lisp Log Message: removed some obsolete tests
Date: Fri Sep 30 21:57:20 2005 Author: scaekenberghe
Index: cl-soap/test/test-xsd.lisp diff -u cl-soap/test/test-xsd.lisp:1.2 cl-soap/test/test-xsd.lisp:1.3 --- cl-soap/test/test-xsd.lisp:1.2 Fri Sep 30 19:12:20 2005 +++ cl-soap/test/test-xsd.lisp Fri Sep 30 21:57:20 2005 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: test-xsd.lisp,v 1.2 2005/09/30 17:12:20 scaekenberghe Exp $ +;;;; $Id: test-xsd.lisp,v 1.3 2005/09/30 19:57:20 scaekenberghe Exp $ ;;;; ;;;; Some (internal) test on the implementatin of the XML Schema Definition ;;;; @@ -113,34 +113,6 @@ *google-adwords-ns*)))
(let ((schema (get-xml-schema-definition - (wsdl-cache-get "https://adwords.google.com:443/api/adwords/v2/CampaignService?wsdl"))) - (binding '("id" - 5631435 - "name" - "Campaign #1" - "status" - "Active" - "startDate" - 3335857874 - "endDate" - 3502857599 - "dailyBudget" - 1000000 - "optInSearchNetwork" - T - "optInContentNetwork" - T - "languageTargeting" - (("languages" "en") ("languages" "nl")) - "geoTargeting" - (("countries" "BE") ("countries" "NL"))))) - (pprint (bind-type "Campaign" - binding - nil - schema - *google-adwords-ns*))) - -(let ((schema (get-xml-schema-definition (wsdl-cache-get"https://adwords.google.com:443/api/adwords/v2/TrafficEstimatorService?wsdl"))) (binding `("estimateKeywordList" ("keywordRequests" @@ -153,15 +125,6 @@ binding schema *google-adwords-ns*))) - -(let ((schema (get-xml-schema-definition - (wsdl-cache-get"https://adwords.google.com:443/api/adwords/v2/TrafficEstimatorService?wsdl"))) - (binding '("text" "flowers" "type" "Broad" "maxCpc" 50000))) - (pprint (bind-type "KeywordRequest" - binding - nil - schema - *google-adwords-ns*)))
(defun test-1 () (let* ((schema (get-xml-schema-definition