2016-12-17 22:13:37 -05:00
										 
									 
								 
							 | 
							
								
									
										
									
								
							 | 
							
								
							 | 
							
							
								USING: io.pathnames tools.test urls ;
							 | 
						
					
						
							
								
									
										
										
										
											2012-09-22 19:51:03 -04:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								IN: webbrowser
							 | 
						
					
						
							| 
								
							 | 
							
								
							 | 
							
								
							 | 
							
							
								
							 | 
						
					
						
							
								
									
										
										
										
											2012-09-22 19:52:01 -04:00
										 
									 
								 
							 | 
							
								
									
										
									
								
							 | 
							
								
							 | 
							
							
								{ t } [ "http://reddit.com" url-string? ] unit-test
							 | 
						
					
						
							| 
								
							 | 
							
								
							 | 
							
								
							 | 
							
							
								{ t } [ "https://reddit.com" url-string? ] unit-test
							 | 
						
					
						
							
								
									
										
										
										
											2016-12-17 20:58:04 -05:00
										 
									 
								 
							 | 
							
								
									
										
									
								
							 | 
							
								
							 | 
							
							
								{ t } [ "ftp://reddit.com" url-string? ] unit-test
							 | 
						
					
						
							| 
								
							 | 
							
								
							 | 
							
								
							 | 
							
							
								{ f } [ "moo" url-string? ] unit-test
							 | 
						
					
						
							
								
									
										
										
										
											2012-09-22 19:52:01 -04:00
										 
									 
								 
							 | 
							
								
									
										
									
								
							 | 
							
								
							 | 
							
							
								{ f } [ 123 url-string? ] unit-test
							 | 
						
					
						
							
								
									
										
										
										
											2016-12-17 21:23:24 -05:00
										 
									 
								 
							 | 
							
								
									
										
									
								
							 | 
							
								
							 | 
							
							
								
							 | 
						
					
						
							| 
								
							 | 
							
								
							 | 
							
								
							 | 
							
							
								{ } [ "" absolute-path open-item ] unit-test
							 | 
						
					
						
							
								
									
										
										
										
											2016-12-17 22:13:37 -05:00
										 
									 
								 
							 | 
							
								
									
										
									
								
							 | 
							
								
							 | 
							
							
								{ } [ URL" http://www.google.com" open-item ] unit-test
							 |