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

Modified Files: test-google-adwords.lisp Log Message: incorporated wsdl caching to main code

Date: Mon Sep 26 13:14:56 2005 Author: scaekenberghe

Index: cl-soap/test/test-google-adwords.lisp diff -u cl-soap/test/test-google-adwords.lisp:1.8 cl-soap/test/test-google-adwords.lisp:1.9 --- cl-soap/test/test-google-adwords.lisp:1.8 Fri Sep 23 23:33:06 2005 +++ cl-soap/test/test-google-adwords.lisp Mon Sep 26 13:14:56 2005 @@ -1,6 +1,6 @@ ;;;; -*- mode: lisp -*- ;;;; -;;;; $Id: test-google-adwords.lisp,v 1.8 2005/09/23 21:33:06 scaekenberghe Exp $ +;;;; $Id: test-google-adwords.lisp,v 1.9 2005/09/26 11:14:56 scaekenberghe Exp $ ;;;; ;;;; Some test on the Google AdWords API (not publically available) ;;;; @@ -58,14 +58,6 @@

(defun parse-all-wsdl () (mapcar #'parse-wsdl-url *google-adwords-api-wsdl-urls*)) - -(defvar *wsdl-cache* (make-hash-table :test #'equal)) - -(defun wsdl-cache-get (url) - (let ((cached (gethash url *wsdl-cache*))) - (if cached - cached - (setf (gethash url *wsdl-cache*) (parse-wsdl-url url)))))

;;; some test calls