diff --git a/VECTOAux/VectoAuxiliariesTests/UnitTests/SSMTOOLTests.vb b/VECTOAux/VectoAuxiliariesTests/UnitTests/SSMTOOLTests.vb
index 261ea21594f04dc613ab35855f2281f6ce0270a6..1fab371c550d2bed639c049f8fa82a78a20d57bb 100644
--- a/VECTOAux/VectoAuxiliariesTests/UnitTests/SSMTOOLTests.vb
+++ b/VECTOAux/VectoAuxiliariesTests/UnitTests/SSMTOOLTests.vb
@@ -97,7 +97,7 @@ Namespace UnitTests
 
             Dim dao = New GenericCompletedBusAuxiliaryDataAdapter()
             Dim target As ISSMDeclarationInputs = dao.CreatePrimarySSMModelParameters(auxInput, mission, LoadingType.ReferenceLoad, mission.BusParameter.HVACConventional.HVACConfiguration,
-                                                                               HeatPumpType.none, mission.BusParameter.HVACConventional.HeatPumpTypePassengerCompartmentCooling, mission.BusParameter.HVACConventional.HVACAuxHeaterPower, FuelData.Diesel, true)
+                                                                                      mission.BusParameter.HVACConventional, FuelData.Diesel, true)
 
             If section = "BusParameterisation" Then
                 'BUS Parameterisation
@@ -608,7 +608,7 @@ Namespace UnitTests
 
             Dim dao = New GenericCompletedBusAuxiliaryDataAdapter()
             Dim params as ISSMDeclarationInputs = dao.CreatePrimarySSMModelParameters(auxInput, mission, LoadingType.ReferenceLoad, mission.BusParameter.HVACConventional.HVACConfiguration,
-                                                                                             HeatPumpType.none, mission.BusParameter.HVACConventional.HeatPumpTypePassengerCompartmentCooling, mission.BusParameter.HVACConventional.HVACAuxHeaterPower, FuelData.Diesel, true)
+                                                                                              mission.BusParameter.HVACConventional, FuelData.Diesel, true)
 
             Dim target As SSMTOOL = New SSMTOOL(params)