From b1f0fa4dc98a65dd956ded0eadce3bd9d010d100 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Sun, 23 Oct 2016 20:55:47 -0700
Subject: 3573 - client socket tests

This is just the same as tests for a fake file-system.
---
 088file.mu | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to '088file.mu')

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
-- 
cgit 1.4.1-2-gfad0