summaryrefslogtreecommitdiffstats
path: root/test/ttsafe_error.c
blob: 1dafd233d314dbfbca1dafc1c3b4036da5864150 (plain)
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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
/********************************************************************
 *
 * Testing thread safety. Deliberate per-thread errors to test error stack
 * -----------------------------------------------------------------------
 *
 * Create 16 multiple threads to create datasets with the same name. The
 * library should respond with 15 equivalent error stack printouts (one for
 * each bad thread). The final hdf5 file should be a valid file with one
 * entry.
 *
 * Temporary files generated:
 *   ttsafe.h5
 *
 * HDF5 APIs exercised in thread:
 * H5Screate_simple, H5Tcopy, H5Tset_order, H5Dcreate, H5Dclose,
 * H5Tclose, H5Sclose.
 *
 * Created: Apr 28 2000
 * Programmer: Chee Wai LEE
 *
 * Modification History
 * --------------------
 *
 ********************************************************************/
#include "ttsafe.h"

#ifndef H5_HAVE_THREADSAFE
static int dummy;	/* just to create a non-empty object file */
#else

#define NUM_THREAD 16
#define FILE "ttsafe.h5"
/* Having a common dataset name is an error */
#define DATASETNAME "commonname"
#define EXPECTED_ERROR_DEPTH 3
#define WRITE_NUMBER 37

herr_t error_callback(void *);
herr_t walk_error_callback(int, H5E_error_t *, void *);
void *tts_error_thread(void *);
hid_t error_file;

typedef struct err_num_struct {
  int maj_num;
  int min_num;
} err_num_t;

err_num_t expected[] = {{15, 23}, {15, 23}, {10, 32}};
int error_flag = 0;
int error_count = 0;

pthread_mutex_t error_mutex;

void tts_error(void) {

  int i;

  pthread_t threads[NUM_THREAD];
  pthread_attr_t attribute;

  hid_t dataset;
  int value;

  H5E_auto_t old_error_cb;
  void *old_error_client_data;

  /* set up mutex for global count of errors */
  pthread_mutex_init(&error_mutex, NULL);

  /* preserve previous error stack handler */
  H5Eget_auto(&old_error_cb, &old_error_client_data);

  /* set our own auto error stack handler */
  H5Eset_auto(error_callback, NULL);

  /* make thread scheduling global */
  pthread_attr_init(&attribute);
  pthread_attr_setscope(&attribute, PTHREAD_SCOPE_SYSTEM);

  /* create a hdf5 file using H5F_ACC_TRUNC access,
   * default file creation plist and default file
   * access plist
   */
  error_file = H5Fcreate(FILE, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);

  for (i=0;i<NUM_THREAD;i++) {
    pthread_create(&threads[i], &attribute, tts_error_thread, NULL);
  }

  for (i=0;i<NUM_THREAD;i++) {
    pthread_join(threads[i],NULL);
  }

  if (error_flag) {
    fprintf(stderr, "Threads reporting different error values!\n");
  }

  if (error_count != NUM_THREAD - 1) {
    fprintf(stderr, "Error: %d threads failed instead of %d\n",
	    error_count, NUM_THREAD-1);
  }

  dataset = H5Dopen(error_file, DATASETNAME);
  H5Dread(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, &value);

  if (value != WRITE_NUMBER) {
    fprintf(stderr,
	    "Error: Successful thread wrote value %d instead of %d\n",
	    value, WRITE_NUMBER);
  }

  H5Dclose(dataset);
  H5Fclose(error_file);

  /* turn our error stack handler off */
  H5Eset_auto(old_error_cb, old_error_client_data);
}

void *tts_error_thread(void *arg) {

  hid_t   dataspace, datatype, dataset;
  hsize_t dimsf[1];               /* dataset dimensions */
  int value;

  /* define dataspace for dataset
   */
  dimsf[0] = 1;
  dataspace = H5Screate_simple(1,dimsf,NULL);

  /* define datatype for the data using native little endian integers
   */
  datatype = H5Tcopy(H5T_NATIVE_INT);
  H5Tset_order(datatype, H5T_ORDER_LE);

  /* create a new dataset within the file
   */
  dataset = H5Dcreate(error_file, DATASETNAME, datatype, dataspace,
		      H5P_DEFAULT);
  if (dataset >= 0) {   /* not an error */
    value = WRITE_NUMBER;
    H5Dwrite(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, &value);
    
    H5Dclose(dataset);
  }
  H5Tclose(datatype);
  H5Sclose(dataspace);
  return (NULL);
}

void cleanup_error() {
}

herr_t error_callback(void *client_data) {
  pthread_mutex_lock(&error_mutex);
  error_count++;
  pthread_mutex_unlock(&error_mutex);
  return (H5Ewalk(H5E_WALK_DOWNWARD, walk_error_callback, NULL));
}

herr_t walk_error_callback(int n, H5E_error_t *err_desc,
			   void *client_data) {
  int maj_num, min_num;

  if (err_desc) {
    maj_num = err_desc->maj_num;
    min_num = err_desc->min_num;
    
    if (n < EXPECTED_ERROR_DEPTH) {
      if (maj_num == expected[n].maj_num &&
	  min_num == expected[n].min_num) {
	return SUCCEED;
      }
    }
  }
  error_flag = -1;
  return SUCCEED;
}

#endif /*H5_HAVE_THREADSAFE*/