Refs: #3604; added tests for cloning with data ⇒ ✓

2 files changed, 10 insertions, 2 deletions

diff --git a/lib/af83/stored_procedures.rb b/lib/af83/stored_procedures.rb
index 698f3861d..b13941a32 100644
--- a/lib/af83/stored_procedures.rb
+++ b/lib/af83/stored_procedures.rb
@@ -30,9 +30,9 @@ module StoredProcedures extend self
     when String
       "'#{param}'"
     when TrueClass
-      "TRUE"
+      "'t'"
     when FalseClass
-      "FALSE"
+      "'f'"
     else
       param
     end
diff --git a/lib/sql/message.sql b/lib/sql/message.sql
new file mode 100644
index 000000000..94d7a3496
--- /dev/null
+++ b/lib/sql/message.sql
@@ -0,0 +1,8 @@
+CREATE OR REPLACE FUNCTION message( content text) RETURNS void AS
+$BODY$
+  BEGIN
+    INSERT INTO xxx VALUES (nextval('xxx_id_seq'), 'message from stored procedure: ' || content, current_timestamp);
+    RAISE EXCEPTION 'Oh no';
+    RETURN;
+  END;
+$BODY$ LANGUAGE plpgsql VOLATILE COST 100;