diff options
| author | David Thompson <dthompson2@worcester.edu> | 2024-11-23 18:50:57 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2024-11-23 18:51:22 -0500 |
| commit | 94c82c7fb1ef4533d0e749ea4d9796e26604275b (patch) | |
| tree | ae060a958d018574e4d61142bfe881820176d760 /tests | |
| parent | faca7af5916d07a342d0c6076c2ea6a5610a81a9 (diff) | |
Test -> packing notation.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/test-bstruct.scm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/tests/test-bstruct.scm b/tests/test-bstruct.scm index 7990ab2..18cb13a 100644 --- a/tests/test-bstruct.scm +++ b/tests/test-bstruct.scm @@ -225,8 +225,7 @@ (let ((bv (f32vector 0 0 0 0))) (bstruct-pack! <vertex> bv 0 (xy (bstruct-alloc <vec2> (x 1) (y 2))) - ((uv x) 3) - ((uv y) 4)) + (-> uv (x 3) (y 4))) bv)) (test-equal (f32vector 1 0 0 0 0 1 0 0 @@ -241,11 +240,12 @@ (test-equal (u8vector 1 2 0 0 3 0 0 0 4 0 0 0) (let ((bv (make-bytevector (bstruct-sizeof <event>)))) (bstruct-pack! <event> bv 0 - ((mouse-button type) 1) - ((mouse-button button) 2) - ((mouse-button state) 0) - ((mouse-button x) 3) - ((mouse-button y) 4)) + (-> mouse-button + (type 1) + (button 2) + (state 0) + (x 3) + (y 4))) bv)) (test-equal (u8vector 232 7 0 0 123 1 0 0) (let ((bv (make-bytevector (bstruct-sizeof <date>)))) |