This site uses cookies. Visit our cookies policy page or click the link in any footer for more information and to change your preferences.

Accept all cookies Accept only essential cookies

Code development platform for open source projects from the European Union institutions :large_blue_circle: EU Login authentication by SMS has been phased out. To see alternatives please check here

Skip to content
Snippets Groups Projects
Commit 8ff70d5d authored by Markus Quaritsch's avatar Markus Quaritsch
Browse files

Vecto AAUX: set correct directory before running tests (required when running tests individually)

parent 881f3509
No related branches found
No related tags found
No related merge requests found
Show whitespace changes
Inline Side-by-side
Showing
with 861 additions and 760 deletions
VECTOAux/VectoAuxiliaries/Hvac/SSMCalculate.vb
+ 823
− 752
View file @ 8ff70d5d
......@@ -33,12 +33,17 @@ Namespace Hvac
'If batch mode is disabled use the EC_EnviromentalTemperature and EC_Solar variables.
'Else if batch is enable calculate the ElectricalWBase for each input in the AENV file and then calculate the weighted average
If Not gen.EC_EnviromentalConditions_BatchEnabled Then
ElectricalWBaseWeightedAverage = CalculateElectricalWBase(gen, gen.EC_EnviromentalTemperature, gen.EC_Solar, 1)
ElectricalWBaseWeightedAverage = CalculateElectricalWBase(gen, gen.EC_EnviromentalTemperature,
gen.EC_Solar, 1)
Else
For Each envCondition As IEnvironmentalCondition In gen.EC_EnvironmentalConditionsMap.GetEnvironmentalConditions()
For Each envCondition As IEnvironmentalCondition In _
gen.EC_EnvironmentalConditionsMap.GetEnvironmentalConditions()
ElectricalWBaseWeightedAverage += CalculateElectricalWBase(gen, envCondition.GetTemperature(),
envCondition.GetSolar(),
envCondition.GetNormalisedWeighting(gen.EC_EnvironmentalConditionsMap.GetEnvironmentalConditions()))
envCondition.GetNormalisedWeighting(
gen.EC_EnvironmentalConditionsMap _
.
GetEnvironmentalConditions()))
Next
gen.EC_EnviromentalTemperature = EC_EnviromentalTemperatureBefore
gen.EC_Solar = EC_SolarBefore
......@@ -59,12 +64,17 @@ Namespace Hvac
'If batch mode is disabled use the EC_EnviromentalTemperature and EC_Solar variables.
'Else if batch is enable calculate the MechanicalWBase for each input in the AENV file and then calculate the weighted average
If Not gen.EC_EnviromentalConditions_BatchEnabled Then
MechanicalWBaseWeightedAverage = CalculateMechanicalWBase(gen, gen.EC_EnviromentalTemperature, gen.EC_Solar, 1)
MechanicalWBaseWeightedAverage = CalculateMechanicalWBase(gen, gen.EC_EnviromentalTemperature,
gen.EC_Solar, 1)
Else
For Each envCondition As IEnvironmentalCondition In gen.EC_EnvironmentalConditionsMap.GetEnvironmentalConditions()
For Each envCondition As IEnvironmentalCondition In _
gen.EC_EnvironmentalConditionsMap.GetEnvironmentalConditions()
MechanicalWBaseWeightedAverage += CalculateMechanicalWBase(gen, envCondition.GetTemperature(),
envCondition.GetSolar(),
envCondition.GetNormalisedWeighting(gen.EC_EnvironmentalConditionsMap.GetEnvironmentalConditions()))
envCondition.GetNormalisedWeighting(
gen.EC_EnvironmentalConditionsMap _
.
GetEnvironmentalConditions()))
Next
gen.EC_EnviromentalTemperature = EC_EnviromentalTemperatureBefore
gen.EC_Solar = EC_SolarBefore
......@@ -85,11 +95,16 @@ Namespace Hvac
'If batch mode is disabled use the EC_EnviromentalTemperature and EC_Solar variables.
'Else if batch is enable calculate the FuelLPerHBase for each input in the AENV file and then calculate the weighted average
If Not gen.EC_EnviromentalConditions_BatchEnabled Then
FuelLPerHBaseWeightedAverage = CalculateFuelLPerHBase(gen, gen.EC_EnviromentalTemperature, gen.EC_Solar, 1)
FuelLPerHBaseWeightedAverage = CalculateFuelLPerHBase(gen, gen.EC_EnviromentalTemperature,
gen.EC_Solar, 1)
Else
For Each envCondition As IEnvironmentalCondition In gen.EC_EnvironmentalConditionsMap.GetEnvironmentalConditions()
FuelLPerHBaseWeightedAverage += CalculateFuelLPerHBase(gen, envCondition.GetTemperature(), envCondition.GetSolar(),
envCondition.GetNormalisedWeighting(gen.EC_EnvironmentalConditionsMap.GetEnvironmentalConditions()))
For Each envCondition As IEnvironmentalCondition In _
gen.EC_EnvironmentalConditionsMap.GetEnvironmentalConditions()
FuelLPerHBaseWeightedAverage += CalculateFuelLPerHBase(gen, envCondition.GetTemperature(),
envCondition.GetSolar(),
envCondition.GetNormalisedWeighting(
gen.EC_EnvironmentalConditionsMap.
GetEnvironmentalConditions()))
Next
gen.EC_EnviromentalTemperature = EC_EnviromentalTemperatureBefore
gen.EC_Solar = EC_SolarBefore
......@@ -111,12 +126,18 @@ Namespace Hvac
'If batch mode is disabled use the EC_EnviromentalTemperature and EC_Solar variables.
'Else if batch is enable calculate the ElectricalWAdjusted for each input in the AENV file and then calculate the weighted average
If Not gen.EC_EnviromentalConditions_BatchEnabled Then
ElectricalWAdjustedAverage = CalculateElectricalWAdjusted(gen, tl, gen.EC_EnviromentalTemperature, gen.EC_Solar, 1)
ElectricalWAdjustedAverage = CalculateElectricalWAdjusted(gen, tl, gen.EC_EnviromentalTemperature,
gen.EC_Solar, 1)
Else
For Each envCondition As IEnvironmentalCondition In gen.EC_EnvironmentalConditionsMap.GetEnvironmentalConditions()
ElectricalWAdjustedAverage += CalculateElectricalWAdjusted(gen, tl, envCondition.GetTemperature(),
For Each envCondition As IEnvironmentalCondition In _
gen.EC_EnvironmentalConditionsMap.GetEnvironmentalConditions()
ElectricalWAdjustedAverage += CalculateElectricalWAdjusted(gen, tl,
envCondition.GetTemperature(),
envCondition.GetSolar(),
envCondition.GetNormalisedWeighting(gen.EC_EnvironmentalConditionsMap.GetEnvironmentalConditions()))
envCondition.GetNormalisedWeighting(
gen.EC_EnvironmentalConditionsMap _
.
GetEnvironmentalConditions()))
Next
gen.EC_EnviromentalTemperature = EC_EnviromentalTemperatureBefore
gen.EC_Solar = EC_SolarBefore
......@@ -138,14 +159,21 @@ Namespace Hvac
'If batch mode is disabled use the EC_EnviromentalTemperature and EC_Solar variables.
'Else if batch is enable calculate the MechanicalWBaseAdjusted for each input in the AENV file and then calculate the weighted average
If Not gen.EC_EnviromentalConditions_BatchEnabled Then
MechanicalWBaseAdjustedAverage = CalculateMechanicalWBaseAdjusted(gen, tl, gen.EC_EnviromentalTemperature,
MechanicalWBaseAdjustedAverage = CalculateMechanicalWBaseAdjusted(gen, tl,
gen.EC_EnviromentalTemperature,
gen.EC_Solar, 1)
Else
For Each envCondition As IEnvironmentalCondition In gen.EC_EnvironmentalConditionsMap.GetEnvironmentalConditions()
MechanicalWBaseAdjustedAverage += CalculateMechanicalWBaseAdjusted(gen, tl, envCondition.GetTemperature(),
For Each envCondition As IEnvironmentalCondition In _
gen.EC_EnvironmentalConditionsMap.GetEnvironmentalConditions()
MechanicalWBaseAdjustedAverage += CalculateMechanicalWBaseAdjusted(gen, tl,
envCondition.GetTemperature(),
envCondition.GetSolar(),
envCondition.GetNormalisedWeighting(
gen.EC_EnvironmentalConditionsMap.GetEnvironmentalConditions()))
envCondition.
GetNormalisedWeighting(
gen.
EC_EnvironmentalConditionsMap _
.
GetEnvironmentalConditions()))
Next
gen.EC_EnviromentalTemperature = EC_EnviromentalTemperatureBefore
gen.EC_Solar = EC_SolarBefore
......@@ -166,13 +194,22 @@ Namespace Hvac
'If batch mode is disabled use the EC_EnviromentalTemperature and EC_Solar variables.
'Else if batch is enable calculate the FuelLPerHBaseAdjusted for each input in the AENV file and then calculate the weighted average
If Not gen.EC_EnviromentalConditions_BatchEnabled Then
FuelLPerHBaseAdjustedAverage = CalculateFuelLPerHBaseAdjusted(gen, tl, gen.EC_EnviromentalTemperature, gen.EC_Solar,
FuelLPerHBaseAdjustedAverage = CalculateFuelLPerHBaseAdjusted(gen, tl,
gen.EC_EnviromentalTemperature,
gen.EC_Solar,
1)
Else
For Each envCondition As IEnvironmentalCondition In gen.EC_EnvironmentalConditionsMap.GetEnvironmentalConditions()
FuelLPerHBaseAdjustedAverage += CalculateFuelLPerHBaseAdjusted(gen, tl, envCondition.GetTemperature(),
For Each envCondition As IEnvironmentalCondition In _
gen.EC_EnvironmentalConditionsMap.GetEnvironmentalConditions()
FuelLPerHBaseAdjustedAverage += CalculateFuelLPerHBaseAdjusted(gen, tl,
envCondition.GetTemperature(),
envCondition.GetSolar(),
envCondition.GetNormalisedWeighting(gen.EC_EnvironmentalConditionsMap.GetEnvironmentalConditions()))
envCondition.
GetNormalisedWeighting(
gen.
EC_EnvironmentalConditionsMap _
.
GetEnvironmentalConditions()))
Next
gen.EC_EnviromentalTemperature = EC_EnviromentalTemperatureBefore
gen.EC_Solar = EC_SolarBefore
......@@ -218,10 +255,15 @@ Namespace Hvac
Dim res As Double
res = If(Run1.TotalW < 0 AndAlso Run2.TotalW < 0,
If(gen.VEN_VentilationOnDuringHeating AndAlso gen.VEN_VentilationDuringHeating.ToLower() = "high",
If _
(
gen.VEN_VentilationOnDuringHeating AndAlso
gen.VEN_VentilationDuringHeating.ToLower() = "high",
gen.BC_HighVentPowerW,
If _
(gen.VEN_VentilationOnDuringHeating AndAlso gen.VEN_VentilationDuringHeating.ToLower() = "low",
(
gen.VEN_VentilationOnDuringHeating AndAlso
gen.VEN_VentilationDuringHeating.ToLower() = "low",
gen.BC_LowVentPowerW, 0)), 0)
......@@ -317,9 +359,11 @@ Namespace Hvac
gen.EC_EnviromentalTemperature >= gen.BC_TemperatureCoolingTurnsOff AndAlso Run1.TotalW > 0 AndAlso
Run2.TotalW > 0,
If _
(gen.VEN_VentilationDuringAC AndAlso gen.VEN_VentilationDuringCooling.ToLower() = "high", gen.BC_HighVentPowerW,
(gen.VEN_VentilationDuringAC AndAlso gen.VEN_VentilationDuringCooling.ToLower() = "high",
gen.BC_HighVentPowerW,
If _
(gen.VEN_VentilationDuringAC AndAlso gen.VEN_VentilationDuringCooling.ToLower() = "low", gen.BC_LowVentPowerW, 0)) _
(gen.VEN_VentilationDuringAC AndAlso gen.VEN_VentilationDuringCooling.ToLower() = "low",
gen.BC_LowVentPowerW, 0)) _
, 0)
End Get
End Property
......@@ -331,7 +375,8 @@ Namespace Hvac
End Get
End Property
Public ReadOnly Property BaseVentilationW_Mechanical As Double Implements ISSMCalculate.BaseVentilationW_Mechanical
Public ReadOnly Property BaseVentilationW_Mechanical As Double _
Implements ISSMCalculate.BaseVentilationW_Mechanical
Get
Return Nothing
End Get
......@@ -368,11 +413,13 @@ Namespace Hvac
If _
(
gen.VEN_VentilationWhenBothHeatingAndACInactive AndAlso
gen.VEN_VentilationFlowSettingWhenHeatingAndACInactive.ToLower() = "high", gen.BC_HighVentPowerW,
gen.VEN_VentilationFlowSettingWhenHeatingAndACInactive.ToLower() = "high",
gen.BC_HighVentPowerW,
If _
(
gen.VEN_VentilationWhenBothHeatingAndACInactive AndAlso
gen.VEN_VentilationFlowSettingWhenHeatingAndACInactive.ToLower() = "low", gen.BC_LowVentPowerW, 0)), 0)
gen.VEN_VentilationFlowSettingWhenHeatingAndACInactive.ToLower() = "low",
gen.BC_LowVentPowerW, 0)), 0)
End Get
End Property
......@@ -412,7 +459,8 @@ Namespace Hvac
Return _
If _
(tl.VHValueVariation > 0, Math.Min(tl.VHValueVariation, gen.BC_MaxPossibleBenefitFromTechnologyList),
(tl.VHValueVariation > 0,
Math.Min(tl.VHValueVariation, gen.BC_MaxPossibleBenefitFromTechnologyList),
Math.Max(tl.VHValueVariation, - gen.BC_MaxPossibleBenefitFromTechnologyList))
End Get
End Property
......@@ -432,7 +480,8 @@ Namespace Hvac
Return _
If _
(tl.HValueVariation > 0, Math.Min(tl.HValueVariation, gen.BC_MaxPossibleBenefitFromTechnologyList),
(tl.HValueVariation > 0,
Math.Min(tl.HValueVariation, gen.BC_MaxPossibleBenefitFromTechnologyList),
Math.Max(tl.HValueVariation, - gen.BC_MaxPossibleBenefitFromTechnologyList))
End Get
End Property
......@@ -534,7 +583,8 @@ Namespace Hvac
Return _
If _
(tl.VVValueVariation > 0, Math.Min(tl.VVValueVariation, gen.BC_MaxPossibleBenefitFromTechnologyList),
(tl.VVValueVariation > 0,
Math.Min(tl.VVValueVariation, gen.BC_MaxPossibleBenefitFromTechnologyList),
Math.Max(tl.VVValueVariation, - gen.BC_MaxPossibleBenefitFromTechnologyList))
End Get
End Property
......@@ -587,8 +637,10 @@ Namespace Hvac
units = line.Units.Substring(0, Math.Min(line.Units.Length, unitLength)) +
Space(If(extraUnitSpaces < 0, 0, extraUnitSpaces)).Replace(" ", ".")
sb.AppendLine(String.Format(units + cat + name + " {0}{1}{0}{2}{0}{3}{0}{4}{0}{5}", vbTab, .H().ToString("0.000"),
.VH().ToString("0.000"), .VV().ToString("0.000"), .VC().ToString("0.000"), .C().ToString("0.000")))
sb.AppendLine(String.Format(units + cat + name + " {0}{1}{0}{2}{0}{3}{0}{4}{0}{5}", vbTab,
.H().ToString("0.000"),
.VH().ToString("0.000"), .VV().ToString("0.000"),
.VC().ToString("0.000"), .C().ToString("0.000")))
End With
......@@ -601,8 +653,10 @@ Namespace Hvac
With ssmTOOL.TechList
sb.AppendLine(vbTab + vbTab + "H" + vbTab + "VH" + vbTab + "VV" + vbTab + "VC" + vbTab + "C")
sb.AppendLine(String.Format("Base Var % {0}{1}{0}{2}{0}{3}{0}{4}{0}{5}", vbtab, .HValueVariation.ToString("0.000"),
.VHValueVariation.ToString("0.000"), .VVValueVariation.ToString("0.000"), .VCValueVariation.ToString("0.000"),
sb.AppendLine(String.Format("Base Var % {0}{1}{0}{2}{0}{3}{0}{4}{0}{5}", vbtab,
.HValueVariation.ToString("0.000"),
.VHValueVariation.ToString("0.000"), .VVValueVariation.ToString("0.000"),
.VCValueVariation.ToString("0.000"),
.CValueVariation.ToString("0.000")))
sb.AppendLine(String.Format("Base Var KW {0}{1}{0}{2}{0}{3}{0}{4}{0}{5}", vbtab,
.HValueVariationKW.ToString("0.000"), .VHValueVariationKW.ToString("0.000"),
......@@ -620,17 +674,24 @@ Namespace Hvac
sb.AppendLine("Staging Base Values")
sb.AppendLine("*******************")
sb.AppendLine(
vbTab + vbTab + vbTab + "Mechanical" + vbTab + "Elec Cool/Heat" + vbTab + "Elec Vent" + vbTab + "Fuel Fired Heating")
vbTab + vbTab + vbTab + "Mechanical" + vbTab + "Elec Cool/Heat" + vbTab + "Elec Vent" + vbTab +
"Fuel Fired Heating")
sb.AppendLine(String.Format("Heating {0}{1}{0}{2}{0}{3}{0}{4}", vbTab + vbtab,
BaseHeatingW_Mechanical.ToString("0.00"), BaseHeatingW_ElectricalCoolingHeating.ToString("0.00"),
BaseHeatingW_ElectricalVentilation.ToString("0.00"), BaseHeatingW_FuelFiredHeating.ToString("0.00")))
BaseHeatingW_Mechanical.ToString("0.00"),
BaseHeatingW_ElectricalCoolingHeating.ToString("0.00"),
BaseHeatingW_ElectricalVentilation.ToString("0.00"),
BaseHeatingW_FuelFiredHeating.ToString("0.00")))
sb.AppendLine(String.Format("Cooling {0}{1}{0}{2}{0}{3}{0}{4}", vbTab + vbtab,
BaseCoolingW_Mechanical.ToString("0.00"), BaseCoolingW_ElectricalCoolingHeating.ToString("0.00"),
BaseCoolingW_ElectricalVentilation.ToString("0.00"), BaseCoolingW_FuelFiredHeating.ToString("0.00")))
BaseCoolingW_Mechanical.ToString("0.00"),
BaseCoolingW_ElectricalCoolingHeating.ToString("0.00"),
BaseCoolingW_ElectricalVentilation.ToString("0.00"),
BaseCoolingW_FuelFiredHeating.ToString("0.00")))
sb.AppendLine(String.Format("Ventilate {0}{1}{0}{2}{0}{3}{0}{4}", vbTab + vbtab,
BaseVentilationW_Mechanical.ToString("0.00"), BaseVentilationW_ElectricalCoolingHeating.ToString("0.00"),
BaseVentilationW_ElectricalVentilation.ToString("0.00"), BaseVentilationW_FuelFiredHeating.ToString("0.00")))
BaseVentilationW_Mechanical.ToString("0.00"),
BaseVentilationW_ElectricalCoolingHeating.ToString("0.00"),
BaseVentilationW_ElectricalVentilation.ToString("0.00"),
BaseVentilationW_FuelFiredHeating.ToString("0.00")))
sb.AppendLine("")
sb.AppendLine("Staging Adjusted Values")
......@@ -672,8 +733,10 @@ Namespace Hvac
'Dim I95 = BaseVentilationW_ElectricalVentilation
Dim ElectricalWBaseCurrentResult As Double =
Math.Min(BaseCoolingW_ElectricalCoolingHeating, genInputs.AC_CompressorCapacitykW * 1000) / genInputs.AC_COP +
BaseHeatingW_ElectricalVentilation + BaseCoolingW_ElectricalVentilation + BaseVentilationW_ElectricalVentilation
Math.Min(BaseCoolingW_ElectricalCoolingHeating, genInputs.AC_CompressorCapacitykW*1000)/
genInputs.AC_COP +
BaseHeatingW_ElectricalVentilation + BaseCoolingW_ElectricalVentilation +
BaseVentilationW_ElectricalVentilation
Return ElectricalWBaseCurrentResult*Weight
End Function
......@@ -696,7 +759,8 @@ Namespace Hvac
Return MechanicalWBaseCurrentResult*Weight
End Function
Private Function CalculateFuelLPerHBase(genInputs As ISSMGenInputs, EnviromentalTemperature As Double, Solar As Double,
Private Function CalculateFuelLPerHBase(genInputs As ISSMGenInputs, EnviromentalTemperature As Double,
Solar As Double,
Weight As Double) As Double
'=(MIN(ABS(J93/1000),C71)/C37)*(1/(C39*C38))
......@@ -719,7 +783,8 @@ Namespace Hvac
End Function
Private Function CalculateElectricalWAdjusted(genInputs As ISSMGenInputs, tecList As ISSMTechList,
EnviromentalTemperature As Double, Solar As Double, Weight As Double) As Double
EnviromentalTemperature As Double, Solar As Double,
Weight As Double) As Double
'=(MIN((H94*(1-H100)),C54*1000)/C59)+(I93*(1-I99))+(I94*(1-I100))+(I95*(1-I101))
......@@ -738,14 +803,16 @@ Namespace Hvac
Dim I100 As Double = TechListAdjustedCoolingW_ElectricalVentilation
Dim I101 As Double = TechListAdjustedVentilationW_ElectricalVentilation
Dim ElectricalWAdjusted As Double = (Math.Min((H94 * (1 - H100)), C54 * 1000) / C59) + (I93 * (1 - I99)) + (I94 * (1 - I100)) +
Dim ElectricalWAdjusted As Double = (Math.Min((H94*(1 - H100)), C54*1000)/C59) + (I93*(1 - I99)) +
(I94*(1 - I100)) +
(I95*(1 - I101))
Return ElectricalWAdjusted*Weight
End Function
Private Function CalculateMechanicalWBaseAdjusted(genInputs As ISSMGenInputs, tecList As ISSMTechList,
EnviromentalTemperature As Double, Solar As Double, Weight As Double) As Double
EnviromentalTemperature As Double, Solar As Double,
Weight As Double) As Double
'=(MIN((F94*(1-F100)),C54*1000)/C59)
......@@ -763,7 +830,8 @@ Namespace Hvac
End Function
Private Function CalculateFuelLPerHBaseAdjusted(genInputs As ISSMGenInputs, tecList As ISSMTechList,
EnviromentalTemperature As Double, Solar As Double, Weight As Double) As Double
EnviromentalTemperature As Double, Solar As Double,
Weight As Double) As Double
'=MIN(ABS(IF(AND(M89<0,M90<0),VLOOKUP(MAX(M89:M90),M89:P90,4),0)/1000),C71)/C37*(1/(C39*C38))
......@@ -780,12 +848,15 @@ Namespace Hvac
Dim result As Double = 0
If Run1.TotalW < 0 AndAlso Run2.TotalW < 0 Then
result = Math.Abs(If(Run1.TotalW > Run2.TotalW, Run1.TechListAmendedFuelW, Run2.TechListAmendedFuelW) / 1000)
result =
Math.Abs(If(Run1.TotalW > Run2.TotalW, Run1.TechListAmendedFuelW, Run2.TechListAmendedFuelW)/1000)
End If
Dim FuelLPerHBaseAdjusted As Double = Math.Min(result, genInputs.AH_FuelFiredHeaterkW)/
genInputs.BC_AuxHeaterEfficiency*
(1 / (genInputs.BC_GCVDieselOrHeatingOil * ssmTOOL.HVACConstants.FuelDensityAsGramPerLiter))
(1/
(genInputs.BC_GCVDieselOrHeatingOil*
ssmTOOL.HVACConstants.FuelDensityAsGramPerLiter))
Return FuelLPerHBaseAdjusted*Weight
End Function
......
VECTOAux/VectoAuxiliariesTests/UnitTests/AuxiliaryEnvironmentPersistanceTests.vb
+ 6
− 1
View file @ 8ff70d5d
Imports System.Text
Imports System.IO
Imports System.Text
Imports NUnit.Framework
Imports NUnit
Imports VectoAuxiliaries
......@@ -16,6 +17,10 @@ Public Class AuxiliaryPersistanceTests
'We load the previously saved config into the Emptu Aux
'We then compare the two Aux's, if they are the same persistance has worked and they are the same.
<OneTimeSetUp>
Public Sub RunBeforeAnyTests()
Directory.SetCurrentDirectory(TestContext.CurrentContext.TestDirectory)
End Sub
Public Sub SaveDefaultFile()
......
VECTOAux/VectoAuxiliariesTests/UnitTests/AveragePneumaticLoadDemandTests.vb
+ 5
− 0
View file @ 8ff70d5d

