factor/basis/channels/channels-tests.factor

42 lines
891 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: channels kernel sequences sorting threads tools.test ;
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