diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2016-09-17 10:32:57 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2016-09-17 10:32:57 -0700 |
commit | 80df524b566a708551f752ce8b82e21738591651 (patch) | |
tree | c56f845159bd273420141dab4cfb91b437ca63a6 /090scenario_filesystem_test.mu | |
parent | 17622b5a397093f43423e210b5bd47ae19eb4454 (diff) | |
download | mu-80df524b566a708551f752ce8b82e21738591651.tar.gz |
3388
Diffstat (limited to '090scenario_filesystem_test.mu')
-rw-r--r-- | 090scenario_filesystem_test.mu | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/090scenario_filesystem_test.mu b/090scenario_filesystem_test.mu index 2a47c18d..caaecbd2 100644 --- a/090scenario_filesystem_test.mu +++ b/090scenario_filesystem_test.mu @@ -12,7 +12,7 @@ scenario read-from-fake-file [ 2:char/raw <- read contents 3:char/raw <- read contents 4:char/raw <- read contents - _, 5:boolean/raw <- read contents + _, 5:bool/raw <- read contents memory-should-contain [ 1 <- 120 # x 2 <- 121 # y @@ -32,7 +32,7 @@ scenario write-to-fake-file [ close sink wait-for-routine writer contents-read-back:text <- slurp filesystem, [a] - 10:boolean/raw <- equal contents-read-back, [xy] + 10:bool/raw <- equal contents-read-back, [xy] memory-should-contain [ 10 <- 1 # file contents read back exactly match what was written ] @@ -49,7 +49,7 @@ scenario write-to-fake-file-that-exists [ close sink wait-for-routine writer contents-read-back:text <- slurp filesystem, [a] - 10:boolean/raw <- equal contents-read-back, [xy] + 10:bool/raw <- equal contents-read-back, [xy] memory-should-contain [ 10 <- 1 # file contents read back exactly match what was written ] @@ -69,9 +69,9 @@ scenario write-to-existing-file-preserves-other-files [ close sink wait-for-routine writer contents-read-back:text <- slurp filesystem, [a] - 10:boolean/raw <- equal contents-read-back, [xy] + 10:bool/raw <- equal contents-read-back, [xy] other-file-contents:text <- slurp filesystem, [b] - 11:boolean/raw <- equal other-file-contents, [bcd + 11:bool/raw <- equal other-file-contents, [bcd ] memory-should-contain [ 10 <- 1 # file contents read back exactly match what was written @@ -85,7 +85,7 @@ def slurp fs:address:filesystem, filename:text -> contents:text [ source:address:source:char <- start-reading fs, filename buf:address:buffer <- new-buffer 30/capacity { - c:char, done?:boolean, source <- read source + c:char, done?:bool, source <- read source break-if done? buf <- append buf, c loop |