2009-01-30 11:15:26 -05:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								! (c)2009 Slava Pestov & Joe Groff, see BSD license
							 | 
						
					
						
							
								
									
										
										
										
											2009-01-30 11:29:25 -05:00
										 
									 
								 
							 | 
							
								
									
										
									
								
							 | 
							
								
							 | 
							
							
								USING: kernel sequences sequences.squish tools.test vectors ;
							 | 
						
					
						
							
								
									
										
										
										
											2009-01-30 11:15:26 -05:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								IN: sequences.squish.tests
							 | 
						
					
						
							| 
								
							 | 
							
								
							 | 
							
								
							 | 
							
							
								
							 | 
						
					
						
							| 
								
							 | 
							
								
							 | 
							
								
							 | 
							
							
								[ { { 1 2 3 } { 4 } { 5 6 } } ] [
							 | 
						
					
						
							| 
								
							 | 
							
								
							 | 
							
								
							 | 
							
							
								    V{ { 1 2 3 } V{ { 4 } { 5 6 } } }  
							 | 
						
					
						
							
								
									
										
										
										
											2009-01-30 11:29:25 -05:00
										 
									 
								 
							 | 
							
								
									
										
									
								
							 | 
							
								
							 | 
							
							
								    [ vector? ] { } squish
							 | 
						
					
						
							
								
									
										
										
										
											2009-01-30 11:15:26 -05:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								] unit-test
							 |