set up scopes-tst9 (testing client) package
This commit is contained in:
parent
40b8a0791b
commit
e528d96e09
3 changed files with 24 additions and 1 deletions
|
@ -14,7 +14,7 @@
|
|||
|
||||
(in-package :scopes/app/demo)
|
||||
|
||||
(defun main()
|
||||
(defun main ()
|
||||
(let ((config-path (util:relative-path "config" "etc")))
|
||||
(format t "~%Hello World.~%config-path: ~s~%" config-path)
|
||||
(load config-path))
|
||||
|
|
10
app/tst9/main.lisp
Normal file
10
app/tst9/main.lisp
Normal file
|
@ -0,0 +1,10 @@
|
|||
;;;; cl-scopes/app/tst9/main - main program for the tst9 testing client
|
||||
|
||||
(defpackage :scopes/app/tst9
|
||||
(:use :common-lisp)
|
||||
(:local-nicknames (:client :scopes/web/client))
|
||||
(:export #:main))
|
||||
|
||||
(in-package :scopes/app/tst9)
|
||||
|
||||
(defun main ())
|
13
app/tst9/scopes-tst9.asd
Normal file
13
app/tst9/scopes-tst9.asd
Normal file
|
@ -0,0 +1,13 @@
|
|||
(in-package #:asdf-user)
|
||||
|
||||
(defsystem :scopes-tst9
|
||||
:author "cyberconcepts.org Team <team@cyberconcepts.org>"
|
||||
:license "MIT"
|
||||
:version "0.0.1"
|
||||
:homepage "https://www.cyberconcepts.org"
|
||||
:description "testing client for web applications / server systems"
|
||||
:depends-on (:scopes :scopes-auth)
|
||||
:components ((:file "main"))
|
||||
:build-operation "program-op"
|
||||
:build-pathname "bin/tst9"
|
||||
:entry-point "scopes/app/tst9:main")
|
Loading…
Add table
Reference in a new issue