A simple test that store a catched continuation.

astares · Jan 15, 2020 · c69e9f3 · c69e9f3
1 parent 763a178
commit c69e9f3
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/src/Kernel-Tests/ContinuationTest.class.st b/src/Kernel-Tests/ContinuationTest.class.st
@@ -98,6 +98,18 @@ ContinuationTest >> testSimpleCallCC [
 	self assert: x
 ]
 
+{ #category : #'as yet unclassified' }
+ContinuationTest >> testSimpleStoreCallCC [
+	| x continuation |
+	continuation := self callcc: #yourself.
+	x := false.
+	continuation = true
+		ifTrue: [ x := true ]
+		ifFalse: [ continuation value: true.
+			self error: 'This message shouldn''t be sent, ever.' ].
+	self assert: x
+]
+
 { #category : #tests }
 ContinuationTest >> testSimplestCallCC [
 	| x |