postgres-framework 0.1.0

data/scripts/20170608-212040.sql

@@ -0,0 +1 @@
+CREATE SCHEMA IF NOT EXISTS framework;

data/scripts/20170608-212341.sql

@@ -0,0 +1,10 @@
+-- Eliminate duplicate array values
+CREATE OR REPLACE FUNCTION framework.array_distinct(
+    in arr anyarray, -- input array
+    in ignore_nulls boolean DEFAULT false, -- flag to ignore nulls
+    in default_value anyarray DEFAULT ARRAY[]::TEXT[] -- default value if empty
+) RETURNS anyarray AS $f$
+    SELECT COALESCE((SELECT array_agg(DISTINCT x)
+        FROM unnest(arr) t(x)
+        WHERE CASE WHEN ignore_nulls THEN x IS NOT NULL ELSE true END), default_value);
+$f$ LANGUAGE SQL IMMUTABLE;

data/scripts/20170608-212348.sql

@@ -0,0 +1,23 @@
+-- Convert json array to TEXT[]
+CREATE OR REPLACE FUNCTION
+    framework.array_from_json(in json_arr json)
+RETURNS text[] AS $$
+    DECLARE arr text[];
+    DECLARE item json;
+    DECLARE item_value text;
+BEGIN
+    arr := ARRAY[]::TEXT[];
+    FOR item IN SELECT * FROM json_array_elements(json_arr)
+    LOOP
+        item_value := item::text;
+        IF substring(item_value, 1, 1) <> '"' THEN
+            RAISE EXCEPTION 'Element is not string'
+            USING HINT = 'Acceptable only array of string. Found element value: ' || item_value;
+        END IF;
+
+        arr := array_append(arr, substring(item_value, 2, char_length(item_value) - 2));
+    END LOOP;
+
+    RETURN arr;
+END
+$$ LANGUAGE plpgsql;

data/scripts/20170608-212359.sql

@@ -0,0 +1,9 @@
+-- http://stackoverflow.com/questions/2568842/jquery-url-validator
+-- http://blog.mattheworiordan.com/post/13174566389/url-regular-expression-for-links-with-or-without
+CREATE OR REPLACE FUNCTION
+    framework.check_http_url(email text)
+    RETURNS bool AS $$
+BEGIN
+    RETURN email ~* '((((http|https)+:(?:\/\/)+)(?:[\-;:&=\+\$,\w]+@)?)(.)+)';
+END
+$$ LANGUAGE plpgsql;

data/scripts/20170608-212413.sql

@@ -0,0 +1,9 @@
+-- http://stackoverflow.com/questions/2568842/jquery-url-validator
+-- http://blog.mattheworiordan.com/post/13174566389/url-regular-expression-for-links-with-or-without
+CREATE OR REPLACE FUNCTION
+    framework.check_url(email text)
+    RETURNS bool AS $$
+BEGIN
+    RETURN email ~* '((([A-Za-z]+:(?:\/\/)+)(?:[\-;:&=\+\$,\w]+@)?)(.)+)';
+END
+$$ LANGUAGE plpgsql;

data/scripts/20170608-212430.sql

@@ -0,0 +1,34 @@
+-- Create unique string based first argument.
+CREATE OR REPLACE FUNCTION
+    framework.create_unique_name(
+        value text, -- slug value
+        table_name text, -- name of table
+        col_name text, -- name of column with name
+        col_unique_name text -- name of column with unique name
+    )
+    RETURNS text AS $$
+DECLARE
+    occurs int;
+    new_value text;
+BEGIN
+    EXECUTE format('SELECT COUNT(*) FROM %s WHERE %s=$1 OR %s=$1', table_name, col_name, col_unique_name)
+    INTO occurs
+    USING value;
+
+    IF occurs = 0
+    THEN
+        new_value = value;
+    ELSE
+        new_value = value;
+        WHILE occurs > 0 LOOP
+            new_value = new_value || '-' || cast((occurs + 1) as character varying);
+
+            EXECUTE format('SELECT COUNT(*) FROM %s WHERE %s=$1 OR %s=$1', table_name, col_name, col_unique_name)
+            INTO occurs
+            USING new_value;
+        END LOOP;
+    END IF;
+
+    RETURN new_value;
+END;
+$$ LANGUAGE plpgsql;

