| 
									
										
										
										
											2009-02-12 23:13:34 -05:00
										 |  |  | ! Copyright (C) 2009 Doug Coleman. | 
					
						
							|  |  |  | ! See http://factorcode.org/license.txt for BSD license. | 
					
						
							| 
									
										
										
										
											2009-12-28 21:05:09 -05:00
										 |  |  | USING: accessors kernel tools.test compression.zlib classes ;
 | 
					
						
							|  |  |  | QUALIFIED-WITH: compression.zlib.ffi ffi | 
					
						
							| 
									
										
										
										
											2009-02-12 23:13:34 -05:00
										 |  |  | IN: compression.zlib.tests | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | : compress-me ( -- byte-array ) B{ 1 2 3 4 5 } ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | [ t ] [ compress-me [ compress uncompress ] keep = ] unit-test | 
					
						
							|  |  |  | [ t ] [ compress-me compress compressed instance? ] unit-test | 
					
						
							| 
									
										
										
										
											2009-12-28 21:05:09 -05:00
										 |  |  | 
 | 
					
						
							|  |  |  | [ ffi:Z_DATA_ERROR zlib-error-message ] [ string>> "data error" = ] must-fail-with |