diff options
author | amirouche <amirouche+dev@hypermove.net> | 2018-01-30 20:46:50 +0100 |
---|---|---|
committer | amirouche <amirouche+dev@hypermove.net> | 2018-01-30 20:46:50 +0100 |
commit | 20f109b24239fb25c46fcc0cffe70b4608ba5d66 (patch) | |
tree | c4edffaa53b63b0f1a5a9aa5a3ab55511aa6b0df | |
parent | 62de48d2d47af5e3311ec504605a2630662a0899 (diff) | |
download | gnunet-guile2-20f109b24239fb25c46fcc0cffe70b4608ba5d66.tar.gz gnunet-guile2-20f109b24239fb25c46fcc0cffe70b4608ba5d66.zip |
add test-two-scheduler.scm
-rw-r--r-- | guix.scm | 1 | ||||
-rw-r--r-- | test-two-scheduler.scm | 15 |
2 files changed, 16 insertions, 0 deletions
@@ -148,6 +148,7 @@ | |||
148 | ;; "--enable-experimental") | 148 | ;; "--enable-experimental") |
149 | #:parallel-tests? #f ; parallel building is not functional | 149 | #:parallel-tests? #f ; parallel building is not functional |
150 | #:tests? #f ; FAIL: test_gnunet_statistics.py | 150 | #:tests? #f ; FAIL: test_gnunet_statistics.py |
151 | #:strip-binaries? #f | ||
151 | #:phases | 152 | #:phases |
152 | ;; swap check and install phases and set paths to installed bin | 153 | ;; swap check and install phases and set paths to installed bin |
153 | (modify-phases %standard-phases | 154 | (modify-phases %standard-phases |
diff --git a/test-two-scheduler.scm b/test-two-scheduler.scm new file mode 100644 index 0000000..be28536 --- /dev/null +++ b/test-two-scheduler.scm | |||
@@ -0,0 +1,15 @@ | |||
1 | (use-modules ((gnunet sync))) | ||
2 | |||
3 | |||
4 | (define (run-search) | ||
5 | "Run a background thread to look for new messages" | ||
6 | (call-with-new-thread | ||
7 | (lambda () | ||
8 | (pk "starting thread") | ||
9 | (let loop () | ||
10 | (search "etc/p2.conf" '("c3b2://v1/message")) | ||
11 | (loop) | ||
12 | (sleep 1))))) | ||
13 | |||
14 | (run-search) | ||
15 | (run-search) | ||