data/scripts/20170608-212759.sql

@@ -0,0 +1,24 @@
+CREATE OR REPLACE FUNCTION unit_tests.array_distinct_test()
+RETURNS test_result AS $$
+    DECLARE arr text[];
+    DECLARE message test_result;
+BEGIN
+    SELECT framework.array_distinct(ARRAY['foo', NULL, 'bar', 'foo', 'ok', 'bar'], TRUE) INTO arr;
+
+    IF arr <> ARRAY['bar', 'foo', 'ok'] THEN
+        SELECT assert.fail('Unexpected array value') INTO message;
+        RETURN message;
+    END IF;
+
+    SELECT framework.array_distinct(ARRAY[]::TEXT[], TRUE) INTO arr;
+    SELECT framework.array_distinct(ARRAY[]::INTEGER[], TRUE, ARRAY[]::INTEGER[]) INTO arr;
+
+    IF arr IS NULL THEN
+        SELECT assert.fail('Expected empty array, got null') INTO message;
+        RETURN message;
+    END IF;
+
+    SELECT assert.ok('framework.array_distinct is OK') INTO message;
+    RETURN message;
+END;
+$$ LANGUAGE plpgsql;

data/scripts/20170608-212803.sql

@@ -0,0 +1,23 @@
+CREATE OR REPLACE FUNCTION unit_tests.array_from_json_test()
+RETURNS test_result AS $$
+    DECLARE arr text[];
+    DECLARE message test_result;
+BEGIN
+    SELECT framework.array_from_json('["foo", "bar"]') INTO arr;
+
+    IF arr <> ARRAY['foo', 'bar'] THEN
+        SELECT assert.fail('Expected array: ["foo", "bar"]') INTO message;
+        RETURN message;
+    END IF;
+
+    SELECT framework.array_from_json('[]') INTO arr;
+
+    IF arr <> ARRAY[]::TEXT[] THEN
+        SELECT assert.fail('Expected empty array, got null') INTO message;
+        RETURN message;
+    END IF;
+
+    SELECT assert.ok('framework.array_distinct is OK') INTO message;
+    RETURN message;
+END;
+$$ LANGUAGE plpgsql;

data/scripts/20170608-212813.sql

@@ -0,0 +1,75 @@
+CREATE OR REPLACE FUNCTION unit_tests.check_http_url_test()
+RETURNS test_result AS $$
+DECLARE message test_result;
+DECLARE result boolean;
+BEGIN
+    SELECT check_http_url INTO result FROM framework.check_http_url('localhost');
+    IF result = TRUE THEN
+        SELECT assert.fail('Value "localhost" is invalid url.') INTO message;
+        RETURN message;
+    END IF;
+
+    SELECT check_http_url INTO result FROM framework.check_http_url('http://');
+    IF result = TRUE THEN
+        SELECT assert.fail('Value "http://" is invalid url.') INTO message;
+        RETURN message;
+    END IF;
+
+    SELECT check_http_url INTO result FROM framework.check_http_url('google.pl');
+    IF result = TRUE THEN
+        SELECT assert.fail('Value "google.pl" is invalid url.') INTO message;
+        RETURN message;
+    END IF;
+
+    SELECT check_http_url INTO result FROM framework.check_http_url('www.google.pl');
+    IF result = TRUE THEN
+        SELECT assert.fail('Value "www.google.pl" is invalid url.') INTO message;
+        RETURN message;
+    END IF;
+
+    SELECT check_http_url INTO result FROM framework.check_http_url('//google.pl');
+    IF result = TRUE THEN
+        SELECT assert.fail('Value "//google.pl" is invalid url.') INTO message;
+        RETURN message;
+    END IF;
+
+    SELECT check_http_url INTO result FROM framework.check_http_url('http//google.pl');
+    IF result = TRUE THEN
+        SELECT assert.fail('Value "http//google.pl" is invalid url.') INTO message;
+        RETURN message;
+    END IF;
+
+    SELECT check_http_url INTO result FROM framework.check_http_url('https://google.pl');
+    IF result = FALSE THEN
+        SELECT assert.fail('Value "https://google.pl" is valid url.') INTO message;
+        RETURN message;
+    END IF;
+
+    SELECT check_http_url INTO result FROM framework.check_http_url('http://www.google.pl');
+    IF result = FALSE THEN
+        SELECT assert.fail('Value "http://www.google.pl" is valid url.') INTO message;
+        RETURN message;
+    END IF;
+
+    SELECT check_http_url INTO result FROM framework.check_http_url('abcdefg://www.google.pl');
+    IF result = TRUE THEN
+        SELECT assert.fail('Value "abcdefg://www.google.pl" is invalid url.') INTO message;
+        RETURN message;
+    END IF;
+
+    SELECT check_http_url INTO result FROM framework.check_http_url('abcdefg://google.pl');
+    IF result = TRUE THEN
+        SELECT assert.fail('Value "abcdefg://google.pl" is invalid url.') INTO message;
+        RETURN message;
+    END IF;
+
+    SELECT check_http_url INTO result FROM framework.check_http_url('http://localhost/test/test?gfdgfdg#ok');
+    IF result = FALSE THEN
+        SELECT assert.fail('Value "http://localhost/test/test?gfdgfdg#ok" is valid url.') INTO message;
+        RETURN message;
+    END IF;
+
+    SELECT assert.ok('framework.check_http_url is OK') INTO message;
+    RETURN message;
+END;
+$$ LANGUAGE plpgsql;

