From c2e27fe6dc7c004c1392b532f2278314c0695965 Mon Sep 17 00:00:00 2001 From: Helmut Merz Date: Sun, 5 May 2024 08:32:54 +0200 Subject: [PATCH] work in progress: storage/tracking --- storage/storage.lisp | 2 +- storage/tracking.lisp | 6 ++++-- test/test-storage.lisp | 6 +++++- 3 files changed, 10 insertions(+), 4 deletions(-) diff --git a/storage/storage.lisp b/storage/storage.lisp index cdcc19a..2d1bad4 100644 --- a/storage/storage.lisp +++ b/storage/storage.lisp @@ -5,7 +5,7 @@ (defpackage :scopes/storage (:use :common-lisp) (:export #:query - #:track)) + #:track #:time-stamp #:data)) (in-package :scopes/storage) diff --git a/storage/tracking.lisp b/storage/tracking.lisp index 11d56e3..9cebde9 100644 --- a/storage/tracking.lisp +++ b/storage/tracking.lisp @@ -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))) diff --git a/test/test-storage.lisp b/test/test-storage.lisp index 1a73bef..82d9c99 100644 --- a/test/test-storage.lisp +++ b/test/test-storage.lisp @@ -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)))