'@TestMethod("Uncategorized")
Private Sub PanelsWide6_PanelsLong138_StringSize18_MinCant2Point5_MaxCant3Point5_PanelsBetweenColumns10_ReturnsFalse()
On Error GoTo TestFail
'Arrange:
Dim checker As PurlinViabilityChecker
Set checker = PurlinViabilityChecker.Create(6, 138, 18, 2.5, 3.5, 10)
'Act:
Dim actual As Boolean
actual = checker.PassesCriteria
'Assert:
Assert.IsFalse actual
TestExit:
Exit Sub
TestFail:
Assert.Fail "Test raised an error: #" & Err.Number & " - " & Err.Description
End Sub