summaryrefslogtreecommitdiff
path: root/testsuite/tests/rts/ipeEventLog_fromMap.c
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/tests/rts/ipeEventLog_fromMap.c')
-rw-r--r--testsuite/tests/rts/ipeEventLog_fromMap.c35
1 files changed, 0 insertions, 35 deletions
diff --git a/testsuite/tests/rts/ipeEventLog_fromMap.c b/testsuite/tests/rts/ipeEventLog_fromMap.c
deleted file mode 100644
index 5bd9e4d034..0000000000
--- a/testsuite/tests/rts/ipeEventLog_fromMap.c
+++ /dev/null
@@ -1,35 +0,0 @@
-#include "Rts.h"
-#include "RtsAPI.h"
-#include "rts/IPE.h"
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-
-extern void dumpIPEToEventLog(void);
-InfoProvEnt *makeAnyProvEntry(Capability *cap, int i);
-
-int main(int argc, char *argv[]) {
- hs_init(&argc, &argv);
- Capability *cap = rts_lock();
-
- HaskellObj one = rts_mkInt(cap, 1);
-
- InfoProvEnt *provEnt_0 = makeAnyProvEntry(cap, 0);
- InfoProvEnt *provEnt_1 = makeAnyProvEntry(cap, 1);
-
- InfoProvEnt **ipeList_1 = malloc(sizeof(InfoProvEnt *) * 3);
- ipeList_1[0] = provEnt_0;
- ipeList_1[1] = provEnt_1;
- ipeList_1[2] = NULL;
-
- registerInfoProvList(ipeList_1);
-
- // Query an IPE to initialize the underlying hash map.
- lookupIPE(ipeList_1[0]->info);
-
- // Trace all IPE events.
- dumpIPEToEventLog();
-
- rts_unlock(cap);
- hs_exit();
-}