[cl-soap-cvs] CVS update: 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-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