#!/usr/bin/env rexx
/* test_rxfuncadd.rex - Test RxFuncAdd with new orxncurses */

do
    /* Register functions */
    call RxFuncAdd "OrxCurInitscr", "orxncurses", "OrxCurInitscr"
    call RxFuncAdd "OrxCurEndwin", "orxncurses", "OrxCurEndwin"

    /* Test initialization */
    call OrxCurInitscr
    say "Initscr worked!"
    call OrxCurEndwin
end

catch error
    say "Error:" error~message
    call OrxCurEndwin
exit