From 44729d96795768c87fb042f01a62e7b14469b170 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sat, 18 Jul 2009 10:27:32 -0400 Subject: Blobs tested in MySQL and SQLite --- tests/blob.ur | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tests/blob.ur') diff --git a/tests/blob.ur b/tests/blob.ur index 4c368a86..c6106686 100644 --- a/tests/blob.ur +++ b/tests/blob.ur @@ -1,7 +1,7 @@ sequence s table t : { Id : int, Nam : option string, Data : blob, Desc : string, Typ : string } -fun view id = +fun see id = r <- oneRow (SELECT t.Data, t.Typ FROM t WHERE t.Id = {[id]}); returnBlob r.T.Data (blessMime r.T.Typ) @@ -13,7 +13,7 @@ fun save r = 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]})
    • ); + (fn r =>
  • {[r.T.Desc]} ({[r.Len]})
    • ); return {ls} -- cgit v1.2.3