Code development platform for open source projects from the European Union institutions

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

adapt aux tests due to switch to SI-class

parent d8e65d52
No related branches found
No related tags found
No related merge requests found
Expand all Hide whitespace changes
Inline Side-by-side
Showing
with 1650 additions and 1674 deletions
VECTOAux/VectoAuxiliariesTests/IntegrationTests/AuxDemandTest.vb
+ 13
− 13
View file @ bc84192e
Imports System.IO Imports System.IO
Imports NUnit.Framework Imports NUnit.Framework
Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries Imports VectoAuxiliaries
Namespace IntegrationTests Namespace IntegrationTests
...@@ -11,8 +12,7 @@ Namespace IntegrationTests ...@@ -11,8 +12,7 @@ Namespace IntegrationTests
<TestCase(12000, 1256, -15, -50, 8954.1435)> <TestCase(12000, 1256, -15, -50, 8954.1435)>
<TestCase(15700, 1319, -35.79263, -144.0441, 9093.9511)> <TestCase(15700, 1319, -35.79263, -144.0441, 9093.9511)>
Public Sub AuxDemnadTest(vehicleWeight As Double, engineSpeed As Double, driveLinePower As Double, Public Sub AuxDemnadTest(vehicleWeight As Double, engineSpeed As Double, driveLinePower As Double,
internalPower As Double, internalPower As Double, expectedPowerDemand As Double)
expectedPowerDemand As Double)
Dim engineFCMapFilePath = "TestFiles\Integration\24t Coach.vmap" Dim engineFCMapFilePath = "TestFiles\Integration\24t Coach.vmap"
Dim auxFilePath = "TestFiles\Integration\AdvAuxTest.aaux" Dim auxFilePath = "TestFiles\Integration\AdvAuxTest.aaux"
...@@ -46,9 +46,9 @@ Namespace IntegrationTests ...@@ -46,9 +46,9 @@ Namespace IntegrationTests
aux.Signals.RunningCalc = True aux.Signals.RunningCalc = True
aux.Signals.Internal_Engine_Power = internalPower 'kW aux.Signals.Internal_Engine_Power = internalPower 'kW
Dim power As Single = aux.AuxiliaryPowerAtCrankWatts Dim power As Watt = aux.AuxiliaryPowerAtCrankWatts()
Assert.AreEqual(expectedPowerDemand, power, 0.001) Assert.AreEqual(expectedPowerDemand, power.Value(), 0.001)
End Sub End Sub
<Test> <Test>
...@@ -94,33 +94,33 @@ Namespace IntegrationTests ...@@ -94,33 +94,33 @@ Namespace IntegrationTests
Dim msg As String = String.Empty Dim msg As String = String.Empty
For i As Integer = 0 To 9 For i As Integer = 0 To 9
Assert.AreEqual(6087.0317, aux.AuxiliaryPowerAtCrankWatts, 0.001) Assert.AreEqual(6087.0317, aux.AuxiliaryPowerAtCrankWatts().Value(), 0.001)
aux.CycleStep(1, msg) aux.CycleStep(1.SI(Of Second), msg)
Next Next
Assert.AreEqual(79.303, aux.AA_TotalCycleFC_Grams, 0.0001) Assert.AreEqual(79.303, aux.AA_TotalCycleFC_Grams().Value(), 0.0001)
aux.Signals.EngineDrivelinePower = -15 aux.Signals.EngineDrivelinePower = -15
aux.Signals.EngineDrivelineTorque = aux.Signals.EngineDrivelinePower * 1000 / (1256 * 2 * Math.PI / 60) aux.Signals.EngineDrivelineTorque = aux.Signals.EngineDrivelinePower * 1000 / (1256 * 2 * Math.PI / 60)
aux.Signals.Internal_Engine_Power = -50 aux.Signals.Internal_Engine_Power = -50
For i As Integer = 0 To 9 For i As Integer = 0 To 9
Assert.AreEqual(8954.1435, aux.AuxiliaryPowerAtCrankWatts, 0.001) Assert.AreEqual(8954.1435, aux.AuxiliaryPowerAtCrankWatts().Value(), 0.001)
aux.CycleStep(1, msg) aux.CycleStep(1.SI(Of Second), msg)
Next Next
Assert.AreEqual(82.5783, aux.AA_TotalCycleFC_Grams, 0.0001) Assert.AreEqual(82.5783, aux.AA_TotalCycleFC_Grams().Value(), 0.0001)
aux.Signals.EngineDrivelinePower = driveLinePower aux.Signals.EngineDrivelinePower = driveLinePower
aux.Signals.EngineDrivelineTorque = aux.Signals.EngineDrivelinePower * 1000 / (1256 * 2 * Math.PI / 60) aux.Signals.EngineDrivelineTorque = aux.Signals.EngineDrivelinePower * 1000 / (1256 * 2 * Math.PI / 60)
aux.Signals.Internal_Engine_Power = internalPower aux.Signals.Internal_Engine_Power = internalPower
For i As Integer = 0 To 9 For i As Integer = 0 To 9
Assert.AreEqual(6087.0317, aux.AuxiliaryPowerAtCrankWatts, 0.001) Assert.AreEqual(6087.0317, aux.AuxiliaryPowerAtCrankWatts().Value(), 0.001)
aux.CycleStep(1, msg) aux.CycleStep(1.SI(Of Second), msg)
Next Next
Assert.AreEqual(162.4655, aux.AA_TotalCycleFC_Grams, 0.0001) Assert.AreEqual(162.4655, aux.AA_TotalCycleFC_Grams().Value(), 0.0001)
End Sub End Sub
End Class End Class
End Namespace End Namespace
\ No newline at end of file
VECTOAux/VectoAuxiliariesTests/Mocks/AlternatorMapMock.vb
+ 20
− 19
View file @ bc84192e
Imports VectoAuxiliaries.Electrics Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries.Electrics
Namespace Mocks Namespace Mocks
Public Class AlternatorMapMock Public Class AlternatorMapMock
Implements IAlternatorMap Implements IAlternatorMap
Dim failing As Boolean Dim failing As Boolean
Public Sub New(ByVal isFailing As Boolean) Public Sub New(ByVal isFailing As Boolean)
failing = isFailing failing = isFailing
End Sub End Sub
Public Function Initialise() As Boolean Implements IAlternatorMap.Initialise Public Function Initialise() As Boolean Implements IAlternatorMap.Initialise
If failing Then If failing Then
Throw New ArgumentException Throw New ArgumentException
Else Else
Return True Return True
End If End If
End Function End Function
Public Function GetEfficiency(ByVal rpm As single, ByVal amps As single) As AlternatorMapValues Implements IAlternatorMap.GetEfficiency Public Function GetEfficiency(rpm1 As Double, amps1 As Ampere) As AlternatorMapValues Implements IAlternatorMap.GetEfficiency
Return New AlternatorMapValues() Return New AlternatorMapValues()
End Function End Function
Public Event AuxiliaryEvent(ByRef sender As Object, message As String, messageType As VectoAuxiliaries.AdvancedAuxiliaryMessageType) Implements VectoAuxiliaries.IAuxiliaryEvent.AuxiliaryEvent Public Event AuxiliaryEvent(ByRef sender As Object, message As String, messageType As VectoAuxiliaries.AdvancedAuxiliaryMessageType) Implements VectoAuxiliaries.IAuxiliaryEvent.AuxiliaryEvent
End Class End Class
End Namespace End Namespace
VECTOAux/VectoAuxiliariesTests/Mocks/CompressorMapMock.vb
+ 9
− 8
View file @ bc84192e
Imports VectoAuxiliaries Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries
Imports VectoAuxiliaries.Pneumatics Imports VectoAuxiliaries.Pneumatics
Namespace Mocks Namespace Mocks
...@@ -19,20 +20,20 @@ Namespace Mocks ...@@ -19,20 +20,20 @@ Namespace Mocks
End If End If
End Function End Function
Public Function GetFlowRate(ByVal rpm As Double) As Single Implements ICompressorMap.GetFlowRate Public Function GetFlowRate(ByVal rpm As Double) As NormLiterPerSecond Implements ICompressorMap.GetFlowRate
Return 2.0 Return 2.0.SI(Of NormLiterPerSecond)()
End Function End Function
Public Function GetPowerCompressorOn(ByVal rpm As Double) As Single Implements ICompressorMap.GetPowerCompressorOn Public Function GetPowerCompressorOn(ByVal rpm As Double) As Watt Implements ICompressorMap.GetPowerCompressorOn
Return 8.0 Return 8.0.SI(Of Watt)()
End Function End Function
Public Function GetPowerCompressorOff(ByVal rpm As Double) As Single Implements ICompressorMap.GetPowerCompressorOff Public Function GetPowerCompressorOff(ByVal rpm As Double) As Watt Implements ICompressorMap.GetPowerCompressorOff
Return 5.0 Return 5.0.SI(Of Watt)()
End Function End Function
Public Function GetAveragePowerDemandPerCompressorUnitFlowRate() As Single _ Public Function GetAveragePowerDemandPerCompressorUnitFlowRate() As Double _
Implements ICompressorMap.GetAveragePowerDemandPerCompressorUnitFlowRate Implements ICompressorMap.GetAveragePowerDemandPerCompressorUnitFlowRate
Return 0.01 Return 0.01
......
VECTOAux/VectoAuxiliariesTests/Mocks/ElectricalConsumerMock.vb
+ 26
− 27
View file @ bc84192e
Imports VectoAuxiliaries.Electrics Imports VectoAuxiliaries.Electrics
Imports System.ComponentModel Imports System.ComponentModel
Imports TUGraz.VectoCommon.Utils
Namespace Mocks Namespace Mocks
Public Class ElectricalConsumerMock
Implements IElectricalConsumer
Public Class ElectricalConsumerMock Public Property AvgConsumptionAmps As Double Implements IElectricalConsumer.AvgConsumptionAmps
Implements IElectricalConsumer
Public Property AvgConsumptionAmps As Single Implements IElectricalConsumer.AvgConsumptionAmps Public Property BaseVehicle As Boolean Implements IElectricalConsumer.BaseVehicle
Public Property BaseVehicle As Boolean Implements IElectricalConsumer.BaseVehicle Public Property Category As String Implements IElectricalConsumer.Category
Public Property Category As String Implements IElectricalConsumer.Category Public Property ConsumerName As String Implements IElectricalConsumer.ConsumerName
Public Property ConsumerName As String Implements IElectricalConsumer.ConsumerName Public Property NominalConsumptionAmps As Double Implements IElectricalConsumer.NominalConsumptionAmps
Public Property NominalConsumptionAmps As Single Implements IElectricalConsumer.NominalConsumptionAmps Public Property NumberInActualVehicle As Integer Implements IElectricalConsumer.NumberInActualVehicle
Public Property NumberInActualVehicle As Integer Implements IElectricalConsumer.NumberInActualVehicle Public Property PhaseIdle_TractionOn As Double Implements IElectricalConsumer.PhaseIdle_TractionOn
Public Property PhaseIdle_TractionOn As Single Implements IElectricalConsumer.PhaseIdle_TractionOn Public Property PowerNetVoltage As Double Implements IElectricalConsumer.PowerNetVoltage
Public Property PowerNetVoltage As Single Implements IElectricalConsumer.PowerNetVoltage Public Function TotalAvgConumptionAmps(Optional PhaseIdle_TractionOnBasedOnCycle As Double = Nothing) As Ampere _
Implements IElectricalConsumer.TotalAvgConumptionAmps
Return 9.SI(Of Ampere)()
End Function
Public Function TotalAvgConumptionAmps(Optional PhaseIdle_TractionOnBasedOnCycle As Single = 0.0) As Single Implements IElectricalConsumer.TotalAvgConumptionAmps
Return 9
End Function
Public Function TotalAvgConsumptionInWatts(Optional PhaseIdle_TractionOnBasedOnCycle As Double = 0.0) As Watt _
Implements IElectricalConsumer.TotalAvgConsumptionInWatts
Public Function TotalAvgConsumptionInWatts(Optional PhaseIdle_TractionOnBasedOnCycle As Single = 0.0) As Single Implements IElectricalConsumer.TotalAvgConsumptionInWatts Return (9 * 26.3).SI(Of Watt)()
End Function
Return 9 * 26.3
End Function Public Property Info As String Implements IElectricalConsumer.Info
Public Event PropertyChanged As PropertyChangedEventHandler _
Implements INotifyPropertyChanged.PropertyChanged
Public Property Info As String Implements IElectricalConsumer.Info Private Sub NotifyPropertyChanged(p As String)
RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(p))
Public Event PropertyChanged As PropertyChangedEventHandler _ End Sub
Implements INotifyPropertyChanged.PropertyChanged End Class
Private Sub NotifyPropertyChanged(p As String)
RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(p))
End Sub
End Class
End Namespace End Namespace
VECTOAux/VectoAuxiliariesTests/Mocks/M1_Mock.vb
+ 44
− 46
View file @ bc84192e
 
Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries.Electrics Imports VectoAuxiliaries.Electrics
Imports VectoAuxiliaries.Pneumatics Imports VectoAuxiliaries.Pneumatics
Imports VectoAuxiliaries.Hvac Imports VectoAuxiliaries.Hvac
...@@ -6,51 +7,48 @@ Imports VectoAuxiliaries.DownstreamModules ...@@ -6,51 +7,48 @@ Imports VectoAuxiliaries.DownstreamModules
Public Class M1_Mock Public Class M1_Mock
Implements IM1_AverageHVACLoadDemand Implements IM1_AverageHVACLoadDemand
Public _AveragePowerDemandAtAlternatorFromHVACElectricsWatts As Single Public _AveragePowerDemandAtAlternatorFromHVACElectricsWatts As Watt
public _AveragePowerDemandAtCrankFromHVACElectricsWatts As single Public _AveragePowerDemandAtCrankFromHVACElectricsWatts As Watt
Public _AveragePowerDemandAtCrankFromHVACMechanicalsWatts As Single Public _AveragePowerDemandAtCrankFromHVACMechanicalsWatts As Watt
Public _HVACFuelingLitresPerHour As single Public _HVACFuelingLitresPerHour As LiterPerHour
Public Function AveragePowerDemandAtAlternatorFromHVACElectricsWatts() As Single Implements IM1_AverageHVACLoadDemand.AveragePowerDemandAtAlternatorFromHVACElectricsWatts Public Function AveragePowerDemandAtAlternatorFromHVACElectricsWatts() As Watt _
Return _AveragePowerDemandAtAlternatorFromHVACElectricsWatts Implements IM1_AverageHVACLoadDemand.AveragePowerDemandAtAlternatorFromHVACElectricsWatts
End Function Return _AveragePowerDemandAtAlternatorFromHVACElectricsWatts
End Function
Public Function AveragePowerDemandAtCrankFromHVACElectricsWatts() As Single Implements IM1_AverageHVACLoadDemand.AveragePowerDemandAtCrankFromHVACElectricsWatts
Return _AveragePowerDemandAtCrankFromHVACElectricsWatts Public Function AveragePowerDemandAtCrankFromHVACElectricsWatts() As Watt _
End Function Implements IM1_AverageHVACLoadDemand.AveragePowerDemandAtCrankFromHVACElectricsWatts
Return _AveragePowerDemandAtCrankFromHVACElectricsWatts
Public Function AveragePowerDemandAtCrankFromHVACMechanicalsWatts() As Single Implements IM1_AverageHVACLoadDemand.AveragePowerDemandAtCrankFromHVACMechanicalsWatts End Function
Return _AveragePowerDemandAtCrankFromHVACMechanicalsWatts
End Function Public Function AveragePowerDemandAtCrankFromHVACMechanicalsWatts() As Watt _
Implements IM1_AverageHVACLoadDemand.AveragePowerDemandAtCrankFromHVACMechanicalsWatts
Public Function HVACFuelingLitresPerHour() As Single Implements IM1_AverageHVACLoadDemand.HVACFuelingLitresPerHour Return _AveragePowerDemandAtCrankFromHVACMechanicalsWatts
Return _HVACFuelingLitresPerHour End Function
End Function
Public Function HVACFuelingLitresPerHour() As LiterPerHour _
Implements IM1_AverageHVACLoadDemand.HVACFuelingLitresPerHour
Return _HVACFuelingLitresPerHour
Public Sub new() End Function
End Sub
Public Sub New()
Public Sub new ( AveragePowerDemandAtAlternatorFromHVACElectricsWatts As Single, _ End Sub
AveragePowerDemandAtCrankFromHVACElectricsWatts As single, _
AveragePowerDemandAtCrankFromHVACMechanicalsWatts As Single, _ Public Sub New(AveragePowerDemandAtAlternatorFromHVACElectricsWatts As Double,
HVACFuelingLitresPerHour As single) AveragePowerDemandAtCrankFromHVACElectricsWatts As Double,
AveragePowerDemandAtCrankFromHVACMechanicalsWatts As Double,
'Assign Values HVACFuelingLitresPerHour As Double)
_AveragePowerDemandAtAlternatorFromHVACElectricsWatts = AveragePowerDemandAtAlternatorFromHVACElectricsWatts
_AveragePowerDemandAtCrankFromHVACElectricsWatts = AveragePowerDemandAtCrankFromHVACElectricsWatts 'Assign Values
_AveragePowerDemandAtCrankFromHVACMechanicalsWatts = AveragePowerDemandAtCrankFromHVACMechanicalsWatts _AveragePowerDemandAtAlternatorFromHVACElectricsWatts =
_HVACFuelingLitresPerHour = HVACFuelingLitresPerHour AveragePowerDemandAtAlternatorFromHVACElectricsWatts.SI(Of Watt)()
_AveragePowerDemandAtCrankFromHVACElectricsWatts = AveragePowerDemandAtCrankFromHVACElectricsWatts.SI(Of Watt)()
_AveragePowerDemandAtCrankFromHVACMechanicalsWatts = AveragePowerDemandAtCrankFromHVACMechanicalsWatts.SI(Of Watt)()
End Sub _HVACFuelingLitresPerHour = HVACFuelingLitresPerHour.SI(Of LiterPerHour)()
End Sub
End Class End Class
VECTOAux/VectoAuxiliariesTests/Mocks/M2_Mock.vb
+ 19
− 22
View file @ bc84192e
Imports VectoAuxiliaries.Electrics Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries.Electrics
Imports VectoAuxiliaries.Pneumatics Imports VectoAuxiliaries.Pneumatics
Imports VectoAuxiliaries.Hvac Imports VectoAuxiliaries.Hvac
Imports VectoAuxiliaries.DownstreamModules Imports VectoAuxiliaries.DownstreamModules
Public Class M2_Mock Public Class M2_Mock
Implements IM2_AverageElectricalLoadDemand Implements IM2_AverageElectricalLoadDemand
Public _GetAveragePowerAtCrankFromElectrics As Watt
Public _GetAveragePowerDemandAtAlternator As Watt
Public _GetAveragePowerAtCrankFromElectrics As Single
Public _GetAveragePowerDemandAtAlternator As Single
Public Function GetAveragePowerAtCrankFromElectrics() As Watt _
Implements IM2_AverageElectricalLoadDemand.GetAveragePowerAtCrankFromElectrics
Return _GetAveragePowerAtCrankFromElectrics
End Function
Public Function GetAveragePowerDemandAtAlternator() As Watt _
Implements IM2_AverageElectricalLoadDemand.GetAveragePowerDemandAtAlternator
Return _GetAveragePowerDemandAtAlternator
End Function
Public Function GetAveragePowerAtCrankFromElectrics() As Single Implements IM2_AverageElectricalLoadDemand.GetAveragePowerAtCrankFromElectrics
Return _GetAveragePowerAtCrankFromElectrics
End Function
Public Function GetAveragePowerDemandAtAlternator() As Single Implements IM2_AverageElectricalLoadDemand.GetAveragePowerDemandAtAlternator Public Sub New()
Return _GetAveragePowerDemandAtAlternator End Sub
End Function
Public Sub new() Public Sub New(GetAveragePowerAtCrankFromElectrics As Double, GetAveragePowerDemandAtAlternator As Double)
End Sub
Public Sub new ( GetAveragePowerAtCrankFromElectrics As Single,GetAveragePowerDemandAtAlternator As single )
_GetAveragePowerAtCrankFromElectrics = GetAveragePowerAtCrankFromElectrics
_GetAveragePowerDemandAtAlternator = GetAveragePowerDemandAtAlternator
End Sub
_GetAveragePowerAtCrankFromElectrics = GetAveragePowerAtCrankFromElectrics.SI(Of Watt)()
_GetAveragePowerDemandAtAlternator = GetAveragePowerDemandAtAlternator.SI(Of Watt)()
End Sub
End Class End Class
VECTOAux/VectoAuxiliariesTests/Mocks/M3_Mock.vb
+ 19
− 22
View file @ bc84192e
Imports VectoAuxiliaries.Electrics Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries.Electrics
Imports VectoAuxiliaries.Pneumatics Imports VectoAuxiliaries.Pneumatics
Imports VectoAuxiliaries.Hvac Imports VectoAuxiliaries.Hvac
Imports VectoAuxiliaries.DownstreamModules Imports VectoAuxiliaries.DownstreamModules
Public Class M3_Mock Public Class M3_Mock
Implements IM3_AveragePneumaticLoadDemand Implements IM3_AveragePneumaticLoadDemand
public _GetAveragePowerDemandAtCrankFromPneumatics as single Public _GetAveragePowerDemandAtCrankFromPneumatics As Watt
public _TotalAirConsumedPerCycle as single Public _TotalAirConsumedPerCycle As NormLiterPerSecond
Public Function GetAveragePowerDemandAtCrankFromPneumatics() As Single Implements IM3_AveragePneumaticLoadDemand.GetAveragePowerDemandAtCrankFromPneumatics Public Function GetAveragePowerDemandAtCrankFromPneumatics() As Watt _
Return _GetAveragePowerDemandAtCrankFromPneumatics Implements IM3_AveragePneumaticLoadDemand.GetAveragePowerDemandAtCrankFromPneumatics
End Function Return _GetAveragePowerDemandAtCrankFromPneumatics
End Function
Public Function TotalAirConsumedPerCycle() As Single Implements IM3_AveragePneumaticLoadDemand.AverageAirConsumedPerSecondLitre Public Function TotalAirConsumedPerCycle() As NormLiterPerSecond _
Return _TotalAirConsumedPerCycle Implements IM3_AveragePneumaticLoadDemand.AverageAirConsumedPerSecondLitre
End Function Return _TotalAirConsumedPerCycle
End Function
Public Sub New()
End Sub
Public Sub new() Public Sub New(GetAveragePowerDemandAtCrankFromPneumatics As Double, TotalAirConsumedPerCycle As Double)
End Sub
Public Sub new ( GetAveragePowerDemandAtCrankFromPneumatics As Single,TotalAirConsumedPerCycle As single )
_GetAveragePowerDemandAtCrankFromPneumatics= GetAveragePowerDemandAtCrankFromPneumatics
_TotalAirConsumedPerCycle = TotalAirConsumedPerCycle
End Sub
_GetAveragePowerDemandAtCrankFromPneumatics = GetAveragePowerDemandAtCrankFromPneumatics.SI(Of Watt)()
_TotalAirConsumedPerCycle = TotalAirConsumedPerCycle.SI(Of NormLiterPerSecond)()
End Sub
End Class End Class
VECTOAux/VectoAuxiliariesTests/Mocks/M4_Mock.vb
+ 58
− 57
View file @ bc84192e
Imports VectoAuxiliaries.Electrics Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries.Electrics
Imports VectoAuxiliaries.Pneumatics Imports VectoAuxiliaries.Pneumatics
Imports VectoAuxiliaries.Hvac Imports VectoAuxiliaries.Hvac
Imports VectoAuxiliaries.DownstreamModules Imports VectoAuxiliaries.DownstreamModules
Public Class M4_Mock Public Class M4_Mock
Implements IM4_AirCompressor Implements IM4_AirCompressor
Public Property _AveragePowerDemandPerCompressorUnitFlowRate As Single Public Property _AveragePowerDemandPerCompressorUnitFlowRate As SI
Public Property _FlowRate As Single Public Property _FlowRate As NormLiterPerSecond
Public Property _PowerCompressorOff As single Public Property _PowerCompressorOff As Watt
Public Property _PowerCompressorOn As Single Public Property _PowerCompressorOn As Watt
Public Property _PowerDifference As single Public Property _PowerDifference As Watt
Public Function GetAveragePowerDemandPerCompressorUnitFlowRate() As Single Implements IM4_AirCompressor.GetAveragePowerDemandPerCompressorUnitFlowRate Public Function GetAveragePowerDemandPerCompressorUnitFlowRate() As SI Implements IM4_AirCompressor.GetAveragePowerDemandPerCompressorUnitFlowRate
Return _AveragePowerDemandPerCompressorUnitFlowRate Return _AveragePowerDemandPerCompressorUnitFlowRate
End Function End Function
Public Function GetFlowRate() As Single Implements IM4_AirCompressor.GetFlowRate Public Function GetFlowRate() As NormLiterPerSecond Implements IM4_AirCompressor.GetFlowRate
Return _FlowRate Return _FlowRate
End Function End Function
Public Function GetPowerCompressorOff() As Single Implements IM4_AirCompressor.GetPowerCompressorOff Public Function GetPowerCompressorOff() As Watt Implements IM4_AirCompressor.GetPowerCompressorOff
Return _PowerCompressorOff Return _PowerCompressorOff
End Function End Function
Public Function PowerCompressorOn() As Single Implements IM4_AirCompressor.GetPowerCompressorOn Public Function PowerCompressorOn() As Watt Implements IM4_AirCompressor.GetPowerCompressorOn
Return _PowerCompressorOn Return _PowerCompressorOn
End Function End Function
Public Function GetPowerDifference() As Single Implements IM4_AirCompressor.GetPowerDifference Public Function GetPowerDifference() As Watt Implements IM4_AirCompressor.GetPowerDifference
Return _PowerDifference Return _PowerDifference
End Function End Function
Public Sub new() Public Sub New()
End Sub End Sub
Public Sub new(AveragePowerDemandPerCompressorUnitFlowRate as single , _ Public Sub New(AveragePowerDemandPerCompressorUnitFlowRate As Double, _
FlowRate As single, _ FlowRate As Double, _
PowerCompressorOff As Single, _ PowerCompressorOff As Double, _
PowerCompressorOn As Single, _ PowerCompressorOn As Double, _
PowerDifference As Single) PowerDifference As Double)
_AveragePowerDemandPerCompressorUnitFlowRate = AveragePowerDemandPerCompressorUnitFlowRate _AveragePowerDemandPerCompressorUnitFlowRate = AveragePowerDemandPerCompressorUnitFlowRate.SI()
_FlowRate = FlowRate _FlowRate = FlowRate.SI(Of NormLiterPerSecond)()
_PowerCompressorOff = PowerCompressorOff _PowerCompressorOff = PowerCompressorOff.SI(Of Watt)()
_PowerCompressorOn = PowerCompressorOn _PowerCompressorOn = PowerCompressorOn.SI(Of Watt)()
_PowerDifference = PowerDifference _PowerDifference = PowerDifference.SI(Of Watt)()
End Sub End Sub
'Non Essential 'Non Essential
Public Function Initialise() As Boolean Implements IM4_AirCompressor.Initialise Public Function Initialise() As Boolean Implements IM4_AirCompressor.Initialise
Return true Return True
End Function End Function
Public Property PulleyGearEfficiency As Single Implements IM4_AirCompressor.PulleyGearEfficiency Public Property PulleyGearEfficiency As Double Implements IM4_AirCompressor.PulleyGearEfficiency
Public Property PulleyGearRatio As Single Implements IM4_AirCompressor.PulleyGearRatio Public Property PulleyGearRatio As Double Implements IM4_AirCompressor.PulleyGearRatio
......
VECTOAux/VectoAuxiliariesTests/Mocks/M5_Mock.vb
+ 27
− 29
View file @ bc84192e
Imports VectoAuxiliaries.Electrics Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries.Electrics
Imports VectoAuxiliaries.Pneumatics Imports VectoAuxiliaries.Pneumatics
Imports VectoAuxiliaries.Hvac Imports VectoAuxiliaries.Hvac
Imports VectoAuxiliaries.DownstreamModules Imports VectoAuxiliaries.DownstreamModules
Public Class M5_Mock Public Class M5_Mock
Implements IM5_SmartAlternatorSetGeneration Implements IM5_SmartAlternatorSetGeneration
Public Property _AlternatorsGenerationPowerAtCrankIdleWatts As Watt
Public Property _AlternatorsGenerationPowerAtCrankOverrunWatts As Watt
Public Property _AlternatorsGenerationPowerAtCrankTractionOnWatts As Watt
public property _AlternatorsGenerationPowerAtCrankIdleWatts as single
public property _AlternatorsGenerationPowerAtCrankOverrunWatts as single
public property _AlternatorsGenerationPowerAtCrankTractionOnWatts as single
Public Function AlternatorsGenerationPowerAtCrankIdleWatts() As Watt _
Implements IM5_SmartAlternatorSetGeneration.AlternatorsGenerationPowerAtCrankIdleWatts
Return _AlternatorsGenerationPowerAtCrankIdleWatts
End Function
Public Function AlternatorsGenerationPowerAtCrankIdleWatts() As Single Implements IM5_SmartAlternatorSetGeneration.AlternatorsGenerationPowerAtCrankIdleWatts Public Function AlternatorsGenerationPowerAtCrankOverrunWatts() As Watt _
Return _AlternatorsGenerationPowerAtCrankIdleWatts Implements IM5_SmartAlternatorSetGeneration.AlternatorsGenerationPowerAtCrankOverrunWatts
End Function Return _AlternatorsGenerationPowerAtCrankOverrunWatts
End Function
Public Function AlternatorsGenerationPowerAtCrankOverrunWatts() As Single Implements IM5_SmartAlternatorSetGeneration.AlternatorsGenerationPowerAtCrankOverrunWatts Public Function AlternatorsGenerationPowerAtCrankTractionOnWatts() As Watt _
Return _AlternatorsGenerationPowerAtCrankOverrunWatts Implements IM5_SmartAlternatorSetGeneration.AlternatorsGenerationPowerAtCrankTractionOnWatts
End Function Return _AlternatorsGenerationPowerAtCrankTractionOnWatts
End Function
Public Function AlternatorsGenerationPowerAtCrankTractionOnWatts() As Single Implements IM5_SmartAlternatorSetGeneration.AlternatorsGenerationPowerAtCrankTractionOnWatts
Return _AlternatorsGenerationPowerAtCrankTractionOnWatts
End Function
Public Sub New()
End Sub
Public Sub new ()
End Sub
Public Sub new ( AlternatorsGenerationPowerAtCrankIdleWatts as single,
AlternatorsGenerationPowerAtCrankOverrunWatts as single,
AlternatorsGenerationPowerAtCrankTractionOnWatts as single)
_AlternatorsGenerationPowerAtCrankIdleWatts = AlternatorsGenerationPowerAtCrankIdleWatts
_AlternatorsGenerationPowerAtCrankOverrunWatts = AlternatorsGenerationPowerAtCrankOverrunWatts
_AlternatorsGenerationPowerAtCrankTractionOnWatts = AlternatorsGenerationPowerAtCrankTractionOnWatts
End Sub
Public Sub New(AlternatorsGenerationPowerAtCrankIdleWatts As Double,
AlternatorsGenerationPowerAtCrankOverrunWatts As Double,
AlternatorsGenerationPowerAtCrankTractionOnWatts As Double)
_AlternatorsGenerationPowerAtCrankIdleWatts = AlternatorsGenerationPowerAtCrankIdleWatts.SI(Of Watt)()
_AlternatorsGenerationPowerAtCrankOverrunWatts = AlternatorsGenerationPowerAtCrankOverrunWatts.SI(Of Watt)()
_AlternatorsGenerationPowerAtCrankTractionOnWatts = AlternatorsGenerationPowerAtCrankTractionOnWatts.SI(Of Watt)()
End Sub
End Class End Class
VECTOAux/VectoAuxiliariesTests/Mocks/M6_Mock.vb
+ 98
− 91
View file @ bc84192e
 
Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries.Electrics Imports VectoAuxiliaries.Electrics
Imports VectoAuxiliaries.Pneumatics Imports VectoAuxiliaries.Pneumatics
Imports VectoAuxiliaries.Hvac Imports VectoAuxiliaries.Hvac
...@@ -6,97 +7,103 @@ Imports VectoAuxiliaries.DownstreamModules ...@@ -6,97 +7,103 @@ Imports VectoAuxiliaries.DownstreamModules
Public Class M6_Mock Public Class M6_Mock
Implements IM6 Implements IM6
Public Property _AveragePowerDemandAtCrankFromPneumatics As Single
public property _AvgPowerDemandAtCrankFromElectricsIncHVAC As single
public property _OverrunFlag As integer
public property _SmartElecAndPneumaticAirCompPowerGenAtCrank As single
public property _SmartElecAndPneumaticAltPowerGenAtCrank As single
public property _SmartElecAndPneumaticsCompressorFlag As integer
public property _SmartElecOnlyAltPowerGenAtCrank As single
public property _SmartPneumaticOnlyAirCompPowerGenAtCrank As single
public property _SmartPneumaticsOnlyCompressorFlag As integer
Public ReadOnly Property AveragePowerDemandAtCrankFromPneumatics As Single Implements IM6.AveragePowerDemandAtCrankFromPneumatics
Get
Return _AveragePowerDemandAtCrankFromPneumatics
End Get
End Property
Public ReadOnly Property AvgPowerDemandAtCrankFromElectricsIncHVAC As Single Implements IM6.AvgPowerDemandAtCrankFromElectricsIncHVAC
Get
Return _AvgPowerDemandAtCrankFromElectricsIncHVAC
End Get
End Property
Public ReadOnly Property OverrunFlag As Integer Implements IM6.OverrunFlag
Get
Return _OverrunFlag
End Get
End Property
Public ReadOnly Property SmartElecAndPneumaticAirCompPowerGenAtCrank As Single Implements IM6.SmartElecAndPneumaticAirCompPowerGenAtCrank
Get
Return _SmartElecAndPneumaticAirCompPowerGenAtCrank
End Get
End Property
Public ReadOnly Property SmartElecAndPneumaticAltPowerGenAtCrank As Single Implements IM6.SmartElecAndPneumaticAltPowerGenAtCrank
Get
Return _SmartElecAndPneumaticAltPowerGenAtCrank
End Get
End Property
Public ReadOnly Property SmartElecAndPneumaticsCompressorFlag As Integer Implements IM6.SmartElecAndPneumaticsCompressorFlag
Get
Return _SmartElecAndPneumaticsCompressorFlag
End Get
End Property
Public ReadOnly Property SmartElecOnlyAltPowerGenAtCrank As Single Implements IM6.SmartElecOnlyAltPowerGenAtCrank
Get
Return _SmartElecOnlyAltPowerGenAtCrank
End Get
End Property
Public ReadOnly Property SmartPneumaticOnlyAirCompPowerGenAtCrank As Single Implements IM6.SmartPneumaticOnlyAirCompPowerGenAtCrank
Get
return _SmartPneumaticOnlyAirCompPowerGenAtCrank
End Get
End Property
Public ReadOnly Property SmartPneumaticsOnlyCompressorFlag As Integer Implements IM6.SmartPneumaticsOnlyCompressorFlag
Get
Return _SmartPneumaticsOnlyCompressorFlag
End Get
End Property
Public Sub new()
End Sub
Public Sub new(_AveragePowerDemandAtCrankFromPneumatics As Single , _
_AvgPowerDemandAtCrankFromElectricsIncHVAC As single , _
_OverrunFlag As integer, _
_SmartElecAndPneumaticAirCompPowerGenAtCrank As single , _
_SmartElecAndPneumaticAltPowerGenAtCrank As single , _
_SmartElecAndPneumaticsCompressorFlag As integer, _
_SmartElecOnlyAltPowerGenAtCrank As single , _
_SmartPneumaticOnlyAirCompPowerGenAtCrank As single , _
_SmartPneumaticsOnlyCompressorFlag As integer)
_AveragePowerDemandAtCrankFromPneumatics = AveragePowerDemandAtCrankFromPneumatics
_AvgPowerDemandAtCrankFromElectricsIncHVAC = AvgPowerDemandAtCrankFromElectricsIncHVAC
_OverrunFlag = OverrunFlag
_SmartElecAndPneumaticAirCompPowerGenAtCrank = SmartElecAndPneumaticAirCompPowerGenAtCrank
_SmartElecAndPneumaticAltPowerGenAtCrank = SmartElecAndPneumaticAltPowerGenAtCrank
_SmartElecAndPneumaticsCompressorFlag = SmartElecAndPneumaticsCompressorFlag
_SmartElecOnlyAltPowerGenAtCrank = SmartElecOnlyAltPowerGenAtCrank
_SmartPneumaticOnlyAirCompPowerGenAtCrank = SmartPneumaticOnlyAirCompPowerGenAtCrank
_SmartPneumaticsOnlyCompressorFlag = SmartPneumaticsOnlyCompressorFlag
End Sub
Public Property _AveragePowerDemandAtCrankFromPneumatics As Watt
Public Property _AvgPowerDemandAtCrankFromElectricsIncHVAC As Watt
Public Property _OverrunFlag As Integer
Public Property _SmartElecAndPneumaticAirCompPowerGenAtCrank As Watt
Public Property _SmartElecAndPneumaticAltPowerGenAtCrank As Watt
Public Property _SmartElecAndPneumaticsCompressorFlag As Integer
Public Property _SmartElecOnlyAltPowerGenAtCrank As Watt
Public Property _SmartPneumaticOnlyAirCompPowerGenAtCrank As Watt
Public Property _SmartPneumaticsOnlyCompressorFlag As Integer
Public ReadOnly Property AveragePowerDemandAtCrankFromPneumatics As Watt _
Implements IM6.AveragePowerDemandAtCrankFromPneumatics
Get
Return _AveragePowerDemandAtCrankFromPneumatics
End Get
End Property
Public ReadOnly Property AvgPowerDemandAtCrankFromElectricsIncHVAC As Watt _
Implements IM6.AvgPowerDemandAtCrankFromElectricsIncHVAC
Get
Return _AvgPowerDemandAtCrankFromElectricsIncHVAC
End Get
End Property
Public ReadOnly Property OverrunFlag As Boolean Implements IM6.OverrunFlag
Get
Return _OverrunFlag
End Get
End Property
Public ReadOnly Property SmartElecAndPneumaticAirCompPowerGenAtCrank As Watt _
Implements IM6.SmartElecAndPneumaticAirCompPowerGenAtCrank
Get
Return _SmartElecAndPneumaticAirCompPowerGenAtCrank
End Get
End Property
Public ReadOnly Property SmartElecAndPneumaticAltPowerGenAtCrank As Watt _
Implements IM6.SmartElecAndPneumaticAltPowerGenAtCrank
Get
Return _SmartElecAndPneumaticAltPowerGenAtCrank
End Get
End Property
Public ReadOnly Property SmartElecAndPneumaticsCompressorFlag As Boolean _
Implements IM6.SmartElecAndPneumaticsCompressorFlag
Get
Return _SmartElecAndPneumaticsCompressorFlag
End Get
End Property
Public ReadOnly Property SmartElecOnlyAltPowerGenAtCrank As Watt Implements IM6.SmartElecOnlyAltPowerGenAtCrank
Get
Return _SmartElecOnlyAltPowerGenAtCrank
End Get
End Property
Public ReadOnly Property SmartPneumaticOnlyAirCompPowerGenAtCrank As Watt _
Implements IM6.SmartPneumaticOnlyAirCompPowerGenAtCrank
Get
Return _SmartPneumaticOnlyAirCompPowerGenAtCrank
End Get
End Property
Public ReadOnly Property SmartPneumaticsOnlyCompressorFlag As Boolean Implements IM6.SmartPneumaticsOnlyCompressorFlag
Get
Return _SmartPneumaticsOnlyCompressorFlag
End Get
End Property
Public Sub New()
End Sub
Public Sub New(AveragePowerDemandAtCrankFromPneumatics As Double,
AvgPowerDemandAtCrankFromElectricsIncHVAC As Double,
OverrunFlag As Boolean,
SmartElecAndPneumaticAirCompPowerGenAtCrank As Double,
SmartElecAndPneumaticAltPowerGenAtCrank As Double,
SmartElecAndPneumaticsCompressorFlag As Boolean,
SmartElecOnlyAltPowerGenAtCrank As Double,
SmartPneumaticOnlyAirCompPowerGenAtCrank As Double,
SmartPneumaticsOnlyCompressorFlag As Boolean)
_AveragePowerDemandAtCrankFromPneumatics = AveragePowerDemandAtCrankFromPneumatics.SI(Of Watt)()
_AvgPowerDemandAtCrankFromElectricsIncHVAC = AvgPowerDemandAtCrankFromElectricsIncHVAC.SI(Of Watt)()
_OverrunFlag = OverrunFlag
_SmartElecAndPneumaticAirCompPowerGenAtCrank = SmartElecAndPneumaticAirCompPowerGenAtCrank.SI(Of Watt)()
_SmartElecAndPneumaticAltPowerGenAtCrank = SmartElecAndPneumaticAltPowerGenAtCrank.SI(Of Watt)()
_SmartElecAndPneumaticsCompressorFlag = SmartElecAndPneumaticsCompressorFlag
_SmartElecOnlyAltPowerGenAtCrank = SmartElecOnlyAltPowerGenAtCrank.SI(Of Watt)()
_SmartPneumaticOnlyAirCompPowerGenAtCrank = SmartPneumaticOnlyAirCompPowerGenAtCrank.SI(Of Watt)()
_SmartPneumaticsOnlyCompressorFlag = SmartPneumaticsOnlyCompressorFlag
End Sub
End Class End Class
VECTOAux/VectoAuxiliariesTests/Mocks/M7_Mock.vb
+ 52
− 53
View file @ bc84192e
 
Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries.Electrics Imports VectoAuxiliaries.Electrics
Imports VectoAuxiliaries.Pneumatics Imports VectoAuxiliaries.Pneumatics
Imports VectoAuxiliaries.Hvac Imports VectoAuxiliaries.Hvac
...@@ -6,56 +7,54 @@ Imports VectoAuxiliaries.DownstreamModules ...@@ -6,56 +7,54 @@ Imports VectoAuxiliaries.DownstreamModules
Public Class M7_Mock Public Class M7_Mock
Implements IM7 Implements IM7
Private _SmartElectricalAndPneumaticAuxAirCompPowerGenAtCrank As Single Private _SmartElectricalAndPneumaticAuxAirCompPowerGenAtCrank As Watt
Private _SmartElectricalAndPneumaticAuxAltPowerGenAtCrank As Single Private _SmartElectricalAndPneumaticAuxAltPowerGenAtCrank As Watt
Private _SmartElectricalOnlyAuxAltPowerGenAtCrank As Single Private _SmartElectricalOnlyAuxAltPowerGenAtCrank As Watt
Private _SmartPneumaticOnlyAuxAirCompPowerGenAtCrank As Single Private _SmartPneumaticOnlyAuxAirCompPowerGenAtCrank As Watt
Public ReadOnly Property SmartElectricalAndPneumaticAuxAirCompPowerGenAtCrank As Single Implements IM7.SmartElectricalAndPneumaticAuxAirCompPowerGenAtCrank Public ReadOnly Property SmartElectricalAndPneumaticAuxAirCompPowerGenAtCrank As Watt _
Get Implements IM7.SmartElectricalAndPneumaticAuxAirCompPowerGenAtCrank
Return _SmartElectricalAndPneumaticAuxAirCompPowerGenAtCrank Get
End Get Return _SmartElectricalAndPneumaticAuxAirCompPowerGenAtCrank
End Property End Get
End Property
Public ReadOnly Property SmartElectricalAndPneumaticAuxAltPowerGenAtCrank As Single Implements IM7.SmartElectricalAndPneumaticAuxAltPowerGenAtCrank
Get Public ReadOnly Property SmartElectricalAndPneumaticAuxAltPowerGenAtCrank As Watt _
Return _SmartElectricalAndPneumaticAuxAltPowerGenAtCrank Implements IM7.SmartElectricalAndPneumaticAuxAltPowerGenAtCrank
End Get Get
End Property Return _SmartElectricalAndPneumaticAuxAltPowerGenAtCrank
End Get
Public ReadOnly Property SmartElectricalOnlyAuxAltPowerGenAtCrank As Single Implements IM7.SmartElectricalOnlyAuxAltPowerGenAtCrank End Property
Get
Return _SmartElectricalOnlyAuxAltPowerGenAtCrank Public ReadOnly Property SmartElectricalOnlyAuxAltPowerGenAtCrank As Watt _
End Get Implements IM7.SmartElectricalOnlyAuxAltPowerGenAtCrank
End Property Get
Return _SmartElectricalOnlyAuxAltPowerGenAtCrank
Public ReadOnly Property SmartPneumaticOnlyAuxAirCompPowerGenAtCrank As Single Implements IM7.SmartPneumaticOnlyAuxAirCompPowerGenAtCrank End Get
Get End Property
Return _SmartPneumaticOnlyAuxAirCompPowerGenAtCrank
End Get Public ReadOnly Property SmartPneumaticOnlyAuxAirCompPowerGenAtCrank As Watt _
End Property Implements IM7.SmartPneumaticOnlyAuxAirCompPowerGenAtCrank
Get
Return _SmartPneumaticOnlyAuxAirCompPowerGenAtCrank
End Get
'Constructors End Property
public Sub new()
End Sub 'Constructors
Public Sub New()
Public Sub new (SmartElectricalAndPneumaticAuxAirCompPowerGenAtCrank As Single, End Sub
SmartElectricalAndPneumaticAuxAltPowerGenAtCrank As Single,
SmartElectricalOnlyAuxAltPowerGenAtCrank As Single, Public Sub New(SmartElectricalAndPneumaticAuxAirCompPowerGenAtCrank As Watt,
SmartPneumaticOnlyAuxAirCompPowerGenAtCrank As Single) SmartElectricalAndPneumaticAuxAltPowerGenAtCrank As Watt,
SmartElectricalOnlyAuxAltPowerGenAtCrank As Watt,
_SmartElectricalAndPneumaticAuxAirCompPowerGenAtCrank = SmartElectricalAndPneumaticAuxAirCompPowerGenAtCrank SmartPneumaticOnlyAuxAirCompPowerGenAtCrank As Watt)
_SmartElectricalAndPneumaticAuxAltPowerGenAtCrank = SmartElectricalAndPneumaticAuxAltPowerGenAtCrank
_SmartElectricalOnlyAuxAltPowerGenAtCrank = SmartElectricalOnlyAuxAltPowerGenAtCrank _SmartElectricalAndPneumaticAuxAirCompPowerGenAtCrank = SmartElectricalAndPneumaticAuxAirCompPowerGenAtCrank
_SmartPneumaticOnlyAuxAirCompPowerGenAtCrank = SmartPneumaticOnlyAuxAirCompPowerGenAtCrank _SmartElectricalAndPneumaticAuxAltPowerGenAtCrank = SmartElectricalAndPneumaticAuxAltPowerGenAtCrank
_SmartElectricalOnlyAuxAltPowerGenAtCrank = SmartElectricalOnlyAuxAltPowerGenAtCrank
_SmartPneumaticOnlyAuxAirCompPowerGenAtCrank = SmartPneumaticOnlyAuxAirCompPowerGenAtCrank
End Sub End Sub
End Class
\ No newline at end of file
End Class
\ No newline at end of file
VECTOAux/VectoAuxiliariesTests/Mocks/MockFuel50PC.vb
+ 5
− 4
View file @ bc84192e
...@@ -3,20 +3,21 @@ Imports VectoAuxiliaries.Pneumatics ...@@ -3,20 +3,21 @@ Imports VectoAuxiliaries.Pneumatics
Imports VectoAuxiliaries.Hvac Imports VectoAuxiliaries.Hvac
Imports VectoAuxiliaries.DownstreamModules Imports VectoAuxiliaries.DownstreamModules
Imports NUnit.Framework Imports NUnit.Framework
Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries Imports VectoAuxiliaries
public class MockFuel50PC Public Class MockFuel50PC
Implements IFuelConsumptionMap Implements IFuelConsumptionMap
Public Function fFCdelaunay_Intp(nU As Single, Tq As Single) As Single Public Function fFCdelaunay_Intp(nU As Double, Tq As Double) As Double
Return (nU + Tq) * 0.5 Return (nU + Tq) * 0.5
End Function End Function
Public Function GetFuelConsumption(torque As Double, angularVelocity As Double) As Double _ Public Function GetFuelConsumption(torque As NewtonMeter, angularVelocity As Double) As GramPerSecond _
Implements IFuelConsumptionMap.GetFuelConsumption Implements IFuelConsumptionMap.GetFuelConsumption
Return fFCdelaunay_Intp(angularVelocity, torque) Return (fFCdelaunay_Intp(angularVelocity, torque.Value()) / 3600).SI(Of GramPerSecond)()
End Function End Function
End Class End Class
VECTOAux/VectoAuxiliariesTests/My Project/Application.Designer.vb
+ 4
− 4
View file @ bc84192e
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
' <auto-generated> ' <auto-generated>
' This code was generated by a tool. ' Dieser Code wurde von einem Tool generiert.
' Runtime Version:4.0.30319.18444 ' Laufzeitversion:4.0.30319.42000
' '
' Changes to this file may cause incorrect behavior and will be lost if ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' the code is regenerated. ' der Code erneut generiert wird.
' </auto-generated> ' </auto-generated>
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
......
VECTOAux/VectoAuxiliariesTests/My Project/Resources.Designer.vb
+ 12
− 12
View file @ bc84192e
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
' <auto-generated> ' <auto-generated>
' This code was generated by a tool. ' Dieser Code wurde von einem Tool generiert.
' Runtime Version:4.0.30319.18444 ' Laufzeitversion:4.0.30319.42000
' '
' Changes to this file may cause incorrect behavior and will be lost if ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' the code is regenerated. ' der Code erneut generiert wird.
' </auto-generated> ' </auto-generated>
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
...@@ -15,12 +15,12 @@ Imports System ...@@ -15,12 +15,12 @@ Imports System
Namespace My.Resources Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
'class via a tool like ResGen or Visual Studio. '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
'To add or remove a member, edit your .ResX file then rerun ResGen 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
'with the /str option, or rebuild your VS project. 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
'''<summary> '''<summary>
''' A strongly-typed resource class, for looking up localized strings, etc. ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary> '''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
...@@ -33,7 +33,7 @@ Namespace My.Resources ...@@ -33,7 +33,7 @@ Namespace My.Resources
Private resourceCulture As Global.System.Globalization.CultureInfo Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary> '''<summary>
''' Returns the cached ResourceManager instance used by this class. ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
'''</summary> '''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
...@@ -47,8 +47,8 @@ Namespace My.Resources ...@@ -47,8 +47,8 @@ Namespace My.Resources
End Property End Property
'''<summary> '''<summary>
''' Overrides the current thread's CurrentUICulture property for all ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
''' resource lookups using this strongly typed resource class. ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
'''</summary> '''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo Friend Property Culture() As Global.System.Globalization.CultureInfo
......
VECTOAux/VectoAuxiliariesTests/My Project/Settings.Designer.vb
+ 5
− 5
View file @ bc84192e
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
' <auto-generated> ' <auto-generated>
' This code was generated by a tool. ' Dieser Code wurde von einem Tool generiert.
' Runtime Version:4.0.30319.18444 ' Laufzeitversion:4.0.30319.42000
' '
' Changes to this file may cause incorrect behavior and will be lost if ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' the code is regenerated. ' der Code erneut generiert wird.
' </auto-generated> ' </auto-generated>
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
...@@ -22,7 +22,7 @@ Namespace My ...@@ -22,7 +22,7 @@ Namespace My
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "My.Settings Auto-Save Functionality" #Region "Funktion zum automatischen Speichern von My.Settings"
#If _MyType = "WindowsForms" Then #If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean Private Shared addedHandler As Boolean
......
VECTOAux/VectoAuxiliariesTests/UnitTests/AirCompressorTests.vb
+ 152
− 156
View file @ bc84192e
Imports NUnit.Framework Imports NUnit.Framework
Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries.Pneumatics Imports VectoAuxiliaries.Pneumatics
Imports VectoAuxiliariesTests.Mocks Imports VectoAuxiliariesTests.Mocks
Imports VectoAuxiliaries Imports VectoAuxiliaries
Namespace UnitTests Namespace UnitTests
<TestFixture()>
Public Class M4_AirCompressorTests
<TestFixture()>
Public Class M4_AirCompressorTests
#Region "Test Constants" #Region "Test Constants"
Private Const GoodEfficiency As Single = 0.7
Private Const TooLowEfficiency As Single = -1
Private Const TooHighEfficiency As Single = 1.1
Private Const GoodRatio As Single = 1 Private Const GoodEfficiency As Single = 0.7
Private Const TooLowRatio As Single = -1 Private Const TooLowEfficiency As Single = -1
Private Const TooHighRatio As Single = 12 Private Const TooHighEfficiency As Single = 1.1
#End Region
Private Const GoodRatio As Single = 1
Private Const TooLowRatio As Single = -1
Private Const TooHighRatio As Single = 12
Private _signals As ISignals = New Signals #End Region
Public Sub new() Private _signals As ISignals = New Signals
_signals.EngineSpeed=100
Public Sub New()
End Sub _signals.EngineSpeed = 100
End Sub
#Region "Factory Methods" #Region "Factory Methods"
Private Function GetNonFailingCompressorMapMock() As ICompressorMap Private Function GetNonFailingCompressorMapMock() As ICompressorMap
Return New CompressorMapMock(False) Return New CompressorMapMock(False)
End Function End Function
Private Function GetFailingCompressorMapMock() As ICompressorMap
Return New CompressorMapMock(True)
End Function
Private Function GetFailingCompressorMapMock() As ICompressorMap Private Function GetGoodCompressor() As M4_AirCompressor
Return New CompressorMapMock(True) Dim map As ICompressorMap = GetNonFailingCompressorMapMock()
End Function Dim target As M4_AirCompressor = New M4_AirCompressor(map, GoodRatio, GoodEfficiency, _signals)
Return target
End Function
Private Function GetGoodCompressor() As M4_AirCompressor
Dim map As ICompressorMap = GetNonFailingCompressorMapMock()
Dim target As M4_AirCompressor = New M4_AirCompressor(map, GoodRatio, GoodEfficiency, _signals)
Return target
End Function
#End Region #End Region
<Test()> <Test()>
Public Sub CreateNewJustPathTest() Public Sub CreateNewJustPathTest()
Dim map As ICompressorMap = GetNonFailingCompressorMapMock() Dim map As ICompressorMap = GetNonFailingCompressorMapMock()
_signals.EngineSpeed=100 _signals.EngineSpeed = 100
Dim target As M4_AirCompressor = New M4_AirCompressor(map,2,0.8,_signals) Dim target As M4_AirCompressor = New M4_AirCompressor(map, 2, 0.8, _signals)
Assert.IsNotNull(target) Assert.IsNotNull(target)
End Sub End Sub
<Test()> <Test()>
Public Sub CreateNewAllParametersTest() Public Sub CreateNewAllParametersTest()
Dim map As ICompressorMap = GetNonFailingCompressorMapMock() Dim map As ICompressorMap = GetNonFailingCompressorMapMock()
Dim target As M4_AirCompressor = New M4_AirCompressor(map, GoodRatio, GoodEfficiency,_signals) Dim target As M4_AirCompressor = New M4_AirCompressor(map, GoodRatio, GoodEfficiency, _signals)
Assert.IsNotNull(target) Assert.IsNotNull(target)
End Sub End Sub
<Test()> <Test()>
Public Sub InitialiseTest() Public Sub InitialiseTest()
Dim map As ICompressorMap = GetNonFailingCompressorMapMock() Dim map As ICompressorMap = GetNonFailingCompressorMapMock()
_signals.EngineSpeed=100 _signals.EngineSpeed = 100
Dim target As M4_AirCompressor = New M4_AirCompressor(map,2,0.8,_signals) Dim target As M4_AirCompressor = New M4_AirCompressor(map, 2, 0.8, _signals)
Assert.IsTrue(target.Initialise()) Assert.IsTrue(target.Initialise())
End Sub End Sub
<Test(), ExpectedException("System.ArgumentException")> <Test(), ExpectedException("System.ArgumentException")>
Public Sub InitialiseInvalidMapTest() Public Sub InitialiseInvalidMapTest()
Dim map As ICompressorMap = GetFailingCompressorMapMock() Dim map As ICompressorMap = GetFailingCompressorMapMock()
_signals.EngineSpeed=100 _signals.EngineSpeed = 100
Dim target As M4_AirCompressor = New M4_AirCompressor(map,2,0.8,_signals) Dim target As M4_AirCompressor = New M4_AirCompressor(map, 2, 0.8, _signals)
target.Initialise() target.Initialise()
End Sub End Sub
<Test()> <Test()>
Public Sub GetEfficiencyTest() Public Sub GetEfficiencyTest()
Dim comp As M4_AirCompressor = GetGoodCompressor() Dim comp As M4_AirCompressor = GetGoodCompressor()
Dim target = comp.PulleyGearEfficiency Dim target = comp.PulleyGearEfficiency
Assert.AreEqual(target, GoodEfficiency) Assert.AreEqual(target, GoodEfficiency)
End Sub End Sub
<Test()> <Test()>
Public Sub SetEfficiencyTest() Public Sub SetEfficiencyTest()
Dim comp As M4_AirCompressor = GetGoodCompressor() Dim comp As M4_AirCompressor = GetGoodCompressor()
Dim target As Single = 0.3 Dim target As Single = 0.3
comp.PulleyGearEfficiency = target comp.PulleyGearEfficiency = target
Dim actual As Single = comp.PulleyGearEfficiency Dim actual As Single = comp.PulleyGearEfficiency
Assert.AreEqual(target, actual) Assert.AreEqual(target, actual)
End Sub End Sub
<TestCase(TooLowEfficiency)> _ <TestCase(TooLowEfficiency)> _
<TestCase(TooHighEfficiency)> _ <TestCase(TooHighEfficiency)> _
<ExpectedException("System.ArgumentOutOfRangeException")> <ExpectedException("System.ArgumentOutOfRangeException")>
Public Sub SetEfficiencyOutOfRangeTest(ByVal efficiency As Single) Public Sub SetEfficiencyOutOfRangeTest(ByVal efficiency As Single)
Dim comp As M4_AirCompressor = GetGoodCompressor() Dim comp As M4_AirCompressor = GetGoodCompressor()
comp.PulleyGearEfficiency = efficiency comp.PulleyGearEfficiency = efficiency
End Sub End Sub
<Test()> <Test()>
Public Sub GetRatioTest() Public Sub GetRatioTest()
Dim comp As M4_AirCompressor = GetGoodCompressor() Dim comp As M4_AirCompressor = GetGoodCompressor()
Dim target = comp.PulleyGearRatio Dim target = comp.PulleyGearRatio
Assert.AreEqual(target, GoodRatio) Assert.AreEqual(target, GoodRatio)
End Sub End Sub
<Test()> <Test()>
Public Sub SetRatioTest() Public Sub SetRatioTest()
Dim comp As M4_AirCompressor = GetGoodCompressor() Dim comp As M4_AirCompressor = GetGoodCompressor()
Dim target As Single = 3 Dim target As Single = 3
comp.PulleyGearRatio = target comp.PulleyGearRatio = target
Dim actual As Single = comp.PulleyGearRatio Dim actual As Single = comp.PulleyGearRatio
Assert.AreEqual(target, actual) Assert.AreEqual(target, actual)
End Sub End Sub
<TestCase(TooLowRatio)> _ <TestCase(TooLowRatio)> _
<TestCase(TooHighRatio)> _ <TestCase(TooHighRatio)> _
<ExpectedException("System.ArgumentOutOfRangeException")> <ExpectedException("System.ArgumentOutOfRangeException")>
Public Sub SetRatioOutOfRangeTest(ByVal ratio As Single) Public Sub SetRatioOutOfRangeTest(ByVal ratio As Single)
Dim comp As M4_AirCompressor = GetGoodCompressor() Dim comp As M4_AirCompressor = GetGoodCompressor()
comp.PulleyGearRatio = ratio comp.PulleyGearRatio = ratio
End Sub End Sub
<Test()> <Test()>
Public Sub GetCompressorFlowRateTest() Public Sub GetCompressorFlowRateTest()
Dim comp As M4_AirCompressor = GetGoodCompressor() Dim comp As M4_AirCompressor = GetGoodCompressor()
Dim expected As Single = 0.0333333351f Dim expected As Double = 0.0333333351
Dim actual = comp.GetFlowRate() Dim actual = comp.GetFlowRate()
Assert.AreEqual(expected, actual) Assert.AreEqual(expected, actual.Value(), 0.00000001)
End Sub End Sub
<Test()> <Test()>
Public Sub GetPowerCompressorOffTest() Public Sub GetPowerCompressorOffTest()
Dim comp As M4_AirCompressor = GetGoodCompressor() Dim comp As M4_AirCompressor = GetGoodCompressor()
Dim expected As Single = 5.0 Dim expected As Double = 5.0
Dim actual = comp.GetPowerCompressorOff() Dim actual = comp.GetPowerCompressorOff()
Assert.AreEqual(expected, actual) Assert.AreEqual(expected, actual.Value(), 0.00000001)
End Sub End Sub
<Test()> <Test()>
Public Sub GetPowerCompressorOnTest() Public Sub GetPowerCompressorOnTest()
Dim comp As M4_AirCompressor = GetGoodCompressor() Dim comp As M4_AirCompressor = GetGoodCompressor()
Dim expected As Single = 8.0 Dim expected As Double = 8.0
Dim actual = comp.GetPowerCompressorOn() Dim actual = comp.GetPowerCompressorOn()
Assert.AreEqual(expected, actual) Assert.AreEqual(expected, actual.Value(), 0.00000001)
End Sub End Sub
<Test()> <Test()>
Public Sub GetPowerDifferenceTest() Public Sub GetPowerDifferenceTest()
Dim comp As M4_AirCompressor = GetGoodCompressor() Dim comp As M4_AirCompressor = GetGoodCompressor()
Dim expected As Single = 3.0 Dim expected As Double = 3.0
Dim actual = comp.GetPowerDifference() Dim actual = comp.GetPowerDifference()
Assert.AreEqual(expected, actual) Assert.AreEqual(expected, actual.Value(), 0.00000001)
End Sub End Sub
<Test> <Test>
Public Sub GetAveragePowerDemandPerCompressorUnitFlowRate() Public Sub GetAveragePowerDemandPerCompressorUnitFlowRate()
Dim comp As M4_AirCompressor = GetGoodCompressor() Dim comp As M4_AirCompressor = GetGoodCompressor()
Dim expected As Single = 0.01 Dim expected As Single = 0.01
Dim actual As Single = comp.GetAveragePowerDemandPerCompressorUnitFlowRate Dim actual As SI = comp.GetAveragePowerDemandPerCompressorUnitFlowRate
Assert.AreEqual(actual, expected) Assert.AreEqual(actual.Value(), expected, 0.001)
End Sub
End Class
End Sub
End Class
End Namespace End Namespace
\ No newline at end of file
VECTOAux/VectoAuxiliariesTests/UnitTests/AlternatorMapTests.vb
+ 5
− 4
View file @ bc84192e
Imports VectoAuxiliaries.Electrics Imports VectoAuxiliaries.Electrics
Imports NUnit.Framework Imports NUnit.Framework
Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries Imports VectoAuxiliaries
...@@ -31,7 +32,7 @@ Namespace UnitTests ...@@ -31,7 +32,7 @@ Namespace UnitTests
Dim map As IAlternatorMap = GetInitialisedMap() Dim map As IAlternatorMap = GetInitialisedMap()
Dim target As IAlternatorMap = GetInitialisedMap() Dim target As IAlternatorMap = GetInitialisedMap()
Dim actual As Single = map.GetEfficiency(rpm, amps).Efficiency Dim actual As Single = map.GetEfficiency(rpm, amps.SI(Of Ampere)).Efficiency
Assert.AreEqual(expected, actual) Assert.AreEqual(expected, actual)
End Sub End Sub
...@@ -44,7 +45,7 @@ Namespace UnitTests ...@@ -44,7 +45,7 @@ Namespace UnitTests
Dim map As IAlternatorMap = GetInitialisedMap() Dim map As IAlternatorMap = GetInitialisedMap()
Dim target As IAlternatorMap = GetInitialisedMap() Dim target As IAlternatorMap = GetInitialisedMap()
Dim actual As Single = map.GetEfficiency(rpm, amps).Efficiency Dim actual As Single = map.GetEfficiency(rpm, amps.SI(Of Ampere)).Efficiency
Assert.AreEqual(expected, actual) Assert.AreEqual(expected, actual)
End Sub End Sub
...@@ -58,7 +59,7 @@ Namespace UnitTests ...@@ -58,7 +59,7 @@ Namespace UnitTests
Dim map As IAlternatorMap = GetInitialisedMap() Dim map As IAlternatorMap = GetInitialisedMap()
Dim target As IAlternatorMap = GetInitialisedMap() Dim target As IAlternatorMap = GetInitialisedMap()
Dim actual As Single = map.GetEfficiency(rpm, amps).Efficiency Dim actual As Single = map.GetEfficiency(rpm, amps.SI(Of Ampere)).Efficiency
Assert.AreEqual(expected, actual) Assert.AreEqual(expected, actual)
End Sub End Sub
...@@ -95,7 +96,7 @@ Namespace UnitTests ...@@ -95,7 +96,7 @@ Namespace UnitTests
Dim map As IAlternatorMap = GetInitialisedMap() Dim map As IAlternatorMap = GetInitialisedMap()
Dim target As IAlternatorMap = GetInitialisedMap() Dim target As IAlternatorMap = GetInitialisedMap()
Dim actual As Single = map.GetEfficiency(rpm, amps).Efficiency Dim actual As Single = map.GetEfficiency(rpm, amps.SI(Of Ampere)).Efficiency
Assert.AreEqual(expected, CType(Math.Round(actual, 6), Single)) Assert.AreEqual(expected, CType(Math.Round(actual, 6), Single))
End Sub End Sub
......
VECTOAux/VectoAuxiliariesTests/UnitTests/AveragePneumaticLoadDemandTests.vb
+ 33
− 44
View file @ bc84192e
 
Imports VectoAuxiliaries.Pneumatics Imports VectoAuxiliaries.Pneumatics
Imports NUnit.Framework Imports NUnit.Framework
Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliariesTests.Mocks Imports VectoAuxiliariesTests.Mocks
Imports VectoAuxiliaries Imports VectoAuxiliaries
...@@ -67,8 +68,8 @@ Namespace UnitTests ...@@ -67,8 +68,8 @@ Namespace UnitTests
psCompressorMap.Initialise() psCompressorMap.Initialise()
Dim _ Dim _
target As _ target As _
New M3_AveragePneumaticLoadDemand(psUserInputsConfig, psAuxConfig, psActuationsMap, psCompressorMap, _vehicleMassKG, New M3_AveragePneumaticLoadDemand(psUserInputsConfig, psAuxConfig, psActuationsMap, psCompressorMap,
"Urban", _signals) _vehicleMassKG.SI(Of Kilogram), "Urban", _Signals)
Assert.IsNotNull(target) Assert.IsNotNull(target)
...@@ -88,12 +89,12 @@ Namespace UnitTests ...@@ -88,12 +89,12 @@ Namespace UnitTests
Dim _ Dim _
target As _ target As _
New M3_AveragePneumaticLoadDemand(_defaultInputConfig, psAuxConfig, psActuationsMap, psCompressorMap, New M3_AveragePneumaticLoadDemand(_defaultInputConfig, psAuxConfig, psActuationsMap, psCompressorMap,
_vehicleMassKG, "Urban", _signals) _vehicleMassKG.SI(Of Kilogram), "Urban", _Signals)
Dim expected As Single = 7947.684 Dim expected As Double = 7947.684
Dim actual As Single = target.TotalAirDemand() Dim actual As NormLiter = target.TotalAirDemand()
Assert.AreEqual(expected, actual) Assert.AreEqual(expected, actual.Value(), 0.000001)
End Sub End Sub
<Test()> <Test()>
...@@ -110,12 +111,12 @@ Namespace UnitTests ...@@ -110,12 +111,12 @@ Namespace UnitTests
Dim _ Dim _
target As _ target As _
New M3_AveragePneumaticLoadDemand(_defaultInputConfig, psAuxConfig, psActuationsMap, psCompressorMap, New M3_AveragePneumaticLoadDemand(_defaultInputConfig, psAuxConfig, psActuationsMap, psCompressorMap,
_vehicleMassKG, "Urban", _signals) _vehicleMassKG.SI(Of Kilogram), "Urban", _Signals)
Dim expected As Single = 5832.091 Dim expected As Single = 5832.091
Dim actual As Single = target.GetAveragePowerDemandAtCrankFromPneumatics() Dim actual As Watt = target.GetAveragePowerDemandAtCrankFromPneumatics()
Assert.AreEqual(expected, actual, 0.001) Assert.AreEqual(expected, actual.Value(), 0.001)
End Sub End Sub
...@@ -135,12 +136,11 @@ Namespace UnitTests ...@@ -135,12 +136,11 @@ Namespace UnitTests
Dim _ Dim _
target As _ target As _
New M3_AveragePneumaticLoadDemand(_defaultInputConfig, psAuxConfig, psActuationsMap, psCompressorMap, New M3_AveragePneumaticLoadDemand(_defaultInputConfig, psAuxConfig, psActuationsMap, psCompressorMap,
_vehicleMassKG, "Urban", _signals) _vehicleMassKG.SI(Of Kilogram), "Urban", _Signals)
Dim expected As Single = 5832.091 Dim expected As Single = 5832.091
Dim actual As Single = target.GetAveragePowerDemandAtCrankFromPneumatics()
Assert.AreEqual(expected, actual, 0.001) Assert.AreEqual(expected, target.GetAveragePowerDemandAtCrankFromPneumatics().Value(), 0.001)
End Sub End Sub
<Test()> <Test()>
...@@ -157,12 +157,11 @@ Namespace UnitTests ...@@ -157,12 +157,11 @@ Namespace UnitTests
Dim _ Dim _
target As _ target As _
New M3_AveragePneumaticLoadDemand(_defaultInputConfig, psAuxConfig, psActuationsMap, psCompressorMap, New M3_AveragePneumaticLoadDemand(_defaultInputConfig, psAuxConfig, psActuationsMap, psCompressorMap,
_vehicleMassKG, "Urban", _signals) _vehicleMassKG.SI(Of Kilogram), "Urban", _Signals)
Dim expected As Single = Math.Round(7947.55127 / _Signals.TotalCycleTimeSeconds, 4) Dim expected As Single = 7947.55127 / _Signals.TotalCycleTimeSeconds
Dim actual As Single = Math.Round(target.AverageAirConsumedPerSecondLitre(), 4)
Assert.AreEqual(expected, actual) Assert.AreEqual(expected, target.AverageAirConsumedPerSecondLitre().Value(), 0.001)
End Sub End Sub
'SmartRegeneration = False 'SmartRegeneration = False
...@@ -182,12 +181,11 @@ Namespace UnitTests ...@@ -182,12 +181,11 @@ Namespace UnitTests
Dim _ Dim _
target As _ target As _
New M3_AveragePneumaticLoadDemand(_defaultInputConfig, psAuxConfig, psActuationsMap, psCompressorMap, New M3_AveragePneumaticLoadDemand(_defaultInputConfig, psAuxConfig, psActuationsMap, psCompressorMap,
_vehicleMassKG, "Urban", _Signals) _vehicleMassKG.SI(Of Kilogram), "Urban", _Signals)
Dim expected As Single = Math.Round(8863.378 / _Signals.TotalCycleTimeSeconds, 4) Dim expected As Double = 8863.378 / _Signals.TotalCycleTimeSeconds
Dim actual As Single = Math.Round(target.AverageAirConsumedPerSecondLitre(), 4)
Assert.AreEqual(expected, actual) Assert.AreEqual(expected, target.AverageAirConsumedPerSecondLitre().Value(), 0.001)
End Sub End Sub
'RetarderBrake = False 'RetarderBrake = False
...@@ -207,13 +205,12 @@ Namespace UnitTests ...@@ -207,13 +205,12 @@ Namespace UnitTests
Dim _ Dim _
target As _ target As _
New M3_AveragePneumaticLoadDemand(_defaultInputConfig, psAuxConfig, psActuationsMap, psCompressorMap, New M3_AveragePneumaticLoadDemand(_defaultInputConfig, psAuxConfig, psActuationsMap, psCompressorMap,
_vehicleMassKG, "Urban", _Signals) _vehicleMassKG.SI(Of Kilogram), "Urban", _Signals)
Dim expected As Single = Math.Round(8541.45 / _Signals.TotalCycleTimeSeconds, 4) Dim expected As Double = 8541.45 / _Signals.TotalCycleTimeSeconds
Dim actual As Single = Math.Round(target.AverageAirConsumedPerSecondLitre(), 4)
Assert.AreEqual(expected, actual) Assert.AreEqual(expected, target.AverageAirConsumedPerSecondLitre().Value(), 0.001)
End Sub End Sub
'KneelingHeightMilimeters = 100 'KneelingHeightMilimeters = 100
...@@ -233,13 +230,11 @@ Namespace UnitTests ...@@ -233,13 +230,11 @@ Namespace UnitTests
Dim _ Dim _
target As _ target As _
New M3_AveragePneumaticLoadDemand(_defaultInputConfig, psAuxConfig, psActuationsMap, psCompressorMap, New M3_AveragePneumaticLoadDemand(_defaultInputConfig, psAuxConfig, psActuationsMap, psCompressorMap,
_vehicleMassKG, "Urban", _Signals) _vehicleMassKG.SI(Of Kilogram), "Urban", _Signals)
Dim expected As Single = 8557.524 / _Signals.TotalCycleTimeSeconds Dim expected As Double = 8557.524 / _Signals.TotalCycleTimeSeconds
Dim actual As Single = Math.Round(target.AverageAirConsumedPerSecondLitre(), 8) Assert.AreEqual(expected, target.AverageAirConsumedPerSecondLitre().Value(), 0.001)
Assert.AreEqual(expected, actual)
End Sub End Sub
'AirSuspensionControl = "mechanically" 'AirSuspensionControl = "mechanically"
...@@ -259,13 +254,11 @@ Namespace UnitTests ...@@ -259,13 +254,11 @@ Namespace UnitTests
Dim _ Dim _
target As _ target As _
New M3_AveragePneumaticLoadDemand(_defaultInputConfig, psAuxConfig, psActuationsMap, psCompressorMap, New M3_AveragePneumaticLoadDemand(_defaultInputConfig, psAuxConfig, psActuationsMap, psCompressorMap,
_vehicleMassKG, "Urban", _Signals) _vehicleMassKG.SI(Of Kilogram), "Urban", _Signals)
Dim expected As Single = 7947.68457 / _Signals.TotalCycleTimeSeconds
Dim actual As Single = Math.Round(target.AverageAirConsumedPerSecondLitre(), 6) Dim expected As Double = 7947.68457 / _Signals.TotalCycleTimeSeconds
Assert.AreEqual(expected, actual) Assert.AreEqual(expected, target.AverageAirConsumedPerSecondLitre().Value(), 0.001)
End Sub End Sub
'AdBlueDosing = "electric" 'AdBlueDosing = "electric"
...@@ -285,13 +278,11 @@ Namespace UnitTests ...@@ -285,13 +278,11 @@ Namespace UnitTests
Dim _ Dim _
target As _ target As _
New M3_AveragePneumaticLoadDemand(_defaultInputConfig, psAuxConfig, psActuationsMap, psCompressorMap, New M3_AveragePneumaticLoadDemand(_defaultInputConfig, psAuxConfig, psActuationsMap, psCompressorMap,
_vehicleMassKG, "Urban", _Signals) _vehicleMassKG.SI(Of Kilogram), "Urban", _Signals)
Dim expected As Single = 7947.68457 / _Signals.TotalCycleTimeSeconds Dim expected As Double = 7947.68457 / _Signals.TotalCycleTimeSeconds
Dim actual As Single = Math.Round(target.AverageAirConsumedPerSecondLitre(), 6) Assert.AreEqual(expected, target.AverageAirConsumedPerSecondLitre().Value(), 0.001)
Assert.AreEqual(expected, actual)
End Sub End Sub
'Doors = "Electric" 'Doors = "Electric"
...@@ -311,13 +302,11 @@ Namespace UnitTests ...@@ -311,13 +302,11 @@ Namespace UnitTests
Dim _ Dim _
target As _ target As _
New M3_AveragePneumaticLoadDemand(_defaultInputConfig, psAuxConfig, psActuationsMap, psCompressorMap, New M3_AveragePneumaticLoadDemand(_defaultInputConfig, psAuxConfig, psActuationsMap, psCompressorMap,
_vehicleMassKG, "Urban", _Signals) _vehicleMassKG.SI(Of Kilogram), "Urban", _Signals)
Dim expected As Single = 6880.88428 / _Signals.TotalCycleTimeSeconds
Dim actual As Single = Math.Round(target.AverageAirConsumedPerSecondLitre(), 6) Dim expected As Double = 6880.88428 / _Signals.TotalCycleTimeSeconds
Assert.AreEqual(expected, actual) Assert.AreEqual(expected, target.AverageAirConsumedPerSecondLitre().Value(), 0.001)
End Sub End Sub
End Class End Class
End Namespace End Namespace
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

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