| 
									
										
										
										
											2015-06-29 19:43:15 -04:00
										 |  |  | USING: layouts math tools.test ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											2015-07-02 20:28:17 -04:00
										 |  |  | { t } [ cell integer? ] unit-test | 
					
						
							|  |  |  | { t } [ bootstrap-cell integer? ] unit-test | 
					
						
							| 
									
										
										
										
											2015-06-29 19:43:15 -04:00
										 |  |  | 
 | 
					
						
							|  |  |  | ! Smoke test | 
					
						
							| 
									
										
										
										
											2015-07-02 20:28:17 -04:00
										 |  |  | { t } [ max-array-capacity cell-bits 2^ < ] unit-test | 
					
						
							| 
									
										
										
										
											2015-06-29 19:43:15 -04:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											2015-07-02 20:28:17 -04:00
										 |  |  | { t } [ most-negative-fixnum fixnum? ] unit-test | 
					
						
							|  |  |  | { t } [ most-positive-fixnum fixnum? ] unit-test |