Imports System.IO
Imports VectoAuxiliaries.Pneumatics
Imports NUnit.Framework
Imports TUGraz.VectoCommon.Utils
......@@ -24,6 +25,10 @@ Namespace UnitTests
Private _defaultInputConfig As IPneumaticUserInputsConfig
Private _Signals As ISignals = New Signals
<OneTimeSetUp>
Public Sub RunBeforeAnyTests()
Directory.SetCurrentDirectory(TestContext.CurrentContext.TestDirectory)
End Sub
'Constructors
Public Sub New()
......
VECTOAux/VectoAuxiliariesTests/UnitTests/M0_5_SmartAlternatorSetEfficiencyTests.vb
+ 9
− 3
View file @ 8ff70d5d
Imports VectoAuxiliaries.Electrics
Imports System.IO
Imports VectoAuxiliaries.Electrics
Imports VectoAuxiliaries.Hvac
Imports VectoAuxiliaries
Imports NUnit.Framework
......@@ -8,10 +9,15 @@ Namespace UnitTests
<TestFixture()>
Public Class M0_5_SmartAlternatorSetEfficiencyTests
Private target As M0_5_SmartAlternatorSetEfficiency
Private signals = New Signals
'Private signals = New Signals
Public Sub New()
<OneTimeSetUp>
Public Sub RunBeforeAnyTests()
Directory.SetCurrentDirectory(TestContext.CurrentContext.TestDirectory)
End Sub
Public Sub New()
Directory.SetCurrentDirectory(TestContext.CurrentContext.TestDirectory)
Initialise()
End Sub
......
VECTOAux/VectoAuxiliariesTests/UnitTests/M0_NonSmart_AlternatorsSetEfficiencyTests.vb
+ 1
− 1
View file @ 8ff70d5d
......@@ -73,7 +73,7 @@ Namespace UnitTests
<Test()>
Public Sub EfficiencyValueTest()
Dim target As M0_NonSmart_AlternatorsSetEfficiency = New M0_NonSmart_AlternatorsSetEfficiency(elecConsumers,
Dim target = New M0_NonSmart_AlternatorsSetEfficiency(elecConsumers,
alternatorMap, powernetVoltage, signals, GetSSM())
Dim actual As Single = target.AlternatorsEfficiency
......
VECTOAux/VectoAuxiliariesTests/UnitTests/M1_AverageHVACLoadDemandTests.vb
+ 10
− 2
View file @ 8ff70d5d
Imports NUnit.Framework
Imports System.IO
Imports NUnit.Framework
Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries
Imports VectoAuxiliaries.Electrics
......@@ -19,13 +20,20 @@ Namespace UnitTests
Private m0 As IM0_NonSmart_AlternatorsSetEfficiency
Private alternatorMap As IAlternatorMap = New AlternatorMap(_GOODMAP)
Private alternatorMap As IAlternatorMap
Private alternatorGearEfficiency As Single = 0.8
Private compressorGrearEfficiency As Single = 0.8
<OneTimeSetUp>
Public Sub RunBeforeAnyTests()
Directory.SetCurrentDirectory(TestContext.CurrentContext.TestDirectory)
End Sub
Public Sub New()
Directory.SetCurrentDirectory(TestContext.CurrentContext.TestDirectory)
alternatorMap = New AlternatorMap(_GOODMAP)
alternatorMap.Initialise()
ssm.Load(_SSMMAP)
......
VECTOAux/VectoAuxiliariesTests/UnitTests/SSMTOOLTests.vb
+ 7
− 1
View file @ 8ff70d5d
Imports NUnit.Framework
Imports System.IO
Imports NUnit.Framework
Imports VectoAuxiliaries.Pneumatics
Imports VectoAuxiliariesTests.Mocks
Imports VectoAuxiliaries
......@@ -13,6 +14,11 @@ Namespace UnitTests
Private Const GOODTechListALLOFF As String = "TestFiles\testSSMTechBenefitsALLOFF.csv"
Private Const GOODTechListEMPTYLIST As String = "TestFiles\testSSMTechBenefitsEMPTYLIST.csv"
<OneTimeSetUp>
Public Sub RunBeforeAnyTests()
Directory.SetCurrentDirectory(TestContext.CurrentContext.TestDirectory)
End Sub
'Helpers
Private Sub AddDefaultTechLine(source As ISSMTOOL)
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment

For further information about the platform and support, please see https://code.europa.eu/info/about