Remove redundant code from tests

Author: ChrisVine

tests/test-helpers-await.ss

@@ -70,13 +70,12 @@
 	  				  (+ 5 10)))))
 	    (test-result 15 res)
 	    (print-result)
-	    (event-loop-quit! main-loop)
-	    (event-loop-block! #f main-loop))))
+	    ;; we can apply event-loop-quit! here as we know the loop is running
+	    (event-loop-quit! main-loop))))
 (event-loop-run! main-loop)
 
 ;; Test 3: await-task-in-thread! with handler
 
-(event-loop-block! #t main-loop)
 (a-sync (lambda (await resume)
 	  (let ((res
 	  	 (await-task-in-thread!
@@ -87,8 +86,8 @@
 		    5))))
 	    (test-result 5 res)
 	    (print-result)
-	    (event-loop-quit! main-loop)
-	    (event-loop-block! #f main-loop))))
+	    ;; we can apply event-loop-quit! here as we know the loop is running
+	    (event-loop-quit! main-loop))))
 (event-loop-run! main-loop)
 
 ;; Test 4: await-task-in-event-loop!
@@ -567,8 +566,8 @@
 							 (+ 5 10)))))
 	      ((no-await (test-result 15 res)
 			 (print-result)
-			 (event-loop-quit! main-loop)
-			 (event-loop-block! #f main-loop))))
+			 ;; we can apply event-loop-quit! here as we know the loop is running
+			 (event-loop-quit! main-loop))))
 (event-loop-run! main-loop)
 
 ;;;;;;;;;; now the same tests with a default event loop ;;;;;;;;;;
@@ -600,27 +599,25 @@
 	  				  (+ 5 10)))))
 	    (test-result 15 res)
 	    (print-result)
-	    (event-loop-quit!)
-	    (event-loop-block! #f))))
+	    ;; we can apply event-loop-quit! here as we know the loop is running
+	    (event-loop-quit!))))
 (event-loop-run!)
 
 ;; Test 24: await-task-in-thread! without handler (explicit loop argument)
 
-(event-loop-block! #t)
 (a-sync (lambda (await resume)
 	  (let ((res
 	  	 (await-task-in-thread! await resume #f
 	  				(lambda ()
 	  				  (+ 5 10)))))
 	    (test-result 15 res)
 	    (print-result)
-	    (event-loop-quit!)
-	    (event-loop-block! #f))))
+	    ;; we can apply event-loop-quit! here as we know the loop is running
+	    (event-loop-quit!))))
 (event-loop-run!)
 
 ;; Test 25: await-task-in-thread! with handler
 
-(event-loop-block! #t)
 (a-sync (lambda (await resume)
 	  (let ((res
 	  	 (await-task-in-thread!
@@ -631,8 +628,8 @@
 		    5))))
 	    (test-result 5 res)
 	    (print-result)
-	    (event-loop-quit!)
-	    (event-loop-block! #f))))
+	    ;; we can apply event-loop-quit! here as we know the loop is running
+	    (event-loop-quit!))))
 (event-loop-run!)
 
 ;; Test 26: await-task-in-event-loop!
@@ -1120,6 +1117,6 @@
 					       (+ 5 10)))))
 	      ((no-await (test-result 15 res)
 			 (print-result)
-			 (event-loop-quit!)
-			 (event-loop-block! #f))))
+			 ;; we can apply event-loop-quit! here as we know the loop is running
+			 (event-loop-quit!))))
 (event-loop-run!)