| 
						
						
						
					 | 
					 | 
					@ -1,6 +1,7 @@
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					(use test)
 | 
					 | 
					 | 
					 | 
					(use test)
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					(import ssql)
 | 
					 | 
					 | 
					 | 
					(import ssql)
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					
 | 
					 | 
					 | 
					 | 
					
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					 | 
					 | 
					 | 
					 | 
					(test-group "composition"
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					  (test "simple"
 | 
					 | 
					 | 
					 | 
					  (test "simple"
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					    '(select (columns firstname lastname) (from artists) (where (= firstname "Frank")))
 | 
					 | 
					 | 
					 | 
					    '(select (columns firstname lastname) (from artists) (where (= firstname "Frank")))
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					    (ssql-compose #f
 | 
					 | 
					 | 
					 | 
					    (ssql-compose #f
 | 
				
			
			
		
	
	
		
		
			
				
					| 
						
						
						
							
								
							
						
					 | 
					 | 
					@ -10,4 +11,4 @@
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					  (test "merge"
 | 
					 | 
					 | 
					 | 
					  (test "merge"
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					    '(select (columns firstname lastname age) (from artists) (order firstname lastname))
 | 
					 | 
					 | 
					 | 
					    '(select (columns firstname lastname age) (from artists) (order firstname lastname))
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					    (ssql-compose #f '(select (columns firstname lastname) (order firstname))
 | 
					 | 
					 | 
					 | 
					    (ssql-compose #f '(select (columns firstname lastname) (order firstname))
 | 
				
			
			
		
	
		
		
			
				
					
					 | 
					 | 
					 | 
					                '((columns age) (from artists) (order lastname))))
 | 
					 | 
					 | 
					 | 
					                  '((columns age) (from artists) (order lastname)))))
 |