diff --git a/org/qmckl_error.org b/org/qmckl_error.org index 9c958cf..11eda5a 100644 --- a/org/qmckl_error.org +++ b/org/qmckl_error.org @@ -36,6 +36,9 @@ #include "config.h" #endif int main() { + qmckl_context context; + context = qmckl_context_create(); + #+end_src #+end_src @@ -407,9 +410,13 @@ if (x < 0) { ** Test #+begin_src c :comments link :tangle (eval c_test) -const char* function_name[QMCKL_MAX_FUN_LEN]={'q','m','c','k','l','_','t','r','a','n','s','p','o','s','e','\0'}; -const char* message[QMCKL_MAX_FUN_LEN]={'S','u','c','c','e','s','s','\0'}; -return 0; + const char* function_name[QMCKL_MAX_FUN_LEN]={'q','m','c','k','l','_','t','r','a','n','s','p','o','s','e','\0'}; + const char* message[QMCKL_MAX_FUN_LEN]={'S','u','c','c','e','s','s','\0'}; + qmckl_exit_code exit_code; + exit_code = 0; + + assert (qmckl_set_error(context, exit_code, function_name, message) == QMCKL_SUCCESS); + return 0; } #+end_src