data/scripts/20170608-212819.sql

@@ -0,0 +1,81 @@
+CREATE OR REPLACE FUNCTION unit_tests.check_url_test()
+RETURNS test_result AS $$
+DECLARE message test_result;
+DECLARE result boolean;
+BEGIN
+    SELECT check_url INTO result FROM framework.check_url('localhost');
+    IF result = TRUE THEN
+        SELECT assert.fail('Value "localhost" is invalid url.') INTO message;
+        RETURN message;
+    END IF;
+
+    SELECT check_url INTO result FROM framework.check_url('http://');
+    IF result = TRUE THEN
+        SELECT assert.fail('Value "http://" is invalid url.') INTO message;
+        RETURN message;
+    END IF;
+
+    SELECT check_url INTO result FROM framework.check_url('google.pl');
+    IF result = TRUE THEN
+        SELECT assert.fail('Value "google.pl" is invalid url.') INTO message;
+        RETURN message;
+    END IF;
+
+    SELECT check_url INTO result FROM framework.check_url('www.google.pl');
+    IF result = TRUE THEN
+        SELECT assert.fail('Value "www.google.pl" is invalid url.') INTO message;
+        RETURN message;
+    END IF;
+
+    SELECT check_url INTO result FROM framework.check_url('//google.pl');
+    IF result = TRUE THEN
+        SELECT assert.fail('Value "//google.pl" is invalid url.') INTO message;
+        RETURN message;
+    END IF;
+
+    SELECT check_url INTO result FROM framework.check_url('http//google.pl');
+    IF result = TRUE THEN
+        SELECT assert.fail('Value "http//google.pl" is invalid url.') INTO message;
+        RETURN message;
+    END IF;
+
+    SELECT check_url INTO result FROM framework.check_url('https://google.pl');
+    IF result = FALSE THEN
+        SELECT assert.fail('Value "https://google.pl" is valid url.') INTO message;
+        RETURN message;
+    END IF;
+
+    SELECT check_url INTO result FROM framework.check_url('http://www.google.pl');
+    IF result = FALSE THEN
+        SELECT assert.fail('Value "http://www.google.pl" is valid url.') INTO message;
+        RETURN message;
+    END IF;
+
+    SELECT check_url INTO result FROM framework.check_url('abcdefg://www.google.pl');
+    IF result = FALSE THEN
+        SELECT assert.fail('Value "abcdefg://www.google.pl" is valid url.') INTO message;
+        RETURN message;
+    END IF;
+
+    SELECT check_url INTO result FROM framework.check_url('abcdefg://google.pl');
+    IF result = FALSE THEN
+        SELECT assert.fail('Value "abcdefg://google.pl" is valid url.') INTO message;
+        RETURN message;
+    END IF;
+
+    SELECT check_url INTO result FROM framework.check_url('aąbcćdeęfg://aaałśóŋŋŋ.ąę');
+    IF result = FALSE THEN
+        SELECT assert.fail('Value "aąbcćdeęfg://aaałśóŋŋŋ.ąę" is valid url.') INTO message;
+        RETURN message;
+    END IF;
+
+    SELECT check_url INTO result FROM framework.check_url('http://localhost/test/test?gfdgfdg#ok');
+    IF result = FALSE THEN
+        SELECT assert.fail('Value "http://localhost/test/test?gfdgfdg#ok" is valid url.') INTO message;
+        RETURN message;
+    END IF;
+
+    SELECT assert.ok('framework.check_url is OK') INTO message;
+    RETURN message;
+END;
+$$ LANGUAGE plpgsql;

