vocabs.metadata: wrap test in a with-manifest to ensure there's a manifest. Fixes #1463.
							parent
							
								
									2a520191e1
								
							
						
					
					
						commit
						b2a51dfeb2
					
				| 
						 | 
				
			
			@ -5,10 +5,12 @@ IN: vocabs.metadata
 | 
			
		|||
: wrong-platform-vocab-name ( -- name )
 | 
			
		||||
    os windows? "unix" "windows" ? ;
 | 
			
		||||
 | 
			
		||||
[ wrong-platform-vocab-name use-vocab ]
 | 
			
		||||
[ error>> unsupported-platform? ] must-fail-with
 | 
			
		||||
[
 | 
			
		||||
    [ wrong-platform-vocab-name use-vocab ]
 | 
			
		||||
    [ error>> unsupported-platform? ] must-fail-with
 | 
			
		||||
 | 
			
		||||
! Factor remembers that we tried to load the wrong vocab
 | 
			
		||||
! and this breaks f2 until we forget the vocab.
 | 
			
		||||
! See issue #1463.
 | 
			
		||||
[ wrong-platform-vocab-name forget-vocab ] try
 | 
			
		||||
    ! Factor remembers that we tried to load the wrong vocab
 | 
			
		||||
    ! and this breaks f2 until we forget the vocab.
 | 
			
		||||
    ! See issue #1463.
 | 
			
		||||
    [ wrong-platform-vocab-name forget-vocab ] try
 | 
			
		||||
] with-manifest
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue