diff --git a/test/allocate.4th b/test/allocate.4th index d9c214e..8407800 100644 --- a/test/allocate.4th +++ b/test/allocate.4th @@ -7,12 +7,10 @@ "Allocate large object (8 MiB)" HEADING 8 MB ALLOCATE TO LARGE-OBJECT LARGE-OBJECT 8 MB BL FILL - BUDDY-STATS EOL "Free large object" HEADING LARGE-OBJECT FREE NULL TO LARGE-OBJECT - BUDDY-STATS EOL "Allocate 1000 small objects (200 B)" HEADING 1000 0 DO @@ -20,14 +18,12 @@ LIST-HEAD OVER ! TO LIST-HEAD LOOP - BUDDY-STATS EOL "Free 1000 small objects" HEADING LIST-HEAD BEGIN ?DUP WHILE DUP @ SWAP FREE - REPEAT - BUDDY-STATS ; + REPEAT ; TEST diff --git a/test/allocate.exp b/test/allocate.exp index 412c87d..34b3f4f 100644 --- a/test/allocate.exp +++ b/test/allocate.exp @@ -1,12 +1,5 @@ * Allocate large object (8 MiB) -total 0 - * Free large object -total 0 - * Allocate 1000 small objects (200 B) -1x2048 1x4096 1x262144 1x524288 1x1048576 1x2097152 total 3938304 - * Free 1000 small objects -1x4194304 total 4194304 exit-code: 0 diff --git a/test/resize.4th b/test/resize.4th index 3679e0e..ddc057f 100644 --- a/test/resize.4th +++ b/test/resize.4th @@ -1,5 +1,5 @@ : STATUS ( obj-addr c-addr u -- obj-addr ) - TYPE ":\n " TYPE BUDDY-STATS " Value: " TYPE DUP @ . + TYPE ":\n Value: " TYPE DUP @ . "\n Object size: " TYPE DUP OBJECT-SIZE U. EOL EOL ; : TEST diff --git a/test/resize.exp b/test/resize.exp index f5508b6..9001377 100644 --- a/test/resize.exp +++ b/test/resize.exp @@ -1,35 +1,28 @@ Allocated 28 bytes: - 1x32 1x64 1x128 1x256 1x512 1x1024 1x2048 1x4096 1x8192 1x16384 1x32768 1x65536 1x131072 1x262144 1x524288 1x1048576 1x2097152 total 4194272 Value: 1234 Object size: 28 Resized to 33 bytes: - 1x64 1x128 1x256 1x512 1x1024 1x2048 1x4096 1x8192 1x16384 1x32768 1x65536 1x131072 1x262144 1x524288 1x1048576 1x2097152 total 4194240 Value: 1234 Object size: 60 Resized to 28 bytes: - 1x32 1x64 1x128 1x256 1x512 1x1024 1x2048 1x4096 1x8192 1x16384 1x32768 1x65536 1x131072 1x262144 1x524288 1x1048576 1x2097152 total 4194272 Value: 1234 Object size: 28 Resized to 256 KiB - 1 cell: - 1x262144 1x524288 1x1048576 1x2097152 total 3932160 Value: 1234 Object size: 262140 Resized to 32 bytes: - 1x64 1x128 1x256 1x512 1x1024 1x2048 1x4096 1x8192 1x16384 1x32768 1x65536 1x131072 1x262144 1x524288 1x1048576 1x2097152 total 4194240 Value: 1234 Object size: 60 Resized to 28 bytes: - 1x32 1x64 1x128 1x256 1x512 1x1024 1x2048 1x4096 1x8192 1x16384 1x32768 1x65536 1x131072 1x262144 1x524288 1x1048576 1x2097152 total 4194272 Value: 1234 Object size: 28 Resized to 4 bytes: - 1x32 1x64 1x128 1x256 1x512 1x1024 1x2048 1x4096 1x8192 1x16384 1x32768 1x65536 1x131072 1x262144 1x524288 1x1048576 1x2097152 total 4194272 Value: 1234 Object size: 28