data/scripts/20170608-212825.sql

@@ -0,0 +1,59 @@
+CREATE OR REPLACE FUNCTION unit_tests.create_unique_name_test()
+    RETURNS test_result AS $$
+DECLARE message test_result;
+    DECLARE result TEXT;
+    DECLARE table_name TEXT = 'unit_tests.temp_create_unique_name';
+    DECLARE col_name TEXT = 'name';
+    DECLARE col_unique_name TEXT = 'unique_name';
+BEGIN
+    EXECUTE format('DROP TABLE IF EXISTS %s', table_name);
+    EXECUTE format('CREATE TABLE IF NOT EXISTS %s (%s TEXT, %s TEXT)', table_name, col_name, col_unique_name);
+
+    SELECT create_unique_name INTO result FROM framework.create_unique_name('test', table_name, col_name, col_unique_name);
+    IF result <> 'test' THEN
+        SELECT assert.fail('Expected "test" value is "' || result || '"') INTO message;
+        EXECUTE format('DROP TABLE IF EXISTS %s', table_name);
+        RETURN message;
+    END IF;
+
+    EXECUTE format('INSERT INTO %s (%s, %s) VALUES ($1, $2);', table_name, col_name, col_unique_name)
+    USING 'test', 'test';
+    SELECT create_unique_name INTO result FROM framework.create_unique_name('test', table_name, col_name, col_unique_name);
+    IF result <> 'test-2' THEN
+        SELECT assert.fail('Expected "test-2" value is "' || result || '"') INTO message;
+        EXECUTE format('DROP TABLE IF EXISTS %s', table_name);
+        RETURN message;
+    END IF;
+
+    EXECUTE format('INSERT INTO %s (%s, %s) VALUES ($1, $2);', table_name, col_name, col_unique_name)
+    USING 'test', 'test-2';
+    SELECT create_unique_name INTO result FROM framework.create_unique_name('test', table_name, col_name, col_unique_name);
+    IF result <> 'test-3' THEN
+        SELECT assert.fail('Expected "test-3" value is "' || result || '"') INTO message;
+        EXECUTE format('DROP TABLE IF EXISTS %s', table_name);
+        RETURN message;
+    END IF;
+
+    EXECUTE format('INSERT INTO %s (%s, %s) VALUES ($1, $2);', table_name, col_name, col_unique_name)
+    USING 'test', 'test-3';
+    SELECT create_unique_name INTO result FROM framework.create_unique_name('test', table_name, col_name, col_unique_name);
+    IF result <> 'test-4' THEN
+        SELECT assert.fail('Expected "test-4" value is "' || result || '"') INTO message;
+        EXECUTE format('DROP TABLE IF EXISTS %s', table_name);
+        RETURN message;
+    END IF;
+
+    EXECUTE format('INSERT INTO %s (%s, %s) VALUES ($1, $2);', table_name, col_name, col_unique_name)
+    USING 'test-2', 'test-2';
+    SELECT create_unique_name INTO result FROM framework.create_unique_name('test-2', table_name, col_name, col_unique_name);
+    IF result <> 'test-2-3' THEN
+        SELECT assert.fail('Expected "test-2-3" value is "' || result || '"') INTO message;
+        EXECUTE format('DROP TABLE IF EXISTS %s', table_name);
+        RETURN message;
+    END IF;
+
+    EXECUTE format('DROP TABLE IF EXISTS %s', table_name);
+    SELECT assert.ok('framework.create_unique_name is OK') INTO message;
+    RETURN message;
+END;
+$$ LANGUAGE plpgsql;

data/scripts/20170609-183531.sql

@@ -0,0 +1,12 @@
+-- Automatically update date columns
+CREATE OR REPLACE FUNCTION framework.trf_created_at_and_updated_at() RETURNS TRIGGER AS $$
+BEGIN
+    IF (TG_OP = 'INSERT') THEN
+        NEW.created_at = now();
+    END IF;
+
+    NEW.updated_at = now();
+
+    RETURN NEW;
+END;
+$$ LANGUAGE plpgsql;

