29 lines
		
	
	
		
			702 B
		
	
	
	
		
			Factor
		
	
	
		
			Executable File
		
	
			
		
		
	
	
			29 lines
		
	
	
		
			702 B
		
	
	
	
		
			Factor
		
	
	
		
			Executable File
		
	
USING: alien alien.libraries alien.syntax tools.test kernel ;
 | 
						|
IN: alien.libraries.tests
 | 
						|
 | 
						|
[ f ] [ DLL" fadfasdfsada" dll-valid? ] unit-test
 | 
						|
 | 
						|
[ f ] [ "does not exist" DLL" fadsfasfdsaf" dlsym ] unit-test
 | 
						|
 | 
						|
[ ] [ "doesnotexist" dlopen dlclose ] unit-test
 | 
						|
 | 
						|
[ "fdasfsf" dll-valid? drop ] must-fail
 | 
						|
 | 
						|
[ t ] [
 | 
						|
    "test-library" "blah" cdecl add-library
 | 
						|
    "test-library" "BLAH" cdecl add-library?
 | 
						|
    "blah" remove-library
 | 
						|
] unit-test
 | 
						|
 | 
						|
[ t ] [
 | 
						|
    "test-library" "blah" cdecl add-library
 | 
						|
    "test-library" "blah" stdcall add-library?
 | 
						|
    "blah" remove-library
 | 
						|
] unit-test
 | 
						|
 | 
						|
[ f ] [
 | 
						|
    "test-library" "blah" cdecl add-library
 | 
						|
    "test-library" "blah" cdecl add-library?
 | 
						|
    "blah" remove-library
 | 
						|
] unit-test
 |