retroforth/tests/malloc.retro

78 lines
1.5 KiB
Forth
Raw Permalink Normal View History

# Allocator Tests
## Test Setup / Helpers
```
hex
:print s:put nl ;
:n:print n:put nl ;
:double:print n:put n:put nl ;
```
## Test 1: `mem:alloc`
Attempt to allocate 32 bytes of memory and assign it to the const `region1`:
```
'===TEST1:_mem:alloc print
'Allocating... print
#32 mem:alloc
'Storing_to_`region1`... print
'region1 double:const
'New_memory_region_allocated_at print
region1 double:print
'===OK print nl nl
```
## Test 2: `mem:store`
```
'===TEST2:_mem:store print
'Creating_a_random_value... print
n:random
'Storing_to_`random-value`... print
'random-value const
'New_random_value_is: print
random-value n:print
'Storing_value_to_`region1`... print
region1 random-value mem:store
region1 #8 + random-value mem:store
'===OK print nl nl
```
## Test 3: `mem:fetch`
```
'===TEST3:_mem:fetch print
'Expect_ s:put 'to_contain_ s:put random-value n:put nl
'Actual_value:_____ s:put region1 mem:fetch n:put nl
'Calculating_memory_offset_should_not_segfault...
region1 #8 + mem:fetch
'Contents_of_(region1_+_1)_=_ s:put n:put nl
'===OK print nl nl
```
## Test 4: `mem:resize`
```
'===TEST4:_mem:resize print
'Resizing_`region1`_to_64_bytes... print
region1 #64 mem:resize
'Storing_to_`region2`... print
'region2 double:const
'New_region_address:_ s:put region2 double:print
'Old_region_address:_ s:put region1 double:print
'===OK print nl nl
```
## Test 5: Read/Write to resized region
```
'Region2_contains: print
region2 mem:fetch n:put nl
'Should_equal: print
random-value n:print nl
```
## Test 5: `mem:free`