data/src/functions/array_distinct.sql

@@ -0,0 +1,10 @@
+-- Eliminate duplicate array values
+CREATE OR REPLACE FUNCTION framework.array_distinct(
+    in arr anyarray, -- input array
+    in ignore_nulls boolean DEFAULT false, -- flag to ignore nulls
+    in default_value anyarray DEFAULT ARRAY[]::TEXT[] -- default value if empty
+) RETURNS anyarray AS $f$
+    SELECT COALESCE((SELECT array_agg(DISTINCT x)
+        FROM unnest(arr) t(x)
+        WHERE CASE WHEN ignore_nulls THEN x IS NOT NULL ELSE true END), default_value);
+$f$ LANGUAGE SQL IMMUTABLE;

data/src/functions/array_from_json.sql

@@ -0,0 +1,23 @@
+-- Convert json array to TEXT[]
+CREATE OR REPLACE FUNCTION
+    framework.array_from_json(in json_arr json)
+RETURNS text[] AS $$
+    DECLARE arr text[];
+    DECLARE item json;
+    DECLARE item_value text;
+BEGIN
+    arr := ARRAY[]::TEXT[];
+    FOR item IN SELECT * FROM json_array_elements(json_arr)
+    LOOP
+        item_value := item::text;
+        IF substring(item_value, 1, 1) <> '"' THEN
+            RAISE EXCEPTION 'Element is not string'
+            USING HINT = 'Acceptable only array of string. Found element value: ' || item_value;
+        END IF;
+
+        arr := array_append(arr, substring(item_value, 2, char_length(item_value) - 2));
+    END LOOP;
+
+    RETURN arr;
+END
+$$ LANGUAGE plpgsql;

data/src/functions/check_http_url.sql

@@ -0,0 +1,9 @@
+-- http://stackoverflow.com/questions/2568842/jquery-url-validator
+-- http://blog.mattheworiordan.com/post/13174566389/url-regular-expression-for-links-with-or-without
+CREATE OR REPLACE FUNCTION
+    framework.check_http_url(email text)
+    RETURNS bool AS $$
+BEGIN
+    RETURN email ~* '((((http|https)+:(?:\/\/)+)(?:[\-;:&=\+\$,\w]+@)?)(.)+)';
+END
+$$ LANGUAGE plpgsql;

data/src/functions/check_url.sql

@@ -0,0 +1,9 @@
+-- http://stackoverflow.com/questions/2568842/jquery-url-validator
+-- http://blog.mattheworiordan.com/post/13174566389/url-regular-expression-for-links-with-or-without
+CREATE OR REPLACE FUNCTION
+    framework.check_url(email text)
+    RETURNS bool AS $$
+BEGIN
+    RETURN email ~* '((([A-Za-z]+:(?:\/\/)+)(?:[\-;:&=\+\$,\w]+@)?)(.)+)';
+END
+$$ LANGUAGE plpgsql;

data/src/functions/create_unique_name.sql

@@ -0,0 +1,34 @@
+-- Create unique string based first argument.
+CREATE OR REPLACE FUNCTION
+    framework.create_unique_name(
+        value text, -- slug value
+        table_name text, -- name of table
+        col_name text, -- name of column with name
+        col_unique_name text -- name of column with unique name
+    )
+    RETURNS text AS $$
+DECLARE
+    occurs int;
+    new_value text;
+BEGIN
+    EXECUTE format('SELECT COUNT(*) FROM %s WHERE %s=$1 OR %s=$1', table_name, col_name, col_unique_name)
+    INTO occurs
+    USING value;
+
+    IF occurs = 0
+    THEN
+        new_value = value;
+    ELSE
+        new_value = value;
+        WHILE occurs > 0 LOOP
+            new_value = new_value || '-' || cast((occurs + 1) as character varying);
+
+            EXECUTE format('SELECT COUNT(*) FROM %s WHERE %s=$1 OR %s=$1', table_name, col_name, col_unique_name)
+            INTO occurs
+            USING new_value;
+        END LOOP;
+    END IF;
+
+    RETURN new_value;
+END;
+$$ LANGUAGE plpgsql;