OrgaMon-FS

Die OrgaMon-FS (FS= Funktions Sicherstellung) hat die Aufgabe sicherzustellen dass eine neue OrgaMon-Version allen Anforderungen genügt, die an sie gestellt werden. Durch den release-Fortschritt müssen Regressionen verhindert werden. Dies gelingt durch automatisierte Tests. Dazu sollten sich OrgaMon-Bereiche beim CareTaker registrieren, beim OrgaMon-Selbsttest werden Tests dieser Bereiche initiert. Die Registrierfunktion und der Registirieprotoyp lauten

// Prototypen, Test-Bereiche können "fsTest" oder "fsSelfTest" implementieren
type
  tTestProc = procedure of object fsTest (Path: string);
  tSelfTestProc = function of object fsSelfTest : TStringList;

// Registration beim CareTaker
//
  procedure addTest(NameSpace:string; test: tTestProc);
  procedure addTest(NameSpace:string; test: tSelfTestProc);

// Hilfs-Funktionen, Damit können sich fsTest-Implementierungen 
// unabhängig von Datei-Operationen machen
function getQuestion(Path:string):TStringList;
procedure setAnswer(sAnswer:TStringList);

Verzeichnis-Struktur der Tests

-~NameSpace~-
 -test-nnnnn
   -Rohstoffe
   -Ergebnis-Soll
   -Ergebnis-Ist
    

==