Adding HVAC Tests

git-tfs-id: [http://tfs00.element.root.com:8080/tfs/TFSCollection]$/VECTO;C1606

VECTOAux/VectoAuxiliariesTests/Mocks/HVACMapMock.vb

+Imports VectoAuxiliaries.Hvac
+
+Namespace Mocks
+    Public Class HVACMapMock
+        Implements IHVACMap
+
+        Public Function Initialise() As Boolean Implements IHVACMap.Initialise
+            Return True
+        End Function
+
+        Public Function GetMechanicalDemand(ByVal region As Integer, ByVal season As Integer) As Integer Implements IHVACMap.GetMechanicalDemand
+            Return 10
+        End Function
+
+        Public Function GetElectricalDemand(ByVal region As Integer, ByVal season As Integer) As Integer Implements IHVACMap.GetElectricalDemand
+            Return 10
+        End Function
+    End Class
+End Namespace
\ No newline at end of file

VECTOAux/VectoAuxiliariesTests/UnitTests/AverageHVACLoadDemandTests.vb

-Imports NUnit.Framework
-
-Namespace UnitTests
-    <TestFixture()> Public Class AverageHVACLoadDemandTests
-
-        <Test()> Public Sub NewTest()
-            Assert.Fail()
-        End Sub
-
-        <Test()> Public Sub InitialiseTest()
-            Assert.Fail()
-        End Sub
-
-        <Test()> Public Sub AverageMechanicalPowerAtCrankTest()
-            Assert.Fail()
-        End Sub
-
-        <Test()> Public Sub AverageElectricalPowerAtAlternatorTest()
-            Assert.Fail()
-        End Sub
-
-        <Test()> Public Sub AverageElectricalPowerAtCrankTest()
-            Assert.Fail()
-        End Sub
-    End Class
-
-
-End Namespace
-
+Imports System.Configuration
+Imports VectoAuxiliaries.Hvac
+Imports VectoAuxiliariesTests.Mocks
+Imports VectoAuxiliaries.Electrics
+Imports NUnit.Framework
+
+
+Namespace UnitTests
+
+    <TestFixture()> Public Class AverageHVACLoadDemandTests
+#Region "Helpers"
+        Private Function GetAlternatorMock() As IAlternator
+            Dim alt As IAlternator = New AlternatorMock()
+            Return alt
+        End Function
+
+        Private Function GetHVACMapMock() As IHVACMap
+            Dim map As IHVACMap = New HVACMapMock()
+            Return map
+        End Function
+
+        Private Function GetAverageHVACLoadDemandIntance() As AverageHVACLoadDemand
+            Dim alt As IAlternator = GetAlternatorMock()
+            Dim map As IHVACMap = GetHVACMapMock()
+            Dim target As AverageHVACLoadDemand = New AverageHVACLoadDemand(map, alt)
+            Return target
+        End Function
+
+        Private Function GetInitialisedAverageHVACLoadDemandIntance() As AverageHVACLoadDemand
+            Dim alt As IAlternator = GetAlternatorMock()
+            Dim map As IHVACMap = GetHVACMapMock()
+            Dim target As AverageHVACLoadDemand = New AverageHVACLoadDemand(map, alt)
+            target.Initialise()
+            Return target
+        End Function
+
+#End Region
+
+        <Test()> Public Sub NewTest()
+            Dim target As AverageHVACLoadDemand = GetAverageHVACLoadDemandIntance()
+            Assert.IsNotNull(target)
+            Assert.IsInstanceOf(GetType(AverageHVACLoadDemand), target)
+        End Sub
+
+
+        <Test()> Public Sub InitialiseTest()
+            Dim target As AverageHVACLoadDemand = GetAverageHVACLoadDemandIntance()
+            Assert.IsTrue(target.Initialise())
+        End Sub
+
+        <Test()> Public Sub AverageMechanicalPowerAtCrankTest()
+            Dim target As AverageHVACLoadDemand = GetInitialisedAverageHVACLoadDemandIntance()
+            Dim expected As Integer = 10
+            Dim actual As Integer = target.AverageMechanicalPowerAtCrank()
+        End Sub
+
+        <Test()> Public Sub AverageElectricalPowerAtAlternatorTest()
+            Dim target As AverageHVACLoadDemand = GetInitialisedAverageHVACLoadDemandIntance()
+            Dim expected As Integer = 10
+            Dim actual As Integer = target.AverageMechanicalPowerAtCrank()
+        End Sub
+
+        <Test()> Public Sub AverageElectricalPowerAtCrankTest()
+            Dim target As AverageHVACLoadDemand = GetInitialisedAverageHVACLoadDemandIntance()
+            Dim expected As Integer = 10
+            Dim actual As Integer = target.AverageMechanicalPowerAtCrank()
+        End Sub
+
+    End Class
+
+
+End Namespace
+
 

VECTOAux/VectoAuxiliariesTests/VectoAuxiliariesTests.vbproj

@@ -86,6 +86,7 @@
     <Import Include="Microsoft.VisualStudio.TestTools.UnitTesting" />
   </ItemGroup>
   <ItemGroup>
+    <Compile Include="Mocks\HVACMapMock.vb" />
     <Compile Include="UnitTests\AverageHVACLoadDemandTests.vb" />
     <Compile Include="UnitTests\HVACMapTests.vb" />
     <Compile Include="UnitTests\PneumaticConsumerTests.vb" />