void chest_free(chest_t *q) {
int p, n;
for (p=0;p<q->nof_ports;p++) {
for (n=0;n<NSLOTS_X_FRAME;n++) {
refsignal_free(&q->refsignal[p][n]);
}
}
#ifdef VOLK_INTERP
for (p=0;p<MAX_PORTS;p++) {
interp_free(&q->interp_freq[p]);
interp_free(&q->interp_time[p]);
}
#endif
bzero(q, sizeof(chest_t));
}
int main() {
interp_t *interp;
setenv("LUA_PATH", "?/init.lua;?.lua;?", 1);
interp_free(NULL); /* should not crash */
interp = interp_new(0, -1);
EXPECT(*interp_errstr(interp) == '\0',
"%s", interp_errstr(interp));
EXPECT(interp != NULL, "interp was NULL");
EXPECT(interp_load(interp, "IAHUHF.EAHFE.FHE.FH") == BIRK_ERROR,
"unexpected success of nonexistent library");
EXPECT(interp_load(interp, "birk.irc_test") == BIRK_OK,
"%s", interp_errstr(interp));
interp_free(interp);
return EXIT_SUCCESS;
}
