Re: Introduce pg_receivewal gzip compression tests

Le 12/07/2021 à 12:27, gkokolatos(at)pm(dot)me a écrit :
>>>>
>>>> Shouldn't this be coded as a loop going through @gzip_wals?
>>> I would hope that there is only one gz file created. There is a line
>>>
>>> further up that tests exactly that.
>>>
>>> - is (scalar(@gzip_wals), 1, "one gzip compressed WAL was created");
>> Let me amend that. The line should be instead:
>>
>> is (scalar(keys @gzip_wals), 1, "one gzip compressed WAL was created");
>>
>> To properly test that there is one entry.
>>
>> Let me provide with v2 to fix this.

The following tests are not correct in Perl even if Perl returns the
right value.

+    is (scalar(keys @gzip_wals), 1, "one gzip compressed WAL was created");

+    is (scalar(keys @gzip_partial_wals), 1,
+        "one partial gzip compressed WAL was created");

Function keys or values are used only with hashes but here you are using
arrays. To obtain the length of the array you can just use the scalar
function as Perl returns the length of the array when it is called in a
scalar context. Please use the following instead:

+    is (scalar(@gzip_wals), 1, "one gzip compressed WAL was created");

+    is (scalar(@gzip_partial_wals), 1,
+        "one partial gzip compressed WAL was created");

--
Gilles Darold
http://www.darold.net/