105 lines
5.7 KiB
SQL
105 lines
5.7 KiB
SQL
do
|
|
$$
|
|
declare
|
|
_comment_id uuid;
|
|
_comment_id_response uuid;
|
|
_comment_id_response2 uuid;
|
|
_selected_comments json;
|
|
_selected_comments_total int;
|
|
_find_comments_by_target_result json;
|
|
_find_comments_by_parent_result json;
|
|
_find_comments_by_id_result json;
|
|
_comment json;
|
|
_article_id uuid := fixture_article();
|
|
_citizen_id uuid := fixture_citizen('john');
|
|
begin
|
|
_comment = json_build_object(
|
|
'id', 'a2962f49-74e6-4f20-9c13-36f3ccbc4ad7',
|
|
'target', jsonb_build_object('id', _article_id),
|
|
'created_by', jsonb_build_object('id', _citizen_id),
|
|
'content', 'Ho my god !'
|
|
);
|
|
select "comment"(
|
|
reference => 'article'::regclass,
|
|
resource => _comment
|
|
)->>'id' into _comment_id;
|
|
|
|
assert (select count(*) = 1 from "comment"), 'comment must be inserted, "' || (select count(*) from "comment") || '" exist';
|
|
assert (select com.content = 'Ho my god !' from "comment" com), 'the content of comment must be "Ho my god !" instead of "' || (select com.content from "comment" as com) || '"';
|
|
|
|
select find_comment_by_id(_comment_id) into _find_comments_by_id_result;
|
|
assert (_find_comments_by_id_result->>'content' = 'Ho my god !'), format('content of comment must be "Ho my god !" instead of %s', _find_comments_by_id_result->>'content');
|
|
|
|
perform edit_comment(
|
|
_id => _comment_id,
|
|
_content => 'edited content'::text
|
|
);
|
|
assert (select count(*) = 1 from "comment"), 'edit comment must not insert new comment';
|
|
assert (select count(*) = 1 from "comment" where content = 'edited content'), 'edit comment must not insert new comment';
|
|
|
|
select resource, total
|
|
into _selected_comments, _selected_comments_total
|
|
from find_comments_by_citizen(_citizen_id);
|
|
assert (_selected_comments_total = 1), 'the number of comments for this citizen must be 1, "' || _selected_comments_total || '" returned';
|
|
assert (_selected_comments#>>'{0,content}' = 'edited content'),
|
|
'the content of first comment for this citizen must be "edited content", "' || (_selected_comments#>>'{0,content}') || '" returned';
|
|
|
|
select resource, total
|
|
into _selected_comments, _selected_comments_total
|
|
from find_comments_by_citizen(_citizen_id);
|
|
assert (_selected_comments_total = 1), 'the number of comments for this citizen must be 1, "' || _selected_comments_total || '" returned';
|
|
assert (_selected_comments#>>'{0,content}' = 'edited content'),
|
|
'the content of first comment for this citizen must be "edited content", "' || (_selected_comments#>>'{0,content}') || '" returned';
|
|
|
|
select resource, total
|
|
into _selected_comments, _selected_comments_total
|
|
from find_comments_by_citizen(_citizen_id, 'constitution'::regclass);
|
|
assert (_selected_comments_total = 0), 'the number of comments for this citizen must be 0, "' || _selected_comments_total || '" returned';
|
|
|
|
|
|
_comment = json_build_object(
|
|
'id', '50962646-07b6-42a3-9798-d756b9b6e2ba',
|
|
'target', jsonb_build_object('id', _article_id),
|
|
'created_by', jsonb_build_object('id', _citizen_id),
|
|
'content', 'God not exist',
|
|
'parent', json_build_object('id', _comment_id)
|
|
);
|
|
select "comment"(
|
|
reference => 'article'::regclass,
|
|
resource => _comment
|
|
)->>'id' into _comment_id_response;
|
|
|
|
|
|
_comment = json_build_object(
|
|
'id', 'ce82e683-23a8-4977-92fb-8d61a3ec995a',
|
|
'target', jsonb_build_object('id', _article_id),
|
|
'created_by', jsonb_build_object('id', _citizen_id),
|
|
'content', 'are you really sure ?',
|
|
'parent', json_build_object('id', _comment_id_response)
|
|
);
|
|
select "comment"(
|
|
reference => 'article'::regclass,
|
|
resource => _comment
|
|
)->>'id' into _comment_id_response2;
|
|
assert (select count(*) = 3 from "comment"), 'response must be inserted';
|
|
assert (select com.parents_ids @> ARRAY[_comment_id] from "comment" com where id = _comment_id_response), 'parents_ids not contain "' || _comment_id::text || '" ' || (select com.parents_ids::text[] from "comment" com where id = _comment_id_response);
|
|
assert (select com.parents_ids @> ARRAY[_comment_id_response] from "comment" com where id = _comment_id_response2), 'parents_ids not contain "' || _comment_id_response::text || '" ' || (select com.parents_ids::text[] from "comment" com where id = _comment_id_response2);
|
|
assert (select com.parents_ids @> ARRAY[_comment_id] from "comment" com where id = _comment_id_response2), 'parents_ids not contain "' || _comment_id::text || '" ' || (select com.parents_ids::text[] from "comment" com where id = _comment_id_response2);
|
|
|
|
select resource into _find_comments_by_target_result
|
|
from find_comments_by_target((_article_id)::uuid);
|
|
assert json_array_length(_find_comments_by_target_result) = 1,
|
|
'the result should contain 1 comment, ' || json_array_length(_find_comments_by_target_result) || ' returned';
|
|
assert (_find_comments_by_target_result#>>'{0,content}') = 'edited content', 'the first content must contain "edited content", "' || (_find_comments_by_target_result#>>'{0,content}') || '" returned';
|
|
|
|
select resource into _find_comments_by_parent_result
|
|
from find_comments_by_parent(_comment_id_response);
|
|
assert json_array_length(_find_comments_by_parent_result) = 1,
|
|
'the result should contain 1 comment, ' || json_array_length(_find_comments_by_parent_result) || ' returned';
|
|
assert (_find_comments_by_parent_result#>>'{0,content}') = 'are you really sure ?', 'the third content must contain "are you really sure ?", "' || (_find_comments_by_parent_result#>>'{1,content}') || '" returned';
|
|
|
|
rollback;
|
|
raise notice 'comment test pass';
|
|
end
|
|
$$;
|