Fix store unit tests

release
Slava Pestov 2007-12-10 03:46:48 -05:00
parent 2059f6e9a4
commit 77ead806e0
2 changed files with 11 additions and 17 deletions

View File

@ -4,8 +4,6 @@ IN: temporary
SYMBOL: store
SYMBOL: foo
SYMBOL: bar
: the-store ( -- path )
"store-test.store" resource-path ;
@ -14,28 +12,24 @@ SYMBOL: bar
[ the-store delete-file ] catch drop ;
: load-the-store ( -- )
the-store load-store store set ;
the-store load-store store set-global ;
: save-the-store ( -- )
store get save-store ;
store save-store ;
delete-the-store
the-store load-store store set
load-the-store
[ f ] [ foo store get store-data at ] unit-test
[ f ] [ foo store get-persistent ] unit-test
[ ] [ 100 foo store get store-variable ] unit-test
USE: prettyprint
store get-global store-data .
[ ] [ 100 foo store set-persistent ] unit-test
[ ] [ save-the-store ] unit-test
[ 100 ] [ foo store get store-data at ] unit-test
1000 foo set
[ ] [ save-the-store ] unit-test
[ ] [ load-the-store ] unit-test
[ 1000 ] [ foo store get store-data at ] unit-test
[ 100 ] [ foo store get-persistent ] unit-test
delete-the-store
f store set-global

View File

@ -27,7 +27,7 @@ C: <store> store
get-global store-data at ;
: set-persistent ( value key store -- )
get-global [ store-data set-at ] keep save-store ;
[ get-global store-data set-at ] keep save-store ;
: init-persistent ( value key store -- )
2dup get-persistent [ 3drop ] [ set-persistent ] if ;