From 830d993366970ecbd8b2e173008ea8551403ea8a Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 7 May 2008 05:47:14 -0500
Subject: [PATCH] Fix flags unit tests
---
extra/concurrency/flags/flags-tests.factor | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/extra/concurrency/flags/flags-tests.factor b/extra/concurrency/flags/flags-tests.factor
index d13c474554..9d3f6de98c 100755
--- a/extra/concurrency/flags/flags-tests.factor
+++ b/extra/concurrency/flags/flags-tests.factor
@@ -1,12 +1,12 @@
IN: concurrency.flags.tests
USING: tools.test concurrency.flags concurrency.combinators
-kernel threads locals ;
+kernel threads locals accessors ;
:: flag-test-1 ( -- )
[let | f [ <flag> ] |
[ f raise-flag ] "Flag test" spawn drop
f lower-flag
- f flag-value?
+ f value>>
] ;
[ f ] [ flag-test-1 ] unit-test
@@ -15,7 +15,7 @@ kernel threads locals ;
[let | f [ <flag> ] |
[ 1000 sleep f raise-flag ] "Flag test" spawn drop
f lower-flag
- f flag-value?
+ f value>>
] ;
[ f ] [ flag-test-2 ] unit-test
@@ -23,7 +23,7 @@ kernel threads locals ;
:: flag-test-3 ( -- )
[let | f [ <flag> ] |
f raise-flag
- f flag-value?
+ f value>>
] ;
[ t ] [ flag-test-3 ] unit-test
@@ -32,7 +32,7 @@ kernel threads locals ;
[let | f [ <flag> ] |
[ f raise-flag ] "Flag test" spawn drop
f wait-for-flag
- f flag-value?
+ f value>>
] ;
[ t ] [ flag-test-4 ] unit-test
@@ -41,7 +41,7 @@ kernel threads locals ;
[let | f [ <flag> ] |
[ 1000 sleep f raise-flag ] "Flag test" spawn drop
f wait-for-flag
- f flag-value?
+ f value>>
] ;
[ t ] [ flag-test-5 ] unit-test