Add tests for PAUSE.

python-processing-unit · python-processing-unit · commit e76ad8e080da · 2026-04-17T00:52:13.000-04:00
diff --git a/tests/cases/failing/pause-already-paused.pre b/tests/cases/failing/pause-already-paused.pre
@@ -0,0 +1,7 @@
+THR(worker){
+    WHILE(TRUE){}
+}
+
+PAUSE(worker)
+PAUSE(worker)
+STOP(worker)
diff --git a/tests/cases/failing/pause-arity-three.pre b/tests/cases/failing/pause-arity-three.pre
@@ -0,0 +1,2 @@
+THR(worker){}
+PAUSE(worker, 0d0.0, 0d0.0)
diff --git a/tests/cases/failing/pause-arity-zero.pre b/tests/cases/failing/pause-arity-zero.pre
@@ -0,0 +1 @@
+PAUSE()
diff --git a/tests/cases/failing/pause-second-bool.pre b/tests/cases/failing/pause-second-bool.pre
@@ -0,0 +1,2 @@
+THR(worker){}
+PAUSE(worker, seconds = TRUE)
diff --git a/tests/cases/failing/pause-second-func.pre b/tests/cases/failing/pause-second-func.pre
@@ -0,0 +1,2 @@
+THR(worker){}
+PAUSE(worker, seconds = LAMBDA BOOL: (){})
diff --git a/tests/cases/failing/pause-second-int.pre b/tests/cases/failing/pause-second-int.pre
@@ -0,0 +1,2 @@
+THR(worker){}
+PAUSE(worker, seconds = 0d1)
diff --git a/tests/cases/failing/pause-second-map.pre b/tests/cases/failing/pause-second-map.pre
@@ -0,0 +1,2 @@
+THR(worker){}
+PAUSE(worker, seconds = <>)
diff --git a/tests/cases/failing/pause-second-positional.pre b/tests/cases/failing/pause-second-positional.pre
@@ -0,0 +1,2 @@
+THR(worker){}
+PAUSE(worker, 0d0.0)
diff --git a/tests/cases/failing/pause-second-str.pre b/tests/cases/failing/pause-second-str.pre
@@ -0,0 +1,2 @@
+THR(worker){}
+PAUSE(worker, seconds = "seconds")
diff --git a/tests/cases/failing/pause-second-thr.pre b/tests/cases/failing/pause-second-thr.pre
@@ -0,0 +1,3 @@
+THR(worker){}
+THR(delay){}
+PAUSE(worker, seconds = delay)
diff --git a/tests/cases/failing/pause-second-tns.pre b/tests/cases/failing/pause-second-tns.pre
@@ -0,0 +1,2 @@
+THR(worker){}
+PAUSE(worker, seconds = [0d1])
diff --git a/tests/cases/failing/pause-type-bool.pre b/tests/cases/failing/pause-type-bool.pre
@@ -0,0 +1 @@
+PAUSE(TRUE)
diff --git a/tests/cases/failing/pause-type-flt.pre b/tests/cases/failing/pause-type-flt.pre
@@ -0,0 +1 @@
+PAUSE(0d1.0)
diff --git a/tests/cases/failing/pause-type-func.pre b/tests/cases/failing/pause-type-func.pre
@@ -0,0 +1 @@
+PAUSE(LAMBDA BOOL: (){})
diff --git a/tests/cases/failing/pause-type-int.pre b/tests/cases/failing/pause-type-int.pre
@@ -0,0 +1 @@
+PAUSE(0d1)
diff --git a/tests/cases/failing/pause-type-map.pre b/tests/cases/failing/pause-type-map.pre
@@ -0,0 +1 @@
+PAUSE(<>)
diff --git a/tests/cases/failing/pause-type-str.pre b/tests/cases/failing/pause-type-str.pre
@@ -0,0 +1 @@
+PAUSE("thread")
diff --git a/tests/cases/failing/pause-type-tns.pre b/tests/cases/failing/pause-type-tns.pre
@@ -0,0 +1 @@
+PAUSE([0d1])
diff --git a/tests/cases/passing/pause-async-handle-autoresume.pre b/tests/cases/passing/pause-async-handle-autoresume.pre
@@ -0,0 +1,19 @@
+BOOL: released = FALSE
+
+THR: worker = ASYNC{
+    WHILE(NOT(released)){}
+}
+
+THR: paused = PAUSE(worker, seconds = 0d0.05)
+
+ASSERT(EQ(TYPE(paused), "THR"))
+ASSERT(EQ(paused, worker))
+ASSERT(BOOL(worker))
+ASSERT(PAUSED(worker))
+
+released = TRUE
+
+AWAIT(worker)
+
+ASSERT(NOT(BOOL(worker)))
+ASSERT(NOT(PAUSED(worker)))
diff --git a/tests/cases/passing/pause-explicit-negative-duration.pre b/tests/cases/passing/pause-explicit-negative-duration.pre
@@ -0,0 +1,19 @@
+BOOL: released = FALSE
+
+THR(worker){
+    WHILE(NOT(released)){}
+}
+
+THR: paused = PAUSE(worker, seconds = -0d1.0)
+
+ASSERT(EQ(paused, worker))
+ASSERT(PAUSED(worker))
+
+released = TRUE
+
+ASSERT(PAUSED(worker))
+
+AWAIT(RESUME(worker))
+
+ASSERT(NOT(BOOL(worker)))
+ASSERT(NOT(PAUSED(worker)))
diff --git a/tests/cases/passing/pause-thread-handle.pre b/tests/cases/passing/pause-thread-handle.pre
@@ -0,0 +1,23 @@
+BOOL: released = FALSE
+
+THR(worker){
+    WHILE(NOT(released)){}
+}
+
+ASSERT(BOOL(worker))
+
+THR: paused = PAUSE(worker)
+
+ASSERT(EQ(TYPE(paused), "THR"))
+ASSERT(EQ(paused, worker))
+ASSERT(BOOL(worker))
+ASSERT(PAUSED(worker))
+
+released = TRUE
+
+ASSERT(PAUSED(worker))
+
+AWAIT(RESUME(worker))
+
+ASSERT(NOT(BOOL(worker)))
+ASSERT(NOT(PAUSED(worker)))

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,2 @@`
	`1`	`+THR(worker){}`
	`2`	`+PAUSE(worker, 0d0.0, 0d0.0)`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,2 @@`
	`1`	`+THR(worker){}`
	`2`	`+PAUSE(worker, seconds = TRUE)`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,2 @@`
	`1`	`+THR(worker){}`
	`2`	`+PAUSE(worker, seconds = LAMBDA BOOL: (){})`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,2 @@`
	`1`	`+THR(worker){}`
	`2`	`+PAUSE(worker, seconds = 0d1)`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,2 @@`
	`1`	`+THR(worker){}`
	`2`	`+PAUSE(worker, seconds = <>)`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,2 @@`
	`1`	`+THR(worker){}`
	`2`	`+PAUSE(worker, 0d0.0)`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,2 @@`
	`1`	`+THR(worker){}`
	`2`	`+PAUSE(worker, seconds = "seconds")`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+THR(worker){}`
	`2`	`+THR(delay){}`
	`3`	`+PAUSE(worker, seconds = delay)`