13 lines
		
	
	
		
			310 B
		
	
	
	
		
			Factor
		
	
	
		
			Executable File
		
	
			
		
		
	
	
			13 lines
		
	
	
		
			310 B
		
	
	
	
		
			Factor
		
	
	
		
			Executable File
		
	
| IN: concurrency.promises.tests
 | |
| USING: vectors concurrency.promises kernel threads sequences
 | |
| tools.test ;
 | |
| 
 | |
| [ V{ 50 50 50 } ] [
 | |
|     0 <vector>
 | |
|     <promise>
 | |
|     [ ?promise swap push ] in-thread
 | |
|     [ ?promise swap push ] in-thread
 | |
|     [ ?promise swap push ] in-thread
 | |
|     50 swap fulfill
 | |
| ] unit-test
 |