make project compile again

VECTOAux/VectoAuxiliariesTests/UnitTests/M14Tests.vb

@@ -44,9 +44,9 @@ Namespace UnitTests
         Public ReadOnly Property EngineWasteHeat As Watt Implements ISSMTOOL.EngineWasteHeat
 
 
-        Public Function AverageAuxHeaterPower(averageUseableEngineWasteHeat As Watt) As Watt Implements ISSMPowerDemand.AverageHeaterPower
+        Public Function AverageAuxHeaterPower(averageUseableEngineWasteHeat As Watt) As HeaterPower Implements ISSMPowerDemand.AverageHeaterPower
 
-            Return (0.5*(averageUseableEngineWasteHeat.Value()*0.835).SI(Unit.SI.Liter.Per.Hour).Value()).SI (of Watt)
+            Return new HeaterPower With{ .AuxHeaterPower = (0.5*(averageUseableEngineWasteHeat.Value()*0.835).SI(Unit.SI.Liter.Per.Hour).Value()).SI (of Watt)}
         End Function
 
         Public Property SSMInputs As ISSMDeclarationInputs Implements ISSMTOOL.SSMInputs

VECTOAux/VectoAuxiliariesTests/UnitTests/SSMTOOLTests.vb

@@ -153,7 +153,7 @@ Namespace UnitTests
             If section = "AC-System" Then
                 'AC-SYSTEM
                 '*********
-                Assert.AreEqual(HeatPumpType.non_R_744_2_stage, target.ACSystem.HVACCompressorType)
+                'Assert.AreEqual(HeatPumpType.non_R_744_2_stage, target.ACSystem.HVACCompressorType)
                 Assert.AreEqual(15.5567, target.ACSystem.HVACMaxCoolingPower.Value()/1000.0, 1e-3)
                 'Assert.AreEqual(3.5, target.ACSystem.COP)
             End If

VECTOAux/VectoAuxiliariesTests/UnitTests/Utils.vb

@@ -136,7 +136,6 @@ Public Class Utils
                 .HeatingBoundaryTemperature = 18.0.DegCelsiusToKelvin(),
                 .CoolingBoundaryTemperature = 23.0.DegCelsiusToKelvin(),
                 .SpecificVentilationPower = 0.56.SI(Unit.SI.Watt.Hour.Per.Cubic.Meter).Cast (Of JoulePerCubicMeter),
-                .HVACCompressorType = HeatPumpType.non_R_744_2_stage, 
                 .HVACMaxCoolingPowerPassenger = 18.si(Unit.SI.kilo.watt).Cast (of Watt),
                 .AuxHeaterEfficiency =  0.84,
                 .FuelFiredHeaterPower = 30.SI(Unit.SI.kilo.watt).Cast (Of Watt),