steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

memcached: better to not duplicate with-memcached.

db4
John Benediktsson 2011-09-06 10:21:24 -07:00
parent b6bd35fd4b
commit 57c5420e05
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/memcached/memcached-tests.factor
View File

@ -6,14 +6,14 @@ io.timeouts kernel math math.functions memcached
memcached.private namespaces present sequences sorting system memcached.private namespaces present sequences sorting system
threads tools.test ; threads tools.test ;
QUALIFIED: memcached
IN: memcached.tests IN: memcached.tests
! Use a version of with-memcached that sets a timeout ! Use a version of with-memcached that sets a timeout
: with-memcached ( quot -- ) : with-memcached ( quot -- )
memcached-server get-global binary [ [ 5 seconds input-stream get set-timeout ] prepose
5 seconds input-stream get set-timeout memcached:with-memcached ; inline
call
] with-client ; inline
<PRIVATE <PRIVATE