blitz-forge/tests/PointerTest.bb at develop · RydeTec/blitz-forge · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Strict
EnableGC

Test testPointers()
    Local bank.BBBank = CreateBank( 4 )
    Local bank_ptr_1.BBPointer = Ptr bank
    Local bank_ptr_2@ = Ptr bank
    Local bank_ptr_3@ = bank_ptr_1
    Local bank_ptr_4 = Int bank_ptr_3
    Local bank_ptr_5@ = Ptr bank_ptr_4

    ; BankSize(bank_ptr_4) should fail type conversion along with any use of ptr_4 as a pointer

    Assert(BankSize(bank) = BankSize(bank_ptr_1) And BankSize(bank) = BankSize(bank_ptr_2) And BankSize(bank) = BankSize(bank_ptr_3) And BankSize(bank) = BankSize(bank_ptr_5))

    ResizeBank bank, 8
    Assert(BankSize(bank) = BankSize(bank_ptr_1) And BankSize(bank) = BankSize(bank_ptr_2) And BankSize(bank) = BankSize(bank_ptr_3) And BankSize(bank) = BankSize(bank_ptr_5))

    ResizeBank bank_ptr_1, 16
    Assert(BankSize(bank) = BankSize(bank_ptr_1) And BankSize(bank) = BankSize(bank_ptr_2) And BankSize(bank) = BankSize(bank_ptr_3) And BankSize(bank) = BankSize(bank_ptr_5))

    ResizeBank bank_ptr_2, 32
    Assert(BankSize(bank) = BankSize(bank_ptr_1) And BankSize(bank) = BankSize(bank_ptr_2) And BankSize(bank) = BankSize(bank_ptr_3) And BankSize(bank) = BankSize(bank_ptr_5))

    ResizeBank bank_ptr_3, 64
    Assert(BankSize(bank) = BankSize(bank_ptr_1) And BankSize(bank) = BankSize(bank_ptr_2) And BankSize(bank) = BankSize(bank_ptr_3) And BankSize(bank) = BankSize(bank_ptr_5))

    ResizeBank bank_ptr_5, 256
    Assert(BankSize(bank) = BankSize(bank_ptr_1) And BankSize(bank) = BankSize(bank_ptr_2) And BankSize(bank) = BankSize(bank_ptr_3) And BankSize(bank) = BankSize(bank_ptr_5))
End Test