|
--The TestSensor Class
-----------------------------------------------
-- Author: Sune Wolff - 20022462
-- Created: 14/5 - 2008
-- Updated:
-- Description: Test class to test Sensors
-----------------------------------------------
--
-- class definition
--
class TestSensor is subclass of TestCase
--
-- instance variables
--
instance variables
tempSensor : TemperatureSensor;
humidSensor : HumidSensor;
--
-- Operations definition section
--
operations
public TestSensor: seq of char ==> TestSensor
TestSensor(nm) == name := nm;
protected SetUp: () ==> ()
SetUp() ==
(tempSensor := new TemperatureSensor(1, <TEMPSENSOR>, 0);
humidSensor := new HumidSensor(2, <HUMIDSENSOR>, 0);
);
protected Test: () ==> ()
Test() ==
(AssertTrue(tempSensor.GetID() = 1);
AssertTrue(tempSensor.GetType() = <TEMPSENSOR>);
AssertTrue(tempSensor.ReadValue() = 0);
AssertTrue(humidSensor.GetID() = 2);
AssertTrue(humidSensor.GetType() = <HUMIDSENSOR>);
AssertTrue(humidSensor.ReadValue() = 0);
);
protected RunTest: () ==> ()
RunTest() == Test();
protected TearDown: () ==> ()
TearDown() == skip;
end TestSensor
¤ Dauer der Verarbeitung: 0.17 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
