diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2016-09-17 00:31:55 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2016-09-17 00:31:55 -0700 |
| commit | 08f4628e8b858120fe3547d8e5431d9abfe46bf8 (patch) | |
| tree | 4d9f1bc0039baefa0e84d9cb3ea6634f4337d342 /090scenario_filesystem_test.mu | |
| parent | 58a9f7c34e21541f2db90b7fb66f4e92f04780ef (diff) | |
| download | mu-08f4628e8b858120fe3547d8e5431d9abfe46bf8.tar.gz | |
3379
Can't use type abbreviations inside 'memory-should-contain'.
Diffstat (limited to '090scenario_filesystem_test.mu')
| -rw-r--r-- | 090scenario_filesystem_test.mu | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/090scenario_filesystem_test.mu b/090scenario_filesystem_test.mu index 820c075e..7953dcf8 100644 --- a/090scenario_filesystem_test.mu +++ b/090scenario_filesystem_test.mu @@ -7,11 +7,11 @@ scenario read-from-fake-file [ |xyz| ] ] - contents:address:source:character <- start-reading filesystem:address:filesystem, [a] - 1:character/raw <- read contents - 2:character/raw <- read contents - 3:character/raw <- read contents - 4:character/raw <- read contents + contents:address:source:char <- start-reading filesystem:address:filesystem, [a] + 1:char/raw <- read contents + 2:char/raw <- read contents + 3:char/raw <- read contents + 4:char/raw <- read contents _, 5:boolean/raw <- read contents memory-should-contain [ 1 <- 120 # x @@ -26,7 +26,7 @@ scenario write-to-fake-file [ local-scope assume-filesystem [ ] - sink:address:sink:character, writer:number/routine <- start-writing filesystem:address:filesystem, [a] + sink:address:sink:char, writer:number/routine <- start-writing filesystem:address:filesystem, [a] sink <- write sink, 120/x sink <- write sink, 121/y close sink @@ -43,7 +43,7 @@ scenario write-to-fake-file-that-exists [ assume-filesystem [ [a] <- [] ] - sink:address:sink:character, writer:number/routine <- start-writing filesystem:address:filesystem, [a] + sink:address:sink:char, writer:number/routine <- start-writing filesystem:address:filesystem, [a] sink <- write sink, 120/x sink <- write sink, 121/y close sink @@ -63,7 +63,7 @@ scenario write-to-existing-file-preserves-other-files [ |bcd| ] ] - sink:address:sink:character, writer:number/routine <- start-writing filesystem:address:filesystem, [a] + sink:address:sink:char, writer:number/routine <- start-writing filesystem:address:filesystem, [a] sink <- write sink, 120/x sink <- write sink, 121/y close sink @@ -82,10 +82,10 @@ scenario write-to-existing-file-preserves-other-files [ def slurp fs:address:filesystem, filename:text -> contents:text [ local-scope load-ingredients - source:address:source:character <- start-reading fs, filename + source:address:source:char <- start-reading fs, filename buf:address:buffer <- new-buffer 30/capacity { - c:character, done?:boolean, source <- read source + c:char, done?:boolean, source <- read source break-if done? buf <- append buf, c loop |