view release on metacpan or  search on metacpan

t/01-basic.t  view on Meta::CPAN

#include <libpq-fe.h>

MODULE = Foo PACKAGE = Foo

int
check_connect(conninfo)
    const char *conninfo
CODE:
    PGconn *conn = PQconnectdb(conninfo);
    if (!conn) {
        fprintf(stderr, "PQconnectdb returned NULL\n");
        RETVAL = 1;
    } else {
        RETVAL = (PQstatus(conn) != CONNECTION_OK);
        if (RETVAL)
            fprintf(stderr, "PQconnectdb: %s\n", PQerrorMessage(conn));
        PQfinish(conn);
    }
OUTPUT:
    RETVAL