From 964549b22446e81198dbd3e4ef69b88011d915d5 Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Wed, 2 Jul 2008 10:19:31 -0500 Subject: [PATCH] bake: Add tests --- extra/bake/bake-tests.factor | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100644 extra/bake/bake-tests.factor diff --git a/extra/bake/bake-tests.factor b/extra/bake/bake-tests.factor new file mode 100644 index 0000000000..64329de92d --- /dev/null +++ b/extra/bake/bake-tests.factor @@ -0,0 +1,28 @@ + +USING: kernel tools.test bake ; + +IN: bake.tests + +! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +: unit-test* ( input output -- ) swap unit-test ; + +: must-be-t ( in -- ) [ t ] swap unit-test ; +: must-be-f ( in -- ) [ f ] swap unit-test ; + +! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +[ 10 20 30 `{ , , , } ] [ { 10 20 30 } ] unit-test* + +[ 10 20 30 `{ , { , } , } ] [ { 10 { 20 } 30 } ] unit-test* + +[ 10 { 20 21 22 } 30 `{ , , , } ] [ { 10 { 20 21 22 } 30 } ] unit-test* + +[ 10 { 20 21 22 } 30 `{ , @ , } ] [ { 10 20 21 22 30 } ] unit-test* + +[ { 1 2 3 } `{ @ } ] [ { 1 2 3 } ] unit-test* + +[ { 1 2 3 } { 4 5 6 } { 7 8 9 } `{ @ @ @ } ] +[ { 1 2 3 4 5 6 7 8 9 } ] +unit-test* +