factor/basis/channels/channels-tests.factor

45 lines
934 B
Factor
Raw Normal View History

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.
!
USING: kernel tools.test math channels channels.private
2007-10-06 13:37:11 -04:00
sequences threads sorting ;
2008-03-01 17:00:45 -05:00
IN: channels.tests
2007-09-20 18:09:08 -04:00
{ V{ 10 } } [
V{ } clone <channel>
[ from swap push ] in-thread
10 swap to
2007-09-20 18:09:08 -04:00
] unit-test
{ 20 } [
<channel>
[ 20 swap to ] in-thread
from
2007-09-20 18:09:08 -04:00
] unit-test
2008-07-16 02:03:41 -04:00
{ { 1 2 3 4 } } [
V{ } clone <channel>
[ from swap push ] in-thread
[ from swap push ] in-thread
[ from swap push ] in-thread
[ from swap push ] in-thread
4 over to
2 over to
1 over to
3 swap to
natural-sort
2007-09-20 18:09:08 -04:00
] unit-test
2008-07-16 02:03:41 -04:00
{ { 1 2 4 9 } } [
V{ } clone <channel>
[ 4 swap to ] in-thread
[ 2 swap to ] in-thread
[ 1 swap to ] in-thread
[ 9 swap to ] in-thread
2dup from swap push
2dup from swap push
2dup from swap push
dupd from swap push
natural-sort
2007-09-20 18:09:08 -04:00
] unit-test