commit 9b8dde8cea8c92337977a28c234be692911b7d74 parent f5f3a967b7553515f82429f00f5f27cd932d9bd2 Author: Virgil Dupras <hsoft@hardcoded.net> Date: Wed, 5 Jul 2023 20:22:46 -0400 tests/lib/drive: alignment discipline The test runs fine under QEMU ARM, but on a real RPi. Diffstat:
| M | fs/tests/lib/drive.fs | | | 12 | ++++++------ |
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/fs/tests/lib/drive.fs b/fs/tests/lib/drive.fs @@ -6,16 +6,16 @@ testbegin 4 const TOTSEC $200 TOTSEC RAMDrive :new structbind RAMDrive mydrv $deadbeef mydrv :buf( ! -$cafebabe mydrv :buf( $22a + ! +$cafebabe mydrv :buf( $22c + ! mydrv :self SectorWindow :new structbind SectorWindow secwin 0 secwin :seek $200 #eq @ $deadbeef #eq -$22a secwin :seek 0 #eq \ outside window +$22c secwin :seek 0 #eq \ outside window 0 2 secwin :move -$22a secwin :seek $200 $2a - #eq @ $cafebabe #eq -$312 secwin :seek drop $12345678 swap ! +$22c secwin :seek $200 $2c - #eq @ $cafebabe #eq +$314 secwin :seek drop $12345678 swap ! secwin :dirty! 0 secwin :seek 2drop \ implicit flush -mydrv :buf( $312 + @ $12345678 #eq -mydrv :buf( $22a + @ $cafebabe #eq +mydrv :buf( $314 + @ $12345678 #eq +mydrv :buf( $22c + @ $cafebabe #eq testend