view release on metacpan or  search on metacpan

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

    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