cco/cl-scopes
3
0
Fork 0
Code Issues 1 Pull requests Releases Wiki Activity Actions

work in progress: storage/tracking

Browse source
This commit is contained in:
Helmut Merz 2024-05-05 08:32:54 +02:00
parent 4036a03882
commit c2e27fe6dc
3 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
storage/storage.lisp
View file

@ -5,7 +5,7 @@
(defpackage :scopes/storage
(:use :common-lisp)
(:export #:query
#:track))
#:track #:time-stamp #:data))
(in-package :scopes/storage)

6
storage/tracking.lisp
View file

@ -5,6 +5,8 @@
(in-package :scopes/storage)
(defclass track () (
(taskid :initarg :taskid)
(username :initarg :username)))
(head)
(time-stamp :reader time-stamp :accessor time-stamp!)
(data :accessor data)
(container :initarg :container :initform nil)))

6
test/test-storage.lisp
View file

@ -12,6 +12,10 @@
(defun run ()
(let ((tst (sct:test-suite)))
(test-track tst)
(sct:result tst)))
(defun test-track (tst)
(let ((tr (make-instance 'scs:track)))
;(setf (scs:data tr) nil)
(sct:assert-eq tst (scs:data tr) nil)))