Public Function IsGoodGetExtension() As Boolean
' verify correct GetExtension returns
' returns True if all tests are passed
  
  ' replace "GetExtension01" with the name of your function to test
  Dim fFailed As Boolean
  
  If GetExtension01("c:\dir\file.txt") <> "txt" Then Stop: fFailed = True
  If GetExtension01("c:\dir\file.shtml") <> "shtml" Then Stop: fFailed = True
  If GetExtension01("c:\dir\file") <> "" Then Stop: fFailed = True
  If GetExtension01("c:\dir\file.") <> "" Then Stop: fFailed = True
  If GetExtension01("c:\dir\file..") <> "" Then Stop: fFailed = True
  If GetExtension01("c:\dir\file.x.") <> "" Then Stop: fFailed = True
  If GetExtension01("c:\dir.ext\file.txt") <> "txt" Then Stop: fFailed = True
  If GetExtension01("c:\dir.ext\file") <> "" Then Stop: fFailed = True
  If GetExtension01("file.txt") <> "txt" Then Stop: fFailed = True
  If GetExtension01("file.a.txt") <> "txt" Then Stop: fFailed = True
  If GetExtension01("file.a") <> "a" Then Stop: fFailed = True
  If GetExtension01(".a") <> "a" Then Stop: fFailed = True
  If GetExtension01("\.a") <> "a" Then Stop: fFailed = True
  If GetExtension01(".") <> "" Then Stop: fFailed = True
  If GetExtension01("file") <> "" Then Stop: fFailed = True
  If GetExtension01("file" & ChrW$(10 * 256 + 46) & "hmm") <> "" Then Stop: fFailed = True
  
  ' well done
  IsGoodGetExtension = Not fFailed
  
End Function


Back to GetExtension