diff options
Diffstat (limited to 'archive/2.vm/090scenario_filesystem_test.mu')
-rw-r--r-- | archive/2.vm/090scenario_filesystem_test.mu | 99 |
1 files changed, 0 insertions, 99 deletions
diff --git a/archive/2.vm/090scenario_filesystem_test.mu b/archive/2.vm/090scenario_filesystem_test.mu deleted file mode 100644 index b487bfe0..00000000 --- a/archive/2.vm/090scenario_filesystem_test.mu +++ /dev/null @@ -1,99 +0,0 @@ -# Check our support for fake file systems in scenarios. - -scenario read-from-fake-file [ - local-scope - assume-resources [ - [a] <- [ - |xyz| - ] - ] - contents:&:source:char <- start-reading resources, [a] - 1:char/raw <- read contents - 2:char/raw <- read contents - 3:char/raw <- read contents - 4:char/raw <- read contents - _, 5:bool/raw <- read contents - memory-should-contain [ - 1 <- 120 # x - 2 <- 121 # y - 3 <- 122 # z - 4 <- 10 # newline - 5 <- 1 # eof - ] -] - -scenario write-to-new-fake-file [ - local-scope - assume-resources [ - ] - sink:&:sink:char, writer:num/routine <- start-writing resources, [a] - sink <- write sink, 120/x - sink <- write sink, 121/y - close sink - wait-for-routine writer - contents-read-back:text <- slurp resources, [a] - 10:bool/raw <- equal contents-read-back, [xy] - memory-should-contain [ - 10 <- 1 # file contents read back exactly match what was written - ] -] - -scenario write-to-new-fake-file-2 [ - local-scope - assume-resources [ - [a] <- [ - |abc| - ] - ] - sink:&:sink:char, writer:num/routine <- start-writing resources, [b] - sink <- write sink, 120/x - sink <- write sink, 121/y - close sink - wait-for-routine writer - contents-read-back:text <- slurp resources, [b] - 10:bool/raw <- equal contents-read-back, [xy] - memory-should-contain [ - 10 <- 1 # file contents read back exactly match what was written - ] -] - -scenario write-to-fake-file-that-exists [ - local-scope - assume-resources [ - [a] <- [] - ] - sink:&:sink:char, writer:num/routine <- start-writing resources, [a] - sink <- write sink, 120/x - sink <- write sink, 121/y - close sink - wait-for-routine writer - contents-read-back:text <- slurp resources, [a] - 10:bool/raw <- equal contents-read-back, [xy] - memory-should-contain [ - 10 <- 1 # file contents read back exactly match what was written - ] -] - -scenario write-to-existing-file-preserves-other-files [ - local-scope - assume-resources [ - [a] <- [] - [b] <- [ - |bcd| - ] - ] - sink:&:sink:char, writer:num/routine <- start-writing resources, [a] - sink <- write sink, 120/x - sink <- write sink, 121/y - close sink - wait-for-routine writer - contents-read-back:text <- slurp resources, [a] - 10:bool/raw <- equal contents-read-back, [xy] - other-file-contents:text <- slurp resources, [b] - 11:bool/raw <- equal other-file-contents, [bcd -] - memory-should-contain [ - 10 <- 1 # file contents read back exactly match what was written - 11 <- 1 # other files also continue to persist unchanged - ] -] |