Quelle ObstacleSensor.vdmrt Sprache: VDM

class ObstacleSensor
types
public SensorDirection = <North> | <South> | <East> | <West>;

instance variables
sDirection : SensorDirection;

operations
public ObstacleSensor : SensorDirection ==> ObstacleSensor
ObstacleSensor(direction) ==
   sDirection:= direction;

public GetPointAvalibility : Grid`Point ==> Grid`PointAvalibility
GetPointAvalibility (p) ==
   if World`env.GetPointAvalibility(p) = <Occupied> then
     return <Occupied>
   else
     return <Free>
pre World`env.completeGrid.IsValidGridPoint(p);

  public GetDirection : () ==> SensorDirection
GetDirection() == return sDirection;

end ObstacleSensor

class ObstacleSensorTest is subclass of TestCase
values

operations
protected SetUp: () ==> ()
SetUp () == skip;

protected RunTest: () ==> ()
RunTest () ==
    (
     dcl tc : ObstacleSensor:= new ObstacleSensor(<North>);
      AssertTrue(tc.GetDirection() = <North>);

   );


  protected TearDown: () ==> ()
TearDown () == skip

end ObstacleSensorTest

quality88%

¤ Dauer der Verarbeitung: 0.12 Sekunden (vorverarbeitet) ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

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.