diff --git a/tests/parallelism.scm b/tests/parallelism.scm
index f005d71..9881a4d 100644
--- a/tests/parallelism.scm
+++ b/tests/parallelism.scm
@@ -93,4 +93,22 @@
         1))
      #:unwind? #t)))
 
+(run-fibers-for-tests
+ (lambda ()
+   (let ((a 0))
+     (call-with-values
+         (lambda ()
+           (fibers-parallel
+            (begin
+              (sleep 1)
+              1)
+            (begin
+              (set! a 1)
+              2)))
+       (lambda (a b)
+         (assert-equal a 1)
+         (assert-equal b 2)))
+
+     (assert-equal a 1))))
+
 (display "parallelism test finished successfully\n")