diff options
| author | Anonymized <anonymous@example.com> | 2018-01-20 20:42:14 +0100 |
|---|---|---|
| committer | Anonymized <anonymous@example.com> | 2018-01-20 20:42:14 +0100 |
| commit | f875c83afda32897e3cad359e7800170c0f89851 (patch) | |
| tree | 7ea3caa91e41f84ea2abae559adc42c4f766014e | |
| parent | afa20be5af70e4dde1d883a4c131a01f1827dbfc (diff) | |
| download | gnunet-guile2-f875c83afda32897e3cad359e7800170c0f89851.tar.gz gnunet-guile2-f875c83afda32897e3cad359e7800170c0f89851.zip | |
add test-sigpwr-fail.scm
test to reproduce the crash of guile which seems related to GC
| -rw-r--r-- | test-sigpwr-fail.scm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/test-sigpwr-fail.scm b/test-sigpwr-fail.scm new file mode 100644 index 0000000..b9579f8 --- /dev/null +++ b/test-sigpwr-fail.scm | |||
| @@ -0,0 +1,13 @@ | |||
| 1 | (use-modules ((gnunet sync))) | ||
| 2 | |||
| 3 | (define (discover configuration) | ||
| 4 | (let loop ((uris (search configuration '("c3b2://v1/message")))) | ||
| 5 | (unless (null? uris) | ||
| 6 | (let ((body (download configuration (car uris)))) | ||
| 7 | (when body | ||
| 8 | (pk 'add (car uris))) | ||
| 9 | (loop (cdr uris)))))) | ||
| 10 | |||
| 11 | (let loop () | ||
| 12 | (discover "etc/p2.conf") | ||
| 13 | (loop)) | ||