From c0882be96431ac1572e17f9589dbc2f031bd9c0e Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sun, 8 Apr 2012 16:24:16 -0400 Subject: Refactor to avoid dependence on recursive mutexes --- tests/goodbye.ur | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 tests/goodbye.ur (limited to 'tests/goodbye.ur') diff --git a/tests/goodbye.ur b/tests/goodbye.ur new file mode 100644 index 00000000..1a466581 --- /dev/null +++ b/tests/goodbye.ur @@ -0,0 +1,26 @@ +table boo : { Client : client, Channel : channel unit } + +fun doIt () = + me <- self; + ch <- channel; + dml (INSERT INTO boo (Client, Channel) VALUES ({[me]}, {[ch]})); + return + +task clientLeaves = fn cl => + debug "Client left"; + dml (DELETE FROM boo WHERE Client = {[cl]}); + queryI (SELECT (boo.Channel) + FROM boo) + (fn r => send r.1 ()); + debug "Done processing" + +fun main () = return + -- cgit v1.2.3