modTestCases.bas

Attribute VB_Name = "modTestCases"
Option Explicit
'@NO-LINT

' This module exists solely to list test conversion caess to make sure the converter can convert itself containing them.
' There should be no active and/or used code in this module.
' These tests are not run, they are conversion tests.  They should be converted correctly when this project is converted.

Public Sub testCallModuleFunction()
' module name (w/, w/o)
' assign value (w/w/o)
' empty args parans (w/w/o)
  Dim S As String
  modGit.GitVersion
  GitVersion
  modGit.GitCmd "git --version"
  S = modGit.GitCmd("git --verison")
  GitCmd "git --version"
  S = GitCmd("git --verison")
  
  S = modGit.GitVersion()
  modGit.GitVersion
  S = GitVersion()
  GitVersion
End Sub

Public Sub testBooleans()
' not (w/w/o)
' if (w/w/o)
' fcall (w/w/o)
  Dim B As Boolean, NB As Boolean

  B = HasGit
  B = HasGit()
  B = modGit.HasGit
  B = modGit.HasGit()

  B = Not HasGit
  B = Not HasGit()
  B = Not modGit.HasGit
  B = Not modGit.HasGit()
  
  TestCallWithBooleanFunction HasGit
  TestCallWithBooleanFunction Not HasGit
  TestCallWithBooleanFunction modGit.HasGit
  TestCallWithBooleanFunction Not modGit.HasGit
  TestCallWithBooleanFunction HasGit()
  TestCallWithBooleanFunction Not HasGit()
  TestCallWithBooleanFunction modGit.HasGit()
  TestCallWithBooleanFunction Not modGit.HasGit()
  
  If HasGit Then Debug.Print ""
  If HasGit() Then Debug.Print ""
  If modGit.HasGit Then Debug.Print
  If modGit.HasGit() Then Debug.Print
  
  If Not HasGit Then Debug.Print ""
  If Not HasGit() Then Debug.Print ""
  If Not modGit.HasGit Then Debug.Print
  If Not modGit.HasGit() Then Debug.Print
End Sub

Public Function TestCallWithBooleanFunction(ByVal B As Boolean) As Boolean
  TestCallWithBooleanFunction = True
End Function

' Also have Property in a comment
Public Function testFunctionWithPropertyInName() As String()
  testFunctionWithPropertyInName = Array()
End Function

Public Sub TestPrivateLocalFunctionCall()
  PrivateLocalFunctionCall
  Call PrivateLocalFunctionCall
End Sub

Private Sub PrivateLocalFunctionCall()
  ' empty
End Sub


' This will only be readable if the file converts with correct braces.
Public Function TestFileFinishesWell() As Boolean
  TestFileFinishesWell = True
End Function

Public Sub VB6FileAccess()
  Dim F As Long
  Dim ReadResult As Variant, ReadResult2 As String, ReadResult3 As Long
  F = FreeFile
  Open "C:\abc.txt" For Binary As #F
  Get #F, , ReadResult
  Put #F, , ReadResult
  Input #F, ReadResult
  Line Input #F, ReadResult
  Close #F
''''''''''''''
End Sub

Public Function getFrm() As frm
  Set getFrm = frm
End Function

Public Sub VerifyWith()
  With frm   ' Should be permitted.
    .Caption = .Caption
    .Top = 0
  End With
  
  With getFrm() ' Should NOT be permitted.
    .Caption = ""
    .Top = 0
  End With

  
  With frm ' Should be permitted.
    With .txtFile ' Should NOT be permitted
      .Text = ""
      .Top = 0
    End With
  End With
End Sub

Public Sub VerifyNumericLineNos()
100 Dim Something As String

  MsgBox "Hello World"
End Sub

Public Sub VerifyRemStatement()
  Rem This comment should persist
  MsgBox "Hello world"
End Sub