[bug#30701] [PATCH 2/3] tests: databases: Add a system test for PostgreSQL.

[Christopher Baines <mail@cbaines.net>]

[-- Attachment #1: Type: text/plain, Size: 1665 bytes --]


Clément Lassieur <clement@lassieur.org> writes:

> Christopher Baines <mail@cbaines.net> writes:
>
>> * gnu/tests/databases.scm (%postgresql-os, %test-postgresql): New variables.
>>   (run-postgresql-test): New procedure.
>> ---
>>  gnu/tests/databases.scm | 55 +++++++++++++++++++++++++++++++++++++++++++++++++
>>  1 file changed, 55 insertions(+)
>>
>> diff --git a/gnu/tests/databases.scm b/gnu/tests/databases.scm
>> index e7097690a..583f484d7 100644
>> --- a/gnu/tests/databases.scm
>> +++ b/gnu/tests/databases.scm
>> @@ -30,6 +30,7 @@
>>    #:use-module (guix store)
>>    #:export (%test-memcached
>>              %test-mongodb
>> +            %test-postgresql
>>              %test-mysql))
>>  
>>  (define %memcached-os
>> @@ -208,6 +209,60 @@
>>     (value (run-mongodb-test))))
>>  
>>  \f
>> +;;;
>> +;;; The PostgreSQL service.
>> +;;;
>> +
>> +(define %postgresql-os
>> +  (simple-operating-system
>> +   (service postgresql-service-type)))
>> +
>> +(define* (run-postgresql-test)
>
> define, instead of define*
>
>> +  "Run tests in %POSTGRESQL-OS."
>> +  (define os
>> +    (marionette-operating-system
>> +     %postgresql-os
>> +     #:imported-modules '((gnu services herd)
>> +                          (guix combinators))))
>> +
>> +  (define vm
>> +    (virtual-machine
>> +     (operating-system os)
>> +     (memory-size 512)))
>> +
>> +  (define test
>> +    (with-imported-modules '((gnu build marionette))
>> +      #~(begin
>> +          (use-modules (srfi srfi-11) (srfi srfi-64)
>
> I think srfi-11 is useless.

Good spot, I'll make these changes and send some new patches.

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 962 bytes --]