2007-09-20 18:09:08 -04:00
|
|
|
! Copyright (C) 2005 Chris Double. All Rights Reserved.
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
!
|
2007-10-06 13:37:11 -04:00
|
|
|
USING: kernel tools.test math assocs channels channels.remote
|
|
|
|
channels.remote.private ;
|
2008-03-01 17:00:45 -05:00
|
|
|
IN: channels.remote.tests
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
{ t } [
|
|
|
|
remote-channels assoc?
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
{ t f } [
|
|
|
|
<channel> publish [
|
|
|
|
get-channel channel?
|
2015-07-02 13:34:01 -04:00
|
|
|
] keep
|
2007-09-20 18:09:08 -04:00
|
|
|
[ unpublish ] keep
|
|
|
|
get-channel
|
|
|
|
] unit-test
|