1 /* { dg-do compile } */
2 /* { dg-options "-fdiagnostics-format=json" } */
3
4 #include <stddef.h>
5 #include <stdlib.h>
6
7 /* Minimal reimplementation of cpython API. */
8 typedef struct PyObject {} PyObject;
9 extern int PyArg_ParseTuple (PyObject *args, const char *fmt, ...);
10 extern PyObject *PyList_New (int);
11 extern PyObject *PyLong_FromLong(long);
12 extern void PyList_Append(PyObject *list, PyObject *item);
13
14 PyObject *
make_a_list_of_random_ints_badly(PyObject * self,PyObject * args)15 make_a_list_of_random_ints_badly(PyObject *self,
16 PyObject *args)
17 {
18 PyObject *list, *item;
19 long count, i;
20
21 if (!PyArg_ParseTuple(args, "i", &count)) {
22 return NULL;
23 }
24
25 list = PyList_New(0);
26
27 for (i = 0; i < count; i++) {
28 item = PyLong_FromLong(random());
29 PyList_Append(list, item);
30 }
31
32 return list;
33 }
34
35 /* FIXME: test the events within a path. */
36 /* { dg-regexp "\"kind\": \"error\"" } */
37 /* { dg-regexp "\"path\": " } */
38 /* { dg-regexp ".*" } */
39