diff --git a/.github/workflows/lint_vba.yml b/.github/workflows/lint_vba.yml index 62310c8..f8ed1c7 100644 --- a/.github/workflows/lint_vba.yml +++ b/.github/workflows/lint_vba.yml @@ -15,7 +15,7 @@ jobs: - name: Precompile run: | python -m pip install --upgrade pip - pip install 'vba_precompiler @ git+https://github.com/Beakerboy/VBA-Precompiler@dev' + pip install 'vba_precompiler @ git+https://github.com/Beakerboy/VBA-Precompiler' python -m vba_precompiler ./src rm -rf ./src - name: Lint diff --git a/examples/ClassModules/TestCaseStub.cls b/examples/ClassModules/TestCaseStub.cls index 01a7e39..40011b0 100644 --- a/examples/ClassModules/TestCaseStub.cls +++ b/examples/ClassModules/TestCaseStub.cls @@ -45,6 +45,6 @@ End Sub ' Sub: MyFirstTest ' All test subs should end with "Test" and include at least one assertion. Sub MyFirstTest() - AssertTrue(2 = 1 + 1, "AssertTrue that one plus one equals two") - AssertEquals(1 + 1, 2, "AssertEquals that one plus one equals two") + AssertTrue 2 = 1 + 1, "AssertTrue that one plus one equals two" + AssertEquals 1 + 1, 2, "AssertEquals that one plus one equals two" End Sub diff --git a/examples/Modules/ProjectUnitTests.bas b/examples/Modules/ProjectUnitTests.bas index b802b91..8daac2d 100644 --- a/examples/Modules/ProjectUnitTests.bas +++ b/examples/Modules/ProjectUnitTests.bas @@ -1,3 +1,4 @@ +Attribute VB_Name = "ProjectUnitTests" Public Function RunTests() Dim TestConfig As iTestableProject diff --git a/testing/ClassModules/PostLogTests.cls b/testing/ClassModules/PostLogTests.cls index 7d0d0fa..ab85bb8 100644 --- a/testing/ClassModules/PostLogTests.cls +++ b/testing/ClassModules/PostLogTests.cls @@ -34,7 +34,7 @@ End Function ' Function: iTestCase_GetObject ' Returns this object Function iTestCase_GetObject() - Set iTestCase_GetObject = New PostLogChecks + Set iTestCase_GetObject = New PostLogTests End Function ' Function: ErrorLoggedTest diff --git a/testing/Modules/VBAUnitTesterUnitTests.bas b/testing/Modules/VBAUnitTesterUnitTests.bas index b8b7cc6..c5ae63d 100644 --- a/testing/Modules/VBAUnitTesterUnitTests.bas +++ b/testing/Modules/VBAUnitTesterUnitTests.bas @@ -1,3 +1,4 @@ +Attribute VB_Name = "VBAUnitTesterUnitTests" Public Function RunTests() Dim TestConfig As iTestableProject