test_mysql.pir

.sub test :main
    .local pmc mysql
    .local pmc client
    .local pmc dbh
    mysql = loadlib 'libmysqlclient'
    $P0 = dlfunc mysql, 'mysql_init', 'pp'
    $P1 = null
    client = $P0($P1)
    $P0 = dlfunc mysql, 'mysql_real_connect', 'ppttttiti'
    $S0 = null
    dbh = $P0(client, '127.0.0.1', 'root', '', 'journal', 3306, $S0, 0)
    $I0 = defined dbh
    unless $I0 goto ERR
    branch END
  ERR:
    say 'error'
  END:
    say 'end'
.end