cl-ipp

commit 028e82efab7ca13a3f67278016b6338e12736805
parent 2371059101830718d88370665d20319a82a28b60
Author: Tomas Hlavaty <tom@logand.com>
Date:   Mon, 12 Aug 2013 23:45:26 +0200

package :ipp.wget.test introduced

Diffstat:
M
ipp.lisp
 | 
21
++++++++++++++-------

1 file changed, 14 insertions(+), 7 deletions(-)
diff --git a/ipp.lisp b/ipp.lisp
@@ -844,29 +844,35 @@
         :response-file response-file
         :content-type content-type))
 
+(defpackage :ipp.wget.test
+  (:use :cl))
+
+(in-package :ipp.wget.test)
+
 #+nil
-(ipp::cups-get-default 'ipp-client
+(ipp::cups-get-default 'ipp.wget:ipp-client
                        "http://localhost:631/printers/Virtual_PDF_Printer"
                        "request2.dat"
                        "response2.dat"
                        314)
 
 #+nil
-(ipp::cups-get-printers 'ipp-client
+(ipp::cups-get-printers 'ipp.wget:ipp-client
                         "http://localhost:631/printers/Virtual_PDF_Printer"
                         "request2.dat"
                         "response2.dat"
                         314)
 
-;;(ipp:list-printers 'ipp-client "http://localhost:631/printers/" "printers.html")
+;;(ipp:list-printers 'ipp.wget:ipp-client "http://localhost:631/printers/" "printers.html")
 
+#+nil
 (let ((p (ipp:make-printer
-          'ipp-client
+          'ipp.wget:ipp-client
           "http://localhost:631/printers/Virtual_PDF_Printer"
           "request2.dat"
           "response2.dat"
           314)))
-  (ipp:get-printer-attributes p)
+  ;;(ipp:get-printer-attributes p)
   ;;(ipp:get-printer-attributes p :limit 2)
   ;;(ipp:get-printer-attributes p requested-attributes '(:all))
   ;;TODO (ipp:get-printer-attributes p requested-attributes '(:printer-description))
@@ -884,12 +890,13 @@
   ;;(ipp:get-jobs p :requested-attributes '(:job-description))
   ;;(ipp:get-jobs p :requested-attributes '(:job-id :job-description))
   ;;(ipp:get-jobs p :requested-attributes '(:all))
-  ;;(ipp:print-job p "test.txt" :ipp-attribute-fidelity nil :copies 2 :sides "two-sided-long-edge")
+  (ipp:print-job p "test.txt" :ipp-attribute-fidelity nil :copies 2 :sides "two-sided-long-edge") ;; TODO create job object?
   ;;(ipp:validate-job p :ipp-attribute-fidelity nil :copies 2 :sides "two-sided-long-edge")
   )
 
+#+nil
 (let ((x (ipp:make-job
-          'ipp-client
+          'ipp.wget:ipp-client
           "http://localhost:631/printers/Virtual_PDF_Printer"
           "request2.dat"
           "response2.dat"