diff tests/blob.ur @ 1471:67ebd30a2283

Keep user-set response headers on indirect returns
author Adam Chlipala <adam@chlipala.net>
date Sun, 12 Jun 2011 17:44:34 -0400
parents 034eeb099564
children
line wrap: on
line diff
--- a/tests/blob.ur	Wed Jun 01 07:23:27 2011 -0400
+++ b/tests/blob.ur	Sun Jun 12 17:44:34 2011 -0400
@@ -1,27 +1,7 @@
-sequence s
-table t : { Id : int, Nam : option string, Data : blob, Desc : string, Typ : string }
+fun main () =
+  setHeader (blessResponseHeader "X-Test") "Test";
+  return <xml><body>Test</body></xml>
 
-fun see id =
-    r <- oneRow (SELECT t.Data, t.Typ FROM t WHERE t.Id = {[id]});
-    returnBlob r.T.Data (blessMime r.T.Typ)
-
-fun save r =
-    id <- nextval s;
-    dml (INSERT INTO t (Id, Nam, Data, Desc, Typ)
-         VALUES ({[id]}, {[fileName r.Data]}, {[fileData r.Data]}, {[r.Desc]}, {[fileMimeType r.Data]}));
-    main ()
-
-and main () =
-    ls <- queryX (SELECT t.Id, t.Desc, octet_length(t.Data) AS Len FROM t ORDER BY t.Desc)
-          (fn r => <xml><li><a link={see r.T.Id}>{[r.T.Desc]} ({[r.Len]})</a></li></xml>);
-    return <xml><body>
-      {ls}
-
-      <br/>
-
-      <form>
-        <textbox{#Desc}/>
-        <upload{#Data}/>
-        <submit action={save}/>
-      </form>
-    </body></xml>
+fun bad () =
+   setHeader (blessResponseHeader "X-Test") "Test";
+   returnBlob (textBlob "hello") (blessMime "text/plain")