From 549b6050f585356fdead872d0980532a2c258e13 Mon Sep 17 00:00:00 2001 From: =?utf8?q?J=C3=A9r=C3=B4me=20Quelin?= Date: Wed, 29 Oct 2008 19:59:33 +0100 Subject: [PATCH] fix ip tests now that mycology revealed a bug --- t/1-classes/ip.t | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/t/1-classes/ip.t b/t/1-classes/ip.t index c539751..e3d4ecb 100644 --- a/t/1-classes/ip.t +++ b/t/1-classes/ip.t @@ -136,16 +136,17 @@ $ip->ss_transfer( 2 ); # move elems from soss to toss (enough). is( $ip->scount, 3 ); # toss = (18,16,15) is( $ip->soss_count, 4 ); # soss = (11,12,13,14) is( $ip->spop, 15 ); # toss = (18,16) -$ip->ss_create( -3 ); # create new toss, filled with zeroes. -is( $ip->scount, 3 ); # toss = (0,0,0) -is( $ip->soss_count, 2 ); # soss = (18,16) +$ip->ss_create( -3 ); # create new toss, fill soss with zeroes. +is( $ip->scount, 0 ); # toss = () +is( $ip->soss_count, 5 ); # soss = (18,16,0,0,0) is( $ip->ss_count, 2 ); -is( join("",$ip->ss_sizes), "324" ); -is( $ip->spop, 0 ); # toss = (0,0) +is( join("",$ip->ss_sizes), "054" ); +is( $ip->spop, 0 ); # toss = () +$ip->spush(0, 0); $ip->ss_transfer( -10 ); # move elems from toss to soss (not enough). is( $ip->scount, 0 ); # toss = () -is( $ip->soss_count, 12 ); # soss = (18,17,0,0,0,0,0,0,0,0,0,0) -$ip->soss_push( 15 ); # soss = (18,17,0,0,0,0,0,0,0,0,0,0,15) +is( $ip->soss_count, 15 ); # soss = (18,17,0,0,0,0,0,0,0,0,0,0,0,0) +$ip->soss_push( 15 ); # soss = (18,17,0,0,0,0,0,0,0,0,0,0,0,0,15) is( $ip->soss_pop, 15 ); # soss = (18,17,0,0,0,0,0,0,0,0,0,0) $ip->soss_clear; # soss = () is( $ip->soss_pop, 0, "soss_pop returns a 0 on empty soss" ); -- 2.11.4.GIT