From b9e6f864a787d648a69f0a2a3009608043d04ae7 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sun, 12 Jun 2011 17:44:34 -0400 Subject: Keep user-set response headers on indirect returns --- tests/blob.ur | 32 ++++++-------------------------- 1 file changed, 6 insertions(+), 26 deletions(-) (limited to 'tests/blob.ur') diff --git a/tests/blob.ur b/tests/blob.ur index c6106686..02f88f0d 100644 --- a/tests/blob.ur +++ b/tests/blob.ur @@ -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 Test -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 =>

{[r.T.Desc]} ({[r.Len]})

); - return - {ls} - -
- - +fun bad () = + setHeader (blessResponseHeader "X-Test") "Test"; + returnBlob (textBlob "hello") (blessMime "text/plain") -- cgit v1.2.3