LP# 1483506 public.first_agg & public.first pgTAP tests

Signed-off-by: Yamil Suarez <yamil@yamil.com>
Signed-off-by: Josh Stompro <stomproj@larl.org>
Signed-off-by: Kathy Lussier <klussier@masslnc.org>

diff --git a/Open-ILS/src/sql/Pg/t/public.first.pg b/Open-ILS/src/sql/Pg/t/public.first.pg
new file mode 100644 (file)
index 0000000..31941b3
--- /dev/null
+++ b/Open-ILS/src/sql/Pg/t/public.first.pg
@@ -0,0 +1,22 @@
+-- Load the TAP functions.
+BEGIN;
+
+-- Plan the tests.
+SELECT plan(2);
+
+-- Run the tests. 
+SELECT is(
+    (SELECT public.first(name) FROM config.copy_status WHERE id in (1,2,3)) ,
+    (SELECT name FROM config.copy_status WHERE id = 1),
+    'testing having three rows; picking first row'
+);
+
+SELECT is(
+    (SELECT public.first(name) FROM config.copy_status WHERE id = 1) ,
+    (SELECT name FROM config.copy_status WHERE id = 1),
+    'testing having one row; picking first row'
+);
+
+-- Finish the tests and clean up.
+SELECT * FROM finish();
+ROLLBACK;
\ No newline at end of file

diff --git a/Open-ILS/src/sql/Pg/t/public.first_agg.pg b/Open-ILS/src/sql/Pg/t/public.first_agg.pg
new file mode 100644 (file)
index 0000000..0dc826b
--- /dev/null
+++ b/Open-ILS/src/sql/Pg/t/public.first_agg.pg
@@ -0,0 +1,22 @@
+-- Load the TAP functions.
+BEGIN;
+
+-- Plan the tests.
+SELECT plan(2);
+
+-- Run the tests. 
+SELECT is(
+    public.first_agg(1,2),
+    1,
+    'testing having two interger parameters; picking first parameter'
+);
+
+SELECT is(
+    public.first_agg('1'::text,'2'::text),
+    '1',
+    'testing having two string parameters; picking first parameter'
+);
+
+-- Finish the tests and clean up.
+SELECT * FROM finish();
+ROLLBACK;
\ No newline at end of file