It does not fix anything
It behaves like a politician… it just ignores the problem 

There was not even the need to run the test
Just looking at the code it was easy enough to spot that 
It just runs the  tests on windows only


  subdir = .File~new("Y/Z", f)
  -- verify the separator translation
  -- qualify will translate / to \ on Windows only
  -- on Unix-like systems \ isn't translated to /
  if .File~separator == "\" then do
      self~assertEquals(f~absolutePath||"\Y\Z", subdir~path)
      if \.File~isCaseSensitive then do
          subdir2 = .File~new("y\z", f)
          self~assertEquals(subdir, subdir2)
      end
  end



Jus a little reminder …
On most systems the case sensitivity is an operating system property
On Darwin the case sensitivity is a property of each filesystems
( that is the reason I always run the tests twice ,
On the “Macintosh HD” filesystem and on an usb drive with a case sensitive 
filesystem ) 

the test for case sensitiveness - at least on Darwin - must be done on a real 
file name 

Using    .File~isCaseSensitive   returns the case sensitiveness of the boot 
volume  

The docs should be fixed to mention it

So as a courtesy - while I still have some left -
I am posting again the proper solution with a small correction 
Retested on both types of filesystems 


The separator translation and the case sensitivity do NOT depend on each other

  subdir = .File~new("Y/Z", f)
  -- verify the separator translation
  -- qualify will translate / to \ on Windows only
  -- on Unix-like systems \ isn't translated to /
  if .File~separator == "\" then do
      self~assertEquals(f~absolutePath||"\Y\Z", subdir~path)
  end

  -- verify that case sensitivity is properly handled
  —- note the test is done on a Real file  
  subdir = .File~new("Y" || .File~separator || "Z", f)
  if \subdir~isCaseSensitive then do
    subdir2 = .File~new("y" || .File~separator || "z", f)
    self~assertEquals(subdir, subdir2)
  end


rexx testOORexx.rex -s -F File.testGroup

Run on a case sensitive file system
/Volumes/My Passport for Mac/ooRexx.svn.testSuite

Executing .../ooRexx/base/class/File.testGroup

ooTest Framework - Automated Test of the ooRexx Interpreter

Interpreter:        REXX-ooRexx_5.0.0(MT)_64-bit 6.05 2 Mar 2019
OS Name:            DARWIN
SysVersion:         Darwin 17.7.0

Tests ran:          29
Assertions:         162
Failures:           0
Errors:             0



rexx testOORexx.rex -s -F File.testGroup

Run on a case insensitive file system
/Users/enrico/ooRexx.svn.testSuite

Executing .../ooRexx/base/class/File.testGroup

ooTest Framework - Automated Test of the ooRexx Interpreter

Interpreter:        REXX-ooRexx_5.0.0(MT)_64-bit 6.05 2 Mar 2019
OS Name:            DARWIN
SysVersion:         Darwin 17.7.0

Tests ran:          29
Assertions:         163
Failures:           0
Errors:             0













_______________________________________________
Oorexx-devel mailing list
Oorexx-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/oorexx-devel

Reply via email to