1.1 --- a/tests/t_filesys.e	Wed Dec 21 23:38:39 2011 -0300
     1.2 +++ b/tests/t_filesys.e	Thu Dec 22 00:49:44 2011 -0300
     1.3 @@ -196,13 +196,18 @@
     1.4  test_equal( "canonical_path() #13", current_dir() & SLASH & "*.txt", canonical_path( "*.txt" ) )
     1.5  test_equal( "canonical_path() #14", current_dir() & SLASH & "*.txt", canonical_path( "../tests/*.txt" ) )
     1.6  
     1.7 --- one of these two tests below will change the case of the drive letter and CORRECT should restore it.
     1.8 -test_equal( "canonical_path #15 can change lower case version to the original version",
     1.9 -	current_dir(), canonical_path(lower(current_dir()),, CORRECT) )
    1.10 +ifdef WINDOWS then
    1.11 +	-- These tests only make sense on a case insensitive file system.
    1.12 +	-- Technically, that doesn't necessarily mean windows, but in 
    1.13 +	-- general Windows is where this happens.
    1.14 +	
    1.15 +	-- one of these two tests below will change the case of the drive letter and CORRECT should restore it.
    1.16 +	test_equal( "canonical_path #15 can change lower case version to the original version",
    1.17 +		current_dir(), canonical_path(lower(current_dir()),, CORRECT) )
    1.18  
    1.19 -test_equal( "canonical_path #16 can change upper case version to the original version",
    1.20 -	current_dir(), canonical_path(upper(current_dir()),, CORRECT) )
    1.21 -
    1.22 +	test_equal( "canonical_path #16 can change upper case version to the original version",
    1.23 +		current_dir(), canonical_path(upper(current_dir()),, CORRECT) )
    1.24 +end ifdef
    1.25  sequence walk_data = {}
    1.26  function test_walk( sequence path_name, sequence item )
    1.27  	walk_data = append( walk_data, { path_name, item[D_NAME] } )