diff options
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>)))) |