atmitest/test017_srvthread/atmiclt17.c

0001 /**
0002  * @brief Simple thread server caller.
0003  *
0004  * @file atmiclt17.c
0005  */
0006 /* -----------------------------------------------------------------------------
0007  * Enduro/X Middleware Platform for Distributed Transaction Processing
0008  * Copyright (C) 2009-2016, ATR Baltic, Ltd. All Rights Reserved.
0009  * Copyright (C) 2017-2023, Mavimax, Ltd. All Rights Reserved.
0010  * This software is released under one of the following licenses:
0011  * AGPL (with Java and Go exceptions) or Mavimax's license for commercial use.
0012  * See LICENSE file for full text.
0013  * -----------------------------------------------------------------------------
0014  * AGPL license:
0015  *
0016  * This program is free software; you can redistribute it and/or modify it under
0017  * the terms of the GNU Affero General Public License, version 3 as published
0018  * by the Free Software Foundation;
0019  *
0020  * This program is distributed in the hope that it will be useful, but WITHOUT ANY
0021  * WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
0022  * PARTICULAR PURPOSE. See the GNU Affero General Public License, version 3
0023  * for more details.
0024  *
0025  * You should have received a copy of the GNU Affero General Public License along
0026  * with this program; if not, write to the Free Software Foundation, Inc.,
0027  * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
0028  *
0029  * -----------------------------------------------------------------------------
0030  * A commercial use license is available from Mavimax, Ltd
0031  * contact@mavimax.com
0032  * -----------------------------------------------------------------------------
0033  */
0034 #include <string.h>
0035 #include <stdio.h>
0036 #include <stdlib.h>
0037 #include <memory.h>
0038 #include <math.h>
0039
0040 #include <atmi.h>
0041 #include <ubf.h>
0042 #include <ndebug.h>
0043 #include <test.fd.h>
0044 #include <ndrstandard.h>
0045 #include <nstopwatch.h>
0046 /*---------------------------Externs------------------------------------*/
0047 /*---------------------------Macros-------------------------------------*/
0048 /*---------------------------Enums--------------------------------------*/
0049 /*---------------------------Typedefs-----------------------------------*/
0050 /*---------------------------Globals------------------------------------*/
0051 /*---------------------------Statics------------------------------------*/
0052 /*---------------------------Prototypes---------------------------------*/
0053
0054 /*
0055  * Do the test call to the server
0056  */
0057 int main(int argc, char** argv) {
0058
0059     UBFH *p_ub = (UBFH *)tpalloc("UBF", NULL, 9217);
0060     long rsplen;
0061     int i;
0062     int ret=EXSUCCEED;
0063     double d;
0064     int j;
0065     int calls = 0;
0066     ndrx_stopwatch_t timer;
0067     double cps;
0068
0069     ndrx_stopwatch_reset(&timer);
0070     for (j = 0; j<100; j++)
0071     {
0072         UBFH *p_ub = (UBFH *)tpalloc("UBF", NULL, 9217);
0073
0074     double dv = 55.66;
0075
0076     ndrx_stopwatch_t timer;
0077     int call_num = MAX_ASYNC_CALLS *4;
0078     Badd(p_ub, T_STRING_FLD, "THIS IS TEST FIELD 1", 0);
0079     Badd(p_ub, T_STRING_FLD, "THIS IS TEST FIELD 2", 0);
0080     Badd(p_ub, T_STRING_FLD, "THIS IS TEST FIELD 3", 0);
0081     Badd(p_ub, T_DOUBLE_FLD, (char *)&dv, 0);
0082
0083     for (i=1; i<100; i++)
0084     {
0085         calls++;
0086         dv+=1;
0087
0088         if (EXFAIL == tpcall("TESTSV", (char *)p_ub, 0L, (char **)&p_ub, &rsplen,0))
0089         {
0090             NDRX_LOG(log_error, "TESTERROR TESTSV failed: %s", tpstrerror(tperrno));
0091             ret=EXFAIL;
0092             goto out;
0093         }
0094
0095         /* Verify the data */
0096         if (EXFAIL==Bget(p_ub, T_DOUBLE_FLD, i, (char *)&d, 0))
0097         {
0098             NDRX_LOG(log_error, "TESTERROR Failed to get T_DOUBLE_FLD[%d]", i);
0099             ret=EXFAIL;
0100             goto out;
0101         }
0102
0103         if (fabs(dv - d) > 0.00001)
0104         {
0105             NDRX_LOG(log_error, "TESTERROR %lf!=%lf =>  FAIL", dv, d);
0106             ret=EXFAIL;
0107             goto out;
0108         }
0109
0110         /* print the output
0111         Bfprint(p_ub, stderr);
0112         */
0113     }
0114            tpfree((char *)p_ub);
0115     }
0116
0117     cps = (double)(calls)/(double)ndrx_stopwatch_get_delta_sec(&timer);
0118     printf("Performance - Nr calls: %d calls per sec: %lf\n", calls, cps);
0119
0120 out:
0121     tpterm();
0122     NDRX_LOG(log_error, "RESULT: %d", ret);
0123     return ret;
0124 }
0125
0126 /* vim: set ts=4 sw=4 et smartindent: */