Commit Diff

Commit:
115e7129c758baacd1c10907ea4e0db65f285559
From:
cage <cage@invalid>
Date:
Message:
- [regress-extra] fixed test file contents and removed useless variables (thanks op!).
Actions:
Patch | Tree
commit - cd1848c2809da5f3202dfc74634a10f7c29c9d3b
commit + 115e7129c758baacd1c10907ea4e0db65f285559
blob - 506342c62c223ffdfdcf1eb07df1aa754d93aa2a
blob + a846edd1978373473115ad5eb5c6fed9c356123c
--- regress/lisp/9p-test/tests/all-tests.lisp
+++ regress/lisp/9p-test/tests/all-tests.lisp
@@ -24,14 +24,6 @@
 
 (defparameter *port*               10564)
 
-(defparameter *remote-test-file*   "test-file") ; note: missing "/" is intentional
-
-(defparameter *remote-test-path*   "/test-file")
-
-(defparameter *remote-test-path-write*   "/dir/subdir/file/test-file-write")
-
-(defparameter *remote-test-path-contents* (format nil "qwertyuiopasdfghjklòàù è~%"))
-
 (alexandria:define-constant +remote-test-path-ovewrwrite-data+ "12" :test #'string=)
 
 (defun open-tls-socket (host port)
blob - 9f4b921c1f262f205737827dc4025273b665c959
blob + f60d1d96d99aee286466e8342a83bbed15872627
--- regress/lisp/9p-test/tests/kami-tests.lisp
+++ regress/lisp/9p-test/tests/kami-tests.lisp
@@ -17,25 +17,15 @@
 
 (in-package :kami-tests)
 
-(defsuite kami-suite (all-suite))
+(defparameter *remote-test-file*   "test-file") ; note: missing "/" is intentional
 
-(defparameter *client-certificate* nil)
+(defparameter *remote-test-path*   "/test-file")
 
-(defparameter *certificate-key*    nil)
+(defparameter *remote-test-path-write*   "/dir/subdir/test-file-write")
 
-(defparameter *host*               "localhost")
-
-(defparameter *port*               10564)
-
-(defparameter *remote-test-file*   "kami-test")
-
-(defparameter *remote-test-path*   "/kamid/regress/root/dir/subdir/file")
-
-(defparameter *remote-test-path-write*   "/kamid/regress/root/dir/subdir/test-file-write")
-
 (defparameter *remote-test-path-contents* (format nil "qwertyuiopasdfghjklòàù è~%"))
 
-(alexandria:define-constant +remote-test-path-ovewrwrite-data+ "12" :test #'string=)
+(defsuite kami-suite (all-suite))
 
 (defun start-non-tls-socket (host port)
   (usocket:socket-connect host
blob - e69de29bb2d1d6434b8b29ae775ad8c2e48c5391
blob + f14d06297f0769795c880f87912b321576e8d522
--- regress/root/test-file
+++ regress/root/test-file
@@ -0,0 +1 @@
+qwertyuiopasdfghjklòàù è