Baguette
/
dodb
3
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Adapt scenario to new API.

draft
kimory 2022-10-18 22:44:37 +02:00
parent 9c110610ae
commit fb84d81075
1 changed files with 7 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/scenario.cl
View File

@ -1,31 +1,25 @@
(in-package :dodb)
;
; TEST SCENARIO
;
(defstruct vehicle name color (nb-of-lights 4))
(defstruct vehicle name color (nb_of_lights 4))
;(defparameter cars (db/new "vehicle" "./storage/cars/"))
; to launch the tests in RAM
(defparameter cars (db/new "vehicle" "/tmp/storage/cars/"))
(defparameter cars (db/new "/tmp/storage/cars/"))
(db/add cars (make-vehicle :name "Corvet" :color "Red"))
(db/add cars (make-vehicle :name "Ferrari" :color "Red"))
(db/add cars (make-vehicle :name "Deudeuch" :color "Beige"))
(db/add cars (make-vehicle :name "BMW" :color "Blue"))
(db/add cars (make-vehicle :name "Suzuki Wagon" :color "Blue" :nb_of_lights 6))
(db/new-index cars "name")
(db/new-partition cars "color")
(db/new-partition cars "nb_of_lights")
(db/add cars (make-vehicle :name "Suzuki Wagon" :color "Blue" :nb-of-lights 6))
(db/new-index cars "name" #'vehicle-name)
(db/new-partition cars "color" #'vehicle-color)
(db/new-partition cars "nb-of-lights" #'vehicle-nb-of-lights)
(format t "~&~S~&" cars)
(format t "db/get-by-index ~S~&" (db/get-by-index cars "name" "Corvet"))
(format t "db/get-by-partition red cars:~&")
(format t "db/get-by-partition red cars:~&")
(loop for car in (db/get-by-partition cars "color" "Red")
do (format t "- ~S~&" car))