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 3113f39b authored by Markus Quaritsch's avatar Markus Quaritsch
Browse files

updating testcases, removing no longer useful testcases

parent 5a97c4db
Branches
Tags
No related merge requests found
Show whitespace changes
Inline Side-by-side
Showing
with 193 additions and 188 deletions
VECTOAux/VectoAuxiliariesTests/TestFiles/Integration/AdvAuxTest.aaux
+ 2
− 10
View file @ 3113f39b
{
"Header": "AAUX",
"Body": {
"$type": "TUGraz.VectoCore.BusAuxiliaries.AuxiliaryConfig, BusAuxiliaries",
"VectoInputs": {
"$type": "TUGraz.VectoCore.BusAuxiliaries.Interfaces.VectoInputs, BusAuxiliaries",
"Cycle": "Urban",
"VehicleWeightKG": 16500.0,
"PowerNetVoltage": 28.3,
......@@ -12,14 +10,12 @@
},
"ActuationsMap": "testPneumaticActuationsMap.APAC",
"ElectricalUserInputsConfig": {
"$type":
"TUGraz.VectoCore.BusAuxiliaries.DownstreamModules.Impl.Electrics.ElectricsUserInputsConfig, BusAuxiliaries",
"PowerNetVoltage": 28.3,
"AlternatorMap": "testCombAlternatorMap_1Alt.AALT",
"AlternatorGearEfficiency": 0.92,
"ElectricalConsumers": {
"AverageCurrentDemandInclBaseLoad": 50,
"AverageCurrentDemandWithoutBaseLoad": 25.0
"AverageCurrentDemandInclBaseLoad": 60.631777385159026,
"AverageCurrentDemandWithoutBaseLoad": 35.631777385159026
},
"DoorActuationTimeSecond": 4,
"ResultCardIdle": [],
......@@ -28,8 +24,6 @@
"SmartElectrical": false
},
"PneumaticUserInputsConfig": {
"$type":
"TUGraz.VectoCore.BusAuxiliaries.DownstreamModules.Impl.Pneumatics.PneumaticUserInputsConfig, BusAuxiliaries",
"CompressorMap": "DEFAULT_2-Cylinder_1-Stage_650ccm.ACMP",
"CompressorGearRatio": 1.0,
"CompressorGearEfficiency": 0.8,
......@@ -42,8 +36,6 @@
"SmartRegeneration": true
},
"PneumaticAuxillariesConfig": {
"$type":
"TUGraz.VectoCore.BusAuxiliaries.DownstreamModules.Impl.Pneumatics.PneumaticsAuxilliariesConfig, BusAuxiliaries",
"AdBlueNIperMinute": 21.25,
"AirControlledSuspensionNIperMinute": 15.0,
"BrakingNIperKG": 0.0006,
......
VECTOAux/VectoAuxiliariesTests/TestFiles/Integration/testHVACssm.AHSM
+ 3
− 2
View file @ 3113f39b
......@@ -10,9 +10,10 @@
"BC_VentilationRate": 25.0,
"BC_VentilationRateHeating": 25.0,
"BC_FloorType": "HighFloor",
"BC_BusSurfaceArea": 54.3405,
"BC_BusSurfaceArea": 114.42,
"BC_BusWindowSurfaceArea": 20.9825,
"BC_BusVolume": 0,
"BC_PassengerCount": 34,
"BC_UValue": 3,
"BC_COP": 4.0,
"BC_HighVentilation": 20.0,
......
VECTOAux/VectoAuxiliariesTests/UnitTests/AuxiliaryEnvironmentComparisonTests.vb
+ 153
− 153
View file @ 3113f39b
......@@ -245,206 +245,206 @@ Namespace UnitTests
' Assert.AreEqual(False, compareResult)
'End Sub
<Test()>
<Category("ElectricalUserConfig")>
Public Sub ElectricalUserConfig_Unequal_ResultCardIdle_UnequalCount_UnequalTest()
'<Test()>
'<Category("ElectricalUserConfig")>
'Public Sub ElectricalUserConfig_Unequal_ResultCardIdle_UnequalCount_UnequalTest()
'Arrange
Dim auxFresh = GetDefaultAuxiliaryConfig()
Dim auxNow = GetDefaultAuxiliaryConfig()
Dim compareResult As Boolean
CType(CType(auxNow.ElectricalUserInputsConfig.ResultCardIdle, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(50.SI(of Ampere), 49.SI(of Ampere)))
' 'Arrange
' Dim auxFresh = GetDefaultAuxiliaryConfig()
' Dim auxNow = GetDefaultAuxiliaryConfig()
' Dim compareResult As Boolean
' CType(CType(auxNow.ElectricalUserInputsConfig.ResultCardIdle, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(50.SI(of Ampere), 49.SI(of Ampere)))
'Act
compareResult = auxFresh.ConfigValuesAreTheSameAs(auxNow)
' 'Act
' compareResult = auxFresh.ConfigValuesAreTheSameAs(auxNow)
Assert.AreEqual(False, compareResult)
End Sub
' Assert.AreEqual(False, compareResult)
'End Sub
<Test()>
<Category("ElectricalUserConfig")>
Public Sub ElectricalUserConfig_Unequal_ResultCardTraction_UnequalCount_UnequalTest()
'<Test()>
'<Category("ElectricalUserConfig")>
'Public Sub ElectricalUserConfig_Unequal_ResultCardTraction_UnequalCount_UnequalTest()
'Arrange
Dim auxFresh = GetDefaultAuxiliaryConfig()
Dim auxNow = GetDefaultAuxiliaryConfig()
Dim compareResult As Boolean
CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardTraction, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(50.SI(of Ampere), 49.SI(of Ampere)))
' 'Arrange
' Dim auxFresh = GetDefaultAuxiliaryConfig()
' Dim auxNow = GetDefaultAuxiliaryConfig()
' Dim compareResult As Boolean
' CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardTraction, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(50.SI(of Ampere), 49.SI(of Ampere)))
'Act
compareResult = auxFresh.ConfigValuesAreTheSameAs(auxNow)
' 'Act
' compareResult = auxFresh.ConfigValuesAreTheSameAs(auxNow)
Assert.AreEqual(False, compareResult)
End Sub
' Assert.AreEqual(False, compareResult)
'End Sub
<Test()>
<Category("ElectricalUserConfig")>
Public Sub ElectricalUserConfig_Unequal_ResultCardOverrun_UnequalCount_UnequalTest()
'<Test()>
'<Category("ElectricalUserConfig")>
'Public Sub ElectricalUserConfig_Unequal_ResultCardOverrun_UnequalCount_UnequalTest()
'Arrange
Dim auxFresh = GetDefaultAuxiliaryConfig()
Dim auxNow = GetDefaultAuxiliaryConfig()
Dim compareResult As Boolean
CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardOverrun, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(50.SI(of Ampere), 49.SI(of Ampere)))
' 'Arrange
' Dim auxFresh = GetDefaultAuxiliaryConfig()
' Dim auxNow = GetDefaultAuxiliaryConfig()
' Dim compareResult As Boolean
' CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardOverrun, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(50.SI(of Ampere), 49.SI(of Ampere)))
'Act
compareResult = auxFresh.ConfigValuesAreTheSameAs(auxNow)
' 'Act
' compareResult = auxFresh.ConfigValuesAreTheSameAs(auxNow)
Assert.AreEqual(False, compareResult)
End Sub
' Assert.AreEqual(False, compareResult)
'End Sub
<Test()>
<Category("ElectricalUserConfig")>
Public Sub ElectricalUserConfig_Unequal_ResultCardIdle_AMPS_UnequalTest()
'<Test()>
'<Category("ElectricalUserConfig")>
'Public Sub ElectricalUserConfig_Unequal_ResultCardIdle_AMPS_UnequalTest()
'Arrange
Dim auxFresh = GetDefaultAuxiliaryConfig()
Dim auxNow = GetDefaultAuxiliaryConfig()
Dim compareResult As Boolean
CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardIdle, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(50.SI(of Ampere), 49.SI(of Ampere)))
CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardIdle, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(49.SI(of Ampere), 49.SI(of Ampere)))
' 'Arrange
' Dim auxFresh = GetDefaultAuxiliaryConfig()
' Dim auxNow = GetDefaultAuxiliaryConfig()
' Dim compareResult As Boolean
' CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardIdle, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(50.SI(of Ampere), 49.SI(of Ampere)))
' CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardIdle, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(49.SI(of Ampere), 49.SI(of Ampere)))
'Act
compareResult = auxFresh.ConfigValuesAreTheSameAs(auxNow)
' 'Act
' compareResult = auxFresh.ConfigValuesAreTheSameAs(auxNow)
Assert.AreEqual(False, compareResult)
End Sub
' Assert.AreEqual(False, compareResult)
'End Sub
<Test()>
<Category("ElectricalUserConfig")>
Public Sub ElectricalUserConfig_Unequal_ResultCardIdle_UnEqualAMPS_UnequalTest()
'<Test()>
'<Category("ElectricalUserConfig")>
'Public Sub ElectricalUserConfig_Unequal_ResultCardIdle_UnEqualAMPS_UnequalTest()
'Arrange
Dim auxFresh = GetDefaultAuxiliaryConfig()
Dim auxNow = GetDefaultAuxiliaryConfig()
Dim compareResult As Boolean
CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardIdle, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(49.SI(of Ampere), 49.SI(of Ampere)))
CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardIdle, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(50.SI(of Ampere), 49.SI(of Ampere)))
' 'Arrange
' Dim auxFresh = GetDefaultAuxiliaryConfig()
' Dim auxNow = GetDefaultAuxiliaryConfig()
' Dim compareResult As Boolean
' CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardIdle, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(49.SI(of Ampere), 49.SI(of Ampere)))
' CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardIdle, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(50.SI(of Ampere), 49.SI(of Ampere)))
'Act
compareResult = auxFresh.ConfigValuesAreTheSameAs(auxNow)
' 'Act
' compareResult = auxFresh.ConfigValuesAreTheSameAs(auxNow)
Assert.AreEqual(False, compareResult)
End Sub
' Assert.AreEqual(False, compareResult)
'End Sub
<Test()>
<Category("ElectricalUserConfig")>
Public Sub ElectricalUserConfig_Unequal_ResultCardIdle_UnEqualSMARTAMPS_UnequalTest()
'<Test()>
'<Category("ElectricalUserConfig")>
'Public Sub ElectricalUserConfig_Unequal_ResultCardIdle_UnEqualSMARTAMPS_UnequalTest()
'Arrange
Dim auxFresh = GetDefaultAuxiliaryConfig()
Dim auxNow = GetDefaultAuxiliaryConfig()
Dim compareResult As Boolean
CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardIdle, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(49.SI(of Ampere), 51.SI(of Ampere)))
CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardIdle, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(49.SI(of Ampere), 50.SI(of Ampere)))
' 'Arrange
' Dim auxFresh = GetDefaultAuxiliaryConfig()
' Dim auxNow = GetDefaultAuxiliaryConfig()
' Dim compareResult As Boolean
' CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardIdle, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(49.SI(of Ampere), 51.SI(of Ampere)))
' CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardIdle, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(49.SI(of Ampere), 50.SI(of Ampere)))
'Act
compareResult = auxFresh.ConfigValuesAreTheSameAs(auxNow)
' 'Act
' compareResult = auxFresh.ConfigValuesAreTheSameAs(auxNow)
Assert.AreEqual(False, compareResult)
End Sub
' Assert.AreEqual(False, compareResult)
'End Sub
<Test()>
<Category("ElectricalUserConfig")>
Public Sub ElectricalUserConfig_Unequal_ResultCardTraction_AMPS_UnequalTest()
'<Test()>
'<Category("ElectricalUserConfig")>
'Public Sub ElectricalUserConfig_Unequal_ResultCardTraction_AMPS_UnequalTest()
'Arrange
Dim auxFresh = GetDefaultAuxiliaryConfig()
Dim auxNow = GetDefaultAuxiliaryConfig()
Dim compareResult As Boolean
CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardTraction, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(50.SI(of Ampere), 49.SI(of Ampere)))
CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardTraction, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(51.SI(of Ampere), 49.SI(of Ampere)))
' 'Arrange
' Dim auxFresh = GetDefaultAuxiliaryConfig()
' Dim auxNow = GetDefaultAuxiliaryConfig()
' Dim compareResult As Boolean
' CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardTraction, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(50.SI(of Ampere), 49.SI(of Ampere)))
' CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardTraction, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(51.SI(of Ampere), 49.SI(of Ampere)))
'Act
compareResult = auxFresh.ConfigValuesAreTheSameAs(auxNow)
' 'Act
' compareResult = auxFresh.ConfigValuesAreTheSameAs(auxNow)
Assert.AreEqual(False, compareResult)
End Sub
' Assert.AreEqual(False, compareResult)
'End Sub
<Test()>
<Category("ElectricalUserConfig")>
Public Sub ElectricalUserConfig_Unequal_ResultCardTraction_UnEqualAMPS_UnequalTest()
'<Test()>
'<Category("ElectricalUserConfig")>
'Public Sub ElectricalUserConfig_Unequal_ResultCardTraction_UnEqualAMPS_UnequalTest()
'Arrange
Dim auxFresh = GetDefaultAuxiliaryConfig()
Dim auxNow = GetDefaultAuxiliaryConfig()
Dim compareResult As Boolean
CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardTraction, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(49.SI(of Ampere), 49.SI(of Ampere)))
CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardTraction, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(50.SI(of Ampere), 49.SI(of Ampere)))
' 'Arrange
' Dim auxFresh = GetDefaultAuxiliaryConfig()
' Dim auxNow = GetDefaultAuxiliaryConfig()
' Dim compareResult As Boolean
' CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardTraction, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(49.SI(of Ampere), 49.SI(of Ampere)))
' CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardTraction, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(50.SI(of Ampere), 49.SI(of Ampere)))
'Act
compareResult = auxFresh.ConfigValuesAreTheSameAs(auxNow)
' 'Act
' compareResult = auxFresh.ConfigValuesAreTheSameAs(auxNow)
Assert.AreEqual(False, compareResult)
End Sub
' Assert.AreEqual(False, compareResult)
'End Sub
<Test()>
<Category("ElectricalUserConfig")>
Public Sub ElectricalUserConfig_Unequal_ResultCardTraction_UnEqualSMARTAMPS_UnequalTest()
'<Test()>
'<Category("ElectricalUserConfig")>
'Public Sub ElectricalUserConfig_Unequal_ResultCardTraction_UnEqualSMARTAMPS_UnequalTest()
'Arrange
Dim auxFresh = GetDefaultAuxiliaryConfig()
Dim auxNow = GetDefaultAuxiliaryConfig()
Dim compareResult As Boolean
CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardTraction, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(49.SI(of Ampere), 49.SI(of Ampere)))
CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardTraction, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(49.SI(of Ampere), 50.SI(of Ampere)))
' 'Arrange
' Dim auxFresh = GetDefaultAuxiliaryConfig()
' Dim auxNow = GetDefaultAuxiliaryConfig()
' Dim compareResult As Boolean
' CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardTraction, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(49.SI(of Ampere), 49.SI(of Ampere)))
' CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardTraction, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(49.SI(of Ampere), 50.SI(of Ampere)))
'Act
compareResult = auxFresh.ConfigValuesAreTheSameAs(auxNow)
' 'Act
' compareResult = auxFresh.ConfigValuesAreTheSameAs(auxNow)
Assert.AreEqual(False, compareResult)
End Sub
' Assert.AreEqual(False, compareResult)
'End Sub
<Test()>
<Category("ElectricalUserConfig")>
Public Sub ElectricalUserConfig_Unequal_ResultCardOverrun_AMPS_UnequalTest()
'<Test()>
'<Category("ElectricalUserConfig")>
'Public Sub ElectricalUserConfig_Unequal_ResultCardOverrun_AMPS_UnequalTest()
'Arrange
Dim auxFresh = GetDefaultAuxiliaryConfig()
Dim auxNow = GetDefaultAuxiliaryConfig()
Dim compareResult As Boolean
CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardOverrun, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(50.SI(of Ampere), 49.SI(of Ampere)))
CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardOverrun, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(50.SI(of Ampere), 48.SI(of Ampere)))
' 'Arrange
' Dim auxFresh = GetDefaultAuxiliaryConfig()
' Dim auxNow = GetDefaultAuxiliaryConfig()
' Dim compareResult As Boolean
' CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardOverrun, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(50.SI(of Ampere), 49.SI(of Ampere)))
' CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardOverrun, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(50.SI(of Ampere), 48.SI(of Ampere)))
'Act
compareResult = auxFresh.ConfigValuesAreTheSameAs(auxNow)
' 'Act
' compareResult = auxFresh.ConfigValuesAreTheSameAs(auxNow)
Assert.AreEqual(False, compareResult)
End Sub
' Assert.AreEqual(False, compareResult)
'End Sub
<Test()>
<Category("ElectricalUserConfig")>
Public Sub ElectricalUserConfig_Unequal_ResultCardOverrun_UnEqualAMPS_UnequalTest()
'<Test()>
'<Category("ElectricalUserConfig")>
'Public Sub ElectricalUserConfig_Unequal_ResultCardOverrun_UnEqualAMPS_UnequalTest()
'Arrange
Dim auxFresh = GetDefaultAuxiliaryConfig()
Dim auxNow = GetDefaultAuxiliaryConfig()
Dim compareResult As Boolean
CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardOverrun, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(49.SI(of Ampere), 49.SI(of Ampere)))
CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardOverrun, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(50.SI(of Ampere), 49.SI(of Ampere)))
' 'Arrange
' Dim auxFresh = GetDefaultAuxiliaryConfig()
' Dim auxNow = GetDefaultAuxiliaryConfig()
' Dim compareResult As Boolean
' CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardOverrun, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(49.SI(of Ampere), 49.SI(of Ampere)))
' CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardOverrun, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(50.SI(of Ampere), 49.SI(of Ampere)))
'Act
compareResult = auxFresh.ConfigValuesAreTheSameAs(auxNow)
' 'Act
' compareResult = auxFresh.ConfigValuesAreTheSameAs(auxNow)
Assert.AreEqual(False, compareResult)
End Sub
' Assert.AreEqual(False, compareResult)
'End Sub
<Test()>
<Category("ElectricalUserConfig")>
Public Sub ElectricalUserConfig_Unequal_ResultCardOverrun_UnEqualSMARTAMPS_UnequalTest()
'<Test()>
'<Category("ElectricalUserConfig")>
'Public Sub ElectricalUserConfig_Unequal_ResultCardOverrun_UnEqualSMARTAMPS_UnequalTest()
'Arrange
Dim auxFresh = GetDefaultAuxiliaryConfig()
Dim auxNow = GetDefaultAuxiliaryConfig()
Dim compareResult As Boolean
CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardOverrun, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(49.SI(of Ampere), 49.SI(of Ampere)))
CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardOverrun, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(49.SI(of Ampere), 50.SI(of Ampere)))
' 'Arrange
' Dim auxFresh = GetDefaultAuxiliaryConfig()
' Dim auxNow = GetDefaultAuxiliaryConfig()
' Dim compareResult As Boolean
' CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardOverrun, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(49.SI(of Ampere), 49.SI(of Ampere)))
' CType(CType (auxNow.ElectricalUserInputsConfig.ResultCardOverrun, ResultCard).Results, List(of SmartResult)).Add(New SmartResult(49.SI(of Ampere), 50.SI(of Ampere)))
'Act
compareResult = auxFresh.ConfigValuesAreTheSameAs(auxNow)
' 'Act
' compareResult = auxFresh.ConfigValuesAreTheSameAs(auxNow)
Assert.AreEqual(False, compareResult)
End Sub
' Assert.AreEqual(False, compareResult)
'End Sub
<Test()>
<Category("ElectricalUserConfig")>
......
VECTOAux/VectoAuxiliariesTests/UnitTests/M0_NonSmart_AlternatorsSetEfficiencyTests.vb
+ 12
− 12
View file @ 3113f39b
......@@ -79,18 +79,18 @@ Namespace UnitTests
Assert.IsNotNull(target)
End Sub
<Test()>
Public Sub CreateNew_MissingElecConsumers_ThrowArgumentExceptionTest()
Dim target As IM0_NonSmart_AlternatorsSetEfficiency
Dim auxConfig = utils.GetAuxTestConfig()
'CType(CType(auxConfig.SSMInputs, SSMInputs).Vehicle, VehicleData).Height= 0.SI (Of Meter)
CType(auxConfig.ElectricalUserInputsConfig, ElectricsUserInputsConfig).PowerNetVoltage = powernetVoltage
CType(auxConfig.ElectricalUserInputsConfig, ElectricsUserInputsConfig).AlternatorMap =alternatorMap
Assert.That(Sub() target = New M00Impl(auxConfig.ElectricalUserInputsConfig, signals, New SSMTOOL(auxconfig.SSMInputs)),
Throws.InstanceOf (Of ArgumentException))
End Sub
'<Test()>
'Public Sub CreateNew_MissingElecConsumers_ThrowArgumentExceptionTest()
' Dim target As IM0_NonSmart_AlternatorsSetEfficiency
' Dim auxConfig = utils.GetAuxTestConfig()
' 'CType(CType(auxConfig.SSMInputs, SSMInputs).Vehicle, VehicleData).Height= 0.SI (Of Meter)
' CType(auxConfig.ElectricalUserInputsConfig, ElectricsUserInputsConfig).PowerNetVoltage = powernetVoltage
' CType(auxConfig.ElectricalUserInputsConfig, ElectricsUserInputsConfig).AlternatorMap =alternatorMap
' Assert.That(Sub() target = New M00Impl(auxConfig.ElectricalUserInputsConfig, signals, New SSMTOOL(auxconfig.SSMInputs)),
' Throws.InstanceOf (Of ArgumentException))
'End Sub
<Test()>
Public Sub CreateNew_MissingAlternatorMap_ThrowArgumentExceptionTest()
......
VECTOAux/VectoAuxiliariesTests/UnitTests/PneumaticActuationsMapTests.vb
+ 1
− 1
View file @ 3113f39b
......@@ -84,7 +84,7 @@ Namespace Pneumatics
Assert.That(Sub()
dim target = ActuationsMapReader.Read(cstrPneumaticActuationsMapPath_INVALIDCONSUMERNAME)
End Sub, Throws.InstanceOf (Of ArgumentException))
End Sub, Throws.InstanceOf (Of VectoException))
End Sub
<Test()>
......
VECTOAux/VectoAuxiliariesTests/UnitTests/ResultCardTests.vb
+ 4
− 2
View file @ 3113f39b
......@@ -172,9 +172,11 @@ Public Class ResultCardTests
Dim resultSet As New List(Of SmartResult)
Dim expected As Single = 10
Assert.That(Sub()
Dim actual As Ampere = (New ResultCard(resultSet)).GetSmartCurrentResult(10.SI(Of Ampere))
End Sub, Throws.InstanceOf(Of ArgumentException))
Assert.AreEqual(expected, actual.Value(), 0.001)
'Assert.AreEqual(expected, actual.Value(), 0.001)
End Sub
End Class
VECTOAux/VectoAuxiliariesTests/UnitTests/SSMTOOLTests.vb
+ 14
− 6
View file @ 3113f39b
......@@ -2,6 +2,7 @@
Imports NUnit.Framework
Imports TUGraz.VectoCommon.BusAuxiliaries
Imports TUGraz.VectoCommon.InputData
Imports TUGraz.VectoCommon.Models
Imports TUGraz.VectoCommon.Utils
Imports TUGraz.VectoCore.InputData.FileIO.JSON
Imports TUGraz.VectoCore.InputData.Reader.ComponentData
......@@ -75,9 +76,16 @@ Namespace UnitTests
Dim mission As New Mission With{
.BusParameter = New BusParameters() with {
.HVACCompressorType = ACCompressorType.TwoStage,
.HVACAuxHeaterPower = 18e3.SI(Of Watt),
.HVACConfiguration = BusHVACSystemConfiguration.Configuration6
}
.HVACAuxHeaterPower = 30e3.SI(Of Watt),
.HVACConfiguration = BusHVACSystemConfiguration.Configuration6,
.FloorType = FloorType.HighFloor,
.DoubleDecker = False,
.VehicleWidth = 2.55.SI(Of Meter),
.VehicleLength = 10.655.SI(Of meter),
.BodyHeight = 2.275.SI(Of Meter),
.PassengerDensity = 3.SI(Of PerSquareMeter)
},
.MissionType = MissionType.Urban
}
Dim auxInput as IBusAuxiliariesDeclarationData = nothing
......@@ -88,7 +96,7 @@ Namespace UnitTests
If section = "BusParameterisation" Then
'BUS Parameterisation
'********************
Assert.AreEqual(47, target.BusParameters.NumberOfPassengers)
Assert.AreEqual(73.33075, target.BusParameters.NumberOfPassengers, 1e-3)
Assert.AreEqual(FloorType.HighFloor, target.BusParameters.BusFloorType)
'Assert.AreEqual(24.1102486R, target.BusParameters.BusFloorSurfaceArea.Value(), 2)
Assert.AreEqual(114.42325R, target.BusParameters.BusSurfaceArea.Value())
......@@ -117,7 +125,7 @@ Namespace UnitTests
'Assert.AreEqual(7, target.BoundaryConditions.LowVentilation.Value()*3600)
'Assert.AreEqual(1236.25, Math.Round(target.BoundaryConditions.VolumeExchange.Value()*3600, 2))
'Assert.AreEqual(432.69, Math.Round(target.BoundaryConditions.LowVolumeExchange.Value()*3600, 2))
Assert.AreEqual(692.3, Math.Round(target.BoundaryConditions.VentPower(False).Value(), 2))
Assert.AreEqual(540.14, Math.Round(target.BoundaryConditions.VentPower(False).Value(), 2))
'Assert.AreEqual(242.3, Math.Round(target.BoundaryConditions.LowVentPower.Value(), 2))
Assert.AreEqual(0.56R, target.BoundaryConditions.SpecificVentilationPower.Value()/3600)
Assert.AreEqual(0.84, target.BoundaryConditions.AuxHeaterEfficiency)
......@@ -142,7 +150,7 @@ Namespace UnitTests
'AC-SYSTEM
'*********
Assert.AreEqual(ACCompressorType.TwoStage, target.ACSystem.HVACCompressorType)
Assert.AreEqual(18, target.ACSystem.HVACMaxCoolingPower.Value()/1000.0)
Assert.AreEqual(24.155, target.ACSystem.HVACMaxCoolingPower.Value()/1000.0)
Assert.AreEqual(3.5, target.ACSystem.COP)
End If
......
VECTOAux/VectoAuxiliariesTests/UnitTests/Utils.vb
+ 4
− 2
View file @ 3113f39b
......@@ -105,8 +105,8 @@ Public Class Utils
Dim retval = New AuxiliaryConfig() With {
.ElectricalUserInputsConfig = New ElectricsUserInputsConfig() With {
.AverageCurrentDemandInclBaseLoad = 0.SI(Of Ampere),
.AverageCurrentDemandWithoutBaseLoad = 0.SI(of Ampere),
.AverageCurrentDemandInclBaseLoad = 60.631777385159026.SI(Of Ampere),
.AverageCurrentDemandWithoutBaseLoad = 35.631777385159026.SI(of Ampere),
.ResultCardIdle = New DummyResultCard(), ' New ResultCard(New List(Of SmartResult)()),
.ResultCardTraction = New DummyResultCard(), 'New ResultCard(New List(Of SmartResult)()),
.ResultCardOverrun = New DummyResultCard(), 'New ResultCard(New List(Of SmartResult)()),
......@@ -132,6 +132,8 @@ Public Class Utils
.BusSurfaceArea = 0.SI(Of SquareMeter),
.BusVolume = 0.SI(Of CubicMeter),
.BusWindowSurface = 0.SI(of SquareMeter),
.UValue = 3.SI(Of WattPerKelvinSquareMeter),
.COP = 3.5,
.VentilationRate = 20.SI(Unit.SI.Per.Hour).Cast (Of PerSecond),
.VentilationRateHeating = 20.SI(Unit.SI.Per.Hour).Cast (Of PerSecond),
.DefaultConditions =
......
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