From 539df21627419ebe5bcac7a983713fa66804f503 Mon Sep 17 00:00:00 2001
From: Joe Nelson <cred+github@begriffs.com>
Date: Wed, 21 Sep 2016 23:54:08 -0700
Subject: [PATCH] WIP: more comprehensive test of rpc args

Breaks toks2arg
---
 test/Feature/StructureSpec.hs |  6 +++---
 test/fixtures/schema.sql      | 15 +++++++++++++++
 2 files changed, 18 insertions(+), 3 deletions(-)

diff --git a/test/Feature/StructureSpec.hs b/test/Feature/StructureSpec.hs
index 40fa2dc02..def7ce72e 100644
--- a/test/Feature/StructureSpec.hs
+++ b/test/Feature/StructureSpec.hs
@@ -29,14 +29,14 @@ spec = do
 
       it "includes a representative function with parameters" $ do
         r <- simpleBody <$> get "/"
-        let ref = r ^? key "paths" . key "/rpc/login"
+        let ref = r ^? key "paths" . key "/rpc/varied_arguments"
                      . key "post"  . key "parameters"
                      . nth 0       . key "schema"
                      . key "$ref"  . _String
-            login = r ^? key "definitions" . key "(rpc) login"
+            login = r ^? key "definitions" . key "(rpc) varied_arguments"
 
         liftIO $ do
-          ref `shouldBe` Just "#/definitions/(rpc) login"
+          ref `shouldBe` Just "#/definitions/(rpc) varied_arguments"
           login `shouldBe` Just
             [aesonQQ|
               {
diff --git a/test/fixtures/schema.sql b/test/fixtures/schema.sql
index 7f81a58ac..0f9a7db36 100755
--- a/test/fixtures/schema.sql
+++ b/test/fixtures/schema.sql
@@ -215,6 +215,21 @@ SELECT rolname::text, id::text FROM postgrest.auth WHERE id = id AND pass = pass
 $$;
 
 
+CREATE FUNCTION varied_arguments(
+  double double precision,
+  "varchar" character varying,
+  "boolean" boolean,
+  date date,
+  money money,
+  enum enum_menagerie_type,
+  "integer" integer default 42
+) RETURNS text
+    LANGUAGE sql
+AS $_$
+    SELECT 'Hi';
+$_$;
+
+
 --
 -- Name: jwt_test(); Type: FUNCTION; Schema: test; Owner: -
 --