summaryrefslogtreecommitdiff
path: root/tests/blob.ur
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-04-26 12:35:45 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-04-26 12:35:45 -0400
commit91a8659bde5f3d6aba9a356f07cc1afb31d67775 (patch)
tree122ba347fb6260488aaec3aca188e6600d0125f9 /tests/blob.ur
parentd824fdd52fb824a6a9db9fb3cc32cfb28746d04b (diff)
sql_ufunc and octet_length
Diffstat (limited to 'tests/blob.ur')
-rw-r--r--tests/blob.ur4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/blob.ur b/tests/blob.ur
index 82a631b9..4c368a86 100644
--- a/tests/blob.ur
+++ b/tests/blob.ur
@@ -12,8 +12,8 @@ fun save r =
main ()
and main () =
- ls <- queryX (SELECT t.Id, t.Desc, t.Data FROM t ORDER BY t.Desc)
- (fn r => <xml><li><a link={view r.T.Id}>{[r.T.Desc]} ({[blobSize r.T.Data]})</a></li></xml>);
+ 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={view r.T.Id}>{[r.T.Desc]} ({[r.Len]})</a></li></xml>);
return <xml><body>
{ls}