Branch: Tag:

2004-02-23

2004-02-23 18:07:31 by Martin Nilsson <mani@lysator.liu.se>

BitBuffer tests

Rev: lib/modules/ADT.pmod/testsuite.in:1.11

1: - dnl $Id: testsuite.in,v 1.10 2003/12/01 19:48:17 nilsson Exp $ + dnl $Id: testsuite.in,v 1.11 2004/02/23 18:07:31 nilsson Exp $    -  + dnl - ADT.BitBuffer +  + test_do( add_constant( "B", ADT.BitBuffer() ) ) + test_eq( B->drain(), "" ) + test_eq( B->feed(""), B ) + test_eval_error( B->feed("\400") ) + test_eq( B->drain(), "" ) + test_eq( sizeof(B), 0 ) +  + test_eq( B->put(3,3), B ) + test_eq( sizeof(B), 3 ) + test_eq( B->get(2), 1 ) + test_eq( sizeof(B), 1 ) + test_eq( B->drain(), "" ) +  + test_eq( B->feed("foo"), B ) + test_eq( sizeof(B), 3*8+1 ) + test_eq( B->drain(), "\xb3""7\xb7" ) + test_eq( sizeof(B), 1 ) + dnl test_eq( B->put0(4), B ) + dnl test_eq( sizeof(B), 5 ) + dnl test_eq( B->put1(4), B ) + dnl test_eq( sizeof(B), 9 ) + dnl test_eq( B->get(1), 1 ) + dnl test_eq( B->drain(), "\17" ) + dnl test_eq( sizeof(B), 0 ) + dnl test_eq( B->drain(), "" ) +  + test_do( add_constant( "B" ) ) +  +    dnl - ADT.History      test_eq(sizeof(ADT.History(2)),0)