set up scopes-tst9 (testing client) package

This commit is contained in:
Helmut Merz 2025-04-21 22:51:18 +02:00
parent 40b8a0791b
commit e528d96e09
3 changed files with 24 additions and 1 deletions

View file

@ -14,7 +14,7 @@
(in-package :scopes/app/demo) (in-package :scopes/app/demo)
(defun main() (defun main ()
(let ((config-path (util:relative-path "config" "etc"))) (let ((config-path (util:relative-path "config" "etc")))
(format t "~%Hello World.~%config-path: ~s~%" config-path) (format t "~%Hello World.~%config-path: ~s~%" config-path)
(load config-path)) (load config-path))

10
app/tst9/main.lisp Normal file
View 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
View 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")