Impressum TailMeetBeaconEvent.vdmpp Sprache: VDM

\section{The TailMeetBeaconEvent Test Class}

The TailMeetBeaconEvent class implements a test event where the tail
of a train meets a beacon. It provides a setBeacon and an execute
operation. The execute operation returns the current announcements and
speed restrictions.

\begin{vdm_al}
class TailMeetBeaconEvent is subclass of Event

instance variables

  beacon : Beacon;

operations

  public
  TailMeetBeaconEvent: Beacon ==> TailMeetBeaconEvent
  TailMeetBeaconEvent (b) ==
    beacon := b;

  public
  execute : KLV ==> Test`TestResult
  execute (klv) ==
    ( klv.tailMeetsBeacon(beacon);
      let anns = klv.getAnnouncements(),
          restr = klv.getSpeedRestrictions() in
        return mk_Test`BeaconsMet(
            [ mk_Test`TIVD(anns(i).getTargetSpeed())  |
              i in set inds anns ],
            [ mk_Test`TIVE(restr(i).getSpeedRestriction()) |
              i in set inds restr ]) )
pre isofclass(TIV_E, beacon) => (klv.getFirstSpeedRestriction() or
                                 klv.getSpeedRestrictions() <> []);

pure public getBeacon: () ==> Beacon
getBeacon() ==
  return beacon;

end TailMeetBeaconEvent
\end{vdm_al}

quality96%

¤ Dauer der Verarbeitung: 0.24 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.