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 USING: assocs channels channels.remote channels.remote.private
   4 kernel tools.test ;
   5
   6 { t } [
   7     remote-channels assoc?
   8 ] unit-test
   9
  10 { t f } [
  11     <channel> publish [
  12         get-channel channel?
  13     ] keep
  14     [ unpublish ] keep
  15     get-channel
  16 ] unit-test