Fix store unit tests

diff --git a/extra/store/store-tests.factor b/extra/store/store-tests.factor
index 97b39bcffd1bae8696a043c8bef49a901fd3d243..6f33d661017ce9c3ee5e28a2d2d5b2fca3dcab82 100644 (file)
--- a/extra/store/store-tests.factor
+++ b/extra/store/store-tests.factor
@@ -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
-
-[ f ] [ foo store get store-data at ] unit-test
+load-the-store
 
-[ ] [ 100 foo store get store-variable ] unit-test
+[ f ] [ foo store get-persistent ] unit-test
 
-[ ] [ save-the-store ] unit-test
+USE: prettyprint
+store get-global store-data .
 
-[ 100 ] [ foo store get store-data at ] unit-test
-
-1000 foo set
+[ ] [ 100 foo store set-persistent ] unit-test
 
 [ ] [ 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

diff --git a/extra/store/store.factor b/extra/store/store.factor
index 639b6d3fab4ba0b002fbd0d6e00fdb29cb9dbcd5..46b1a0956818f26db350ea264923ae3557f4bb70 100644 (file)
--- a/extra/store/store.factor
+++ b/extra/store/store.factor
@@ -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 ;