Change behavior of functions_are()

It is now excluding procedures from the list of functions.
See `procedures_are()` instead.

Author: c2main

sql/pgtap.sql.in

@@ -4979,7 +4979,7 @@ RETURNS TEXT AS $$
     SELECT _are(
         'functions',
         ARRAY(
-            SELECT name FROM tap_funky WHERE schema = $1
+            SELECT name FROM tap_funky WHERE schema = $1 and kind != 'p'
             EXCEPT
             SELECT $2[i]
               FROM generate_series(1, array_upper($2, 1)) s(i)
@@ -4988,7 +4988,7 @@ RETURNS TEXT AS $$
             SELECT $2[i]
                FROM generate_series(1, array_upper($2, 1)) s(i)
             EXCEPT
-            SELECT name FROM tap_funky WHERE schema = $1
+            SELECT name FROM tap_funky WHERE schema = $1 and kind != 'p'
         ),
         $3
     );
@@ -5006,7 +5006,7 @@ RETURNS TEXT AS $$
     SELECT _are(
         'functions',
         ARRAY(
-            SELECT name FROM tap_funky WHERE is_visible
+            SELECT name FROM tap_funky WHERE is_visible and kind != 'p'
             AND schema NOT IN ('pg_catalog', 'information_schema')
             EXCEPT
             SELECT $1[i]
@@ -5016,7 +5016,7 @@ RETURNS TEXT AS $$
             SELECT $1[i]
                FROM generate_series(1, array_upper($1, 1)) s(i)
             EXCEPT
-            SELECT name FROM tap_funky WHERE is_visible
+            SELECT name FROM tap_funky WHERE is_visible and kind != 'p'
             AND schema NOT IN ('pg_catalog', 'information_schema')
         ),
         $2