basis/channels/remote/remote-tests.factor

   1 ! Copyright (C) 2005 Chris Double. All Rights Reserved.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 !
   4 USING: kernel tools.test math assocs channels channels.remote
   5 channels.remote.private ;
   6 IN: channels.remote.tests
   7
   8 { t } [
   9     remote-channels assoc?
  10 ] unit-test
  11
  12 { t f } [
  13     <channel> publish [
  14         get-channel channel?
  15     ] keep
  16     [ unpublish ] keep
  17     get-channel
  18 ] unit-test
  19