1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
/* -*- c -*- *****************************************************************
** Copyright (C) 2011 Sandia Corporation
** Under the terms of Contract DE-AC04-94AL85000 with Sandia Corporation,
** the U.S. Government retains certain rights in this software.
**
** This source code is released under the New BSD License.
**
** This exercises the radix-k unit tests of internal functions.
*****************************************************************************/
#include <IceT.h>
#include "test_codes.h"
#include "test_util.h"
#include <stdlib.h>
extern ICET_EXPORT IceTBoolean icetRadixkPartitionLookupUnitTest(void);
extern ICET_EXPORT IceTBoolean icetRadixkTelescopeSendReceiveTest(void);
static int RadixkUnitTestsRun(void)
{
IceTInt rank;
icetGetIntegerv(ICET_RANK, &rank);
if (rank != 0) {
return TEST_PASSED;
}
if (!icetRadixkPartitionLookupUnitTest()) {
return TEST_FAILED;
}
if (!icetRadixkTelescopeSendReceiveTest()) {
return TEST_FAILED;
}
return TEST_PASSED;
}
int RadixkUnitTests(int argc, char *argv[])
{
/* To remove warning. */
(void)argc;
(void)argv;
return run_test(RadixkUnitTestsRun);
}
|
