aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authoramirouche <amirouche+dev@hypermove.net>2018-01-30 20:46:50 +0100
committeramirouche <amirouche+dev@hypermove.net>2018-01-30 20:46:50 +0100
commit20f109b24239fb25c46fcc0cffe70b4608ba5d66 (patch)
treec4edffaa53b63b0f1a5a9aa5a3ab55511aa6b0df
parent62de48d2d47af5e3311ec504605a2630662a0899 (diff)
downloadgnunet-guile2-20f109b24239fb25c46fcc0cffe70b4608ba5d66.tar.gz
gnunet-guile2-20f109b24239fb25c46fcc0cffe70b4608ba5d66.zip
add test-two-scheduler.scm
-rw-r--r--guix.scm1
-rw-r--r--test-two-scheduler.scm15
2 files changed, 16 insertions, 0 deletions
diff --git a/guix.scm b/guix.scm
index 685a427..960589b 100644
--- a/guix.scm
+++ b/guix.scm
@@ -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)