From 806e5d19d9a43e832e3e0db06ac881c5bc22a3cb Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sun, 7 Oct 2007 18:15:48 -0400 Subject: [PATCH] Add unit test --- core/sbufs/sbufs-tests.factor | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/core/sbufs/sbufs-tests.factor b/core/sbufs/sbufs-tests.factor index c0b03b7076..b8d5b3e3fc 100644 --- a/core/sbufs/sbufs-tests.factor +++ b/core/sbufs/sbufs-tests.factor @@ -1,5 +1,5 @@ USING: kernel math namespaces sequences sbufs strings -tools.test ; +tools.test classes ; IN: temporary [ 5 ] [ "Hello" >sbuf length ] unit-test @@ -18,3 +18,7 @@ IN: temporary ] unit-test [ SBUF" x" ] [ 1 CHAR: x >bignum over push ] unit-test + +[ fixnum ] [ 1 >bignum SBUF" " new length class ] unit-test + +[ fixnum ] [ 1 >bignum [ ] SBUF" " map-as length class ] unit-test