From 5fcdb904b2c00aacf576cbe59e07c913d61c1eb8 Mon Sep 17 00:00:00 2001 From: Kevin Nowaczyk Date: Sat, 17 May 2025 07:45:06 -0400 Subject: [PATCH 1/6] Update PostLogTests.cls --- testing/ClassModules/PostLogTests.cls | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 From 6a1bee4193e273e65dd225a4f6d8134747b99f25 Mon Sep 17 00:00:00 2001 From: Kevin Nowaczyk Date: Sat, 17 May 2025 08:13:48 -0400 Subject: [PATCH 2/6] Update TestCaseStub.cls --- examples/ClassModules/TestCaseStub.cls | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/examples/ClassModules/TestCaseStub.cls b/examples/ClassModules/TestCaseStub.cls index 01a7e39..b685354 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 From a9e09f5ed471503c044f22f1269c2e3de607a4f4 Mon Sep 17 00:00:00 2001 From: Kevin Nowaczyk Date: Sat, 17 May 2025 08:21:24 -0400 Subject: [PATCH 3/6] Update lint_vba.yml --- .github/workflows/lint_vba.yml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 From 66a9c29db312888452097fad9e5899a650c5e8bc Mon Sep 17 00:00:00 2001 From: Kevin Nowaczyk Date: Sat, 17 May 2025 08:29:07 -0400 Subject: [PATCH 4/6] Update VBAUnitTesterUnitTests.bas --- testing/Modules/VBAUnitTesterUnitTests.bas | 1 + 1 file changed, 1 insertion(+) 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 From 0a54de3ff05ed096df66e4ae71e1e4ee6ecc4b1c Mon Sep 17 00:00:00 2001 From: Kevin Nowaczyk Date: Sat, 17 May 2025 08:35:40 -0400 Subject: [PATCH 5/6] Update ProjectUnitTests.bas --- examples/Modules/ProjectUnitTests.bas | 1 + 1 file changed, 1 insertion(+) 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 From 267597b4ef39468a79d81a73937a27c4e1920102 Mon Sep 17 00:00:00 2001 From: Kevin Nowaczyk Date: Sat, 17 May 2025 08:38:50 -0400 Subject: [PATCH 6/6] Update TestCaseStub.cls --- examples/ClassModules/TestCaseStub.cls | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/examples/ClassModules/TestCaseStub.cls b/examples/ClassModules/TestCaseStub.cls index b685354..40011b0 100644 --- a/examples/ClassModules/TestCaseStub.cls +++ b/examples/ClassModules/TestCaseStub.cls @@ -46,5 +46,5 @@ End Sub ' 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" + AssertEquals 1 + 1, 2, "AssertEquals that one plus one equals two" End Sub