diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2016-10-23 20:55:47 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2016-10-23 20:55:47 -0700 |
commit | b1f0fa4dc98a65dd956ded0eadce3bd9d010d100 (patch) | |
tree | 7bca26963af86947d1986a06a481278ba934e664 /088file.mu | |
parent | 9da067db49bda56fe339264c48bb7c0c227d17f9 (diff) | |
download | mu-b1f0fa4dc98a65dd956ded0eadce3bd9d010d100.tar.gz |
3573 - client socket tests
This is just the same as tests for a fake file-system.
Diffstat (limited to '088file.mu')
-rw-r--r-- | 088file.mu | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/088file.mu b/088file.mu index 80a6be2b..f00eb7bf 100644 --- a/088file.mu +++ b/088file.mu @@ -23,6 +23,12 @@ def start-reading resources:&:resources, filename:text -> contents:&:source:char return } # fake file system + contents <- start-reading-from-fake-resources resources, filename +] + +def start-reading-from-fake-resources resources:&:resources, resource:text -> contents:&:source:char [ + local-scope + load-ingredients i:num <- copy 0 data:&:@:resource <- get *resources, data:offset len:num <- length *data @@ -31,8 +37,8 @@ def start-reading resources:&:resources, filename:text -> contents:&:source:char break-if done? tmp:resource <- index *data, i i <- add i, 1 - curr-filename:text <- get tmp, name:offset - found?:bool <- equal filename, curr-filename + curr-resource:text <- get tmp, name:offset + found?:bool <- equal resource, curr-resource loop-unless found? contents:&:source:char, sink:&:sink:char <- new-channel 30 curr-contents:text <- get tmp, contents:offset |