diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2021-06-20 20:36:47 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2021-06-20 20:36:47 -0700 |
commit | 9d7d99fe6cc5a05960ef52cdfa8acefabf8e40bf (patch) | |
tree | bc1829c1f4c5e3256dfabc552664fbd5e3e9840e /400.mu | |
parent | 29795a0db4e1d180217123f81f14b69189b3c12c (diff) | |
download | mu-9d7d99fe6cc5a05960ef52cdfa8acefabf8e40bf.tar.gz |
snapshot
This is going better than expected; just 3 failing tests among the new ones.
Diffstat (limited to '400.mu')
-rw-r--r-- | 400.mu | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/400.mu b/400.mu index a0f2d85b..05a5463f 100644 --- a/400.mu +++ b/400.mu @@ -43,8 +43,9 @@ sig count-of-events -> _/eax: int sig clear-stream f: (addr stream _) sig rewind-stream f: (addr stream _) sig stream-data-equal? f: (addr stream byte), s: (addr array byte) -> _/eax: boolean -sig streams-data-equal? f: (addr stream byte), s: (addr stream byte) -> _/eax: boolean +sig streams-data-equal? a: (addr stream byte), b: (addr stream byte) -> _/eax: boolean sig check-stream-equal f: (addr stream byte), s: (addr array byte), msg: (addr array byte) +sig check-streams-data-equal s: (addr stream _), expected: (addr stream _), msg: (addr array byte) sig next-stream-line-equal? f: (addr stream byte), s: (addr array byte) -> _/eax: boolean sig check-next-stream-line-equal f: (addr stream byte), s: (addr array byte), msg: (addr array byte) sig write f: (addr stream byte), s: (addr array byte) |