TREX/qmckl
1
0
Fork 0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2024-12-22 20:36:01 +01:00
Code Issues Projects Releases Wiki Activity

Added test for qmckl_set_error and qmckl_get_error. #15

Browse Source
This commit is contained in:
vijay gopal chilkuri 2021-05-25 17:16:21 +05:30
parent 7c7a166bb8
commit 8fc3aa9330
1 changed files with 25 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
org/qmckl_error.org
View File

@ -30,8 +30,11 @@
#+end_src
#+begin_src c :tangle (eval c_test) :noweb yes
#include <string.h>
#include <stdio.h>
#include "qmckl.h"
#include "assert.h"
#include "qmckl_error_private_type.h"
#ifdef HAVE_CONFIG_H
#include "config.h"
#endif
@ -307,17 +310,18 @@ qmckl_set_error(qmckl_context context,
#+begin_src c :comments org :tangle (eval h_func) :exports none
qmckl_exit_code
qmckl_get_error(qmckl_context context,
const qmckl_exit_code exit_code,
const char* function_name,
const char* message);
qmckl_exit_code *exit_code,
char* function_name,
char* message);
#+end_src
# Source
#+begin_src c :tangle (eval c)
qmckl_exit_code
qmckl_get_error(qmckl_context context,
const char* function_name,
const char* message)
qmckl_exit_code *exit_code,
char* function_name,
char* message)
{
/* Passing a function name and a message is mandatory. */
assert (function_name != NULL);
@ -333,6 +337,7 @@ qmckl_get_error(qmckl_context context,
strncpy(function_name, ctx->error.function, QMCKL_MAX_FUN_LEN-1);
strncpy(message , ctx->error.message , QMCKL_MAX_MSG_LEN-1);
(*exit_code) = ctx->error.exit_code;
}
qmckl_unlock(context);
@ -410,12 +415,21 @@ 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'};
qmckl_exit_code exit_code;
exit_code = 0;
/* Initialize the variables */
char function_name[QMCKL_MAX_FUN_LEN]="";
char message[QMCKL_MAX_MSG_LEN]="";
/* Set the error code to be different from Success */
qmckl_exit_code exit_code;
exit_code = 1;
assert (qmckl_set_error(context, exit_code, "qmckl_transpose", "Success") == QMCKL_SUCCESS);
assert (qmckl_get_error(context, &exit_code, function_name, message) == QMCKL_SUCCESS);
assert (exit_code == 1);
//assert (function_name == "qmckl_transpose");
//assert (message == "Success");
assert (qmckl_set_error(context, exit_code, function_name, message) == QMCKL_SUCCESS);
return 0;
}
#+end_src