CocoR/Tests/testFileIO.mod

MODULE testFileIO;

IMPORT FileIO, InOut, FIO;

VAR 
  monInt32 : FileIO.INT32;
  monCardinal : CARDINAL;
  monLongCardinal : LONGCARD;
  maChaine1, 
  maChaine2,
  maChaine3 : ARRAY[0..30] OF CHAR;
  leFichier : FileIO.File;

BEGIN 
  InOut.WriteString("Test des procedures de FileIO");
  InOut.WriteLn;
  
   InOut.WriteString("Test9 : PROCEDURE WriteTime (f: File);");
   InOut.WriteLn;
   FileIO.WriteTime(leFichier);
  
  InOut.WriteString("Test8 : PROCEDURE SLENGTH (stringVal: ARRAY OF CHAR): CARDINAL;");
  InOut.WriteLn;
  maChaine1 := "Et bonjour";
  InOut.WriteCard(FileIO.SLENGTH(maChaine1),8);
  InOut.WriteLn;
  
  InOut.WriteString("Test7 : PROCEDURE Assign (source: ARRAY OF CHAR; VAR destination: ARRAY OF CHAR);");
  InOut.WriteLn;
  maChaine1 := "Et bonjour";
  FileIO.Assign(maChaine1, maChaine3);
  InOut.WriteString(maChaine3);
  InOut.WriteLn;
  
  InOut.WriteString("Test6 : PROCEDURE Extract (source: ARRAY OF CHAR;startIndex, numberToExtract: CARDINAL;VAR destination: ARRAY OF CHAR);");
  InOut.WriteLn;
  maChaine1 := "ma maison à Montélimar";
  InOut.WriteString(maChaine1);
  InOut.WriteLn;
  FileIO.Extract (maChaine1,3,6,maChaine3);
  InOut.WriteString(maChaine3);
  InOut.WriteLn;
  
  InOut.WriteString("Test5 : PROCEDURE Concat (stringVal1, stringVal2: ARRAY OF CHAR;VAR destination: ARRAY OF CHAR);");
  InOut.WriteLn;
  maChaine1 := "ma maison";
  maChaine2 := " à Montélimar";
  FileIO.Concat(maChaine1, maChaine2, maChaine3);
  InOut.WriteString(maChaine3);
  InOut.WriteLn;
  
  InOut.WriteString("Test4 : PROCEDURE Compare (stringVal1, stringVal2: ARRAY OF CHAR): INTEGER;");
  maChaine1 := "ma maison";
  maChaine2 := "ma maison";
  InOut.WriteInt(FileIO.Compare(maChaine1,maChaine2),5);
  maChaine2 := "ma maison à Montélimar";
  InOut.WriteInt(FileIO.Compare(maChaine1,maChaine2),5);
  maChaine2 := "Coiucou";
  InOut.WriteInt(FileIO.Compare(maChaine1,maChaine2),5);
  InOut.WriteLn;
  
  InOut.WriteString("Test3 : PROCEDURE ORDL (n: INT32): CARDINAL;");
  InOut.WriteLn;
  monInt32 := 66666;
  InOut.WriteInt(FileIO.ORDL(monInt32),8);
  InOut.WriteLn;
  
  InOut.WriteString("Test3 : PROCEDURE INTL (n: INT32): INTEGER;");
  InOut.WriteLn;
  monInt32 := 55555;
  InOut.WriteInt(FileIO.INTL(monInt32),8);
  InOut.WriteLn;
  
  InOut.WriteString("Test2 : PROCEDURE INT (n: CARDINAL): INT32;");
  InOut.WriteLn;
  monCardinal := 444444;
  InOut.WriteCard(monCardinal,8);
  InOut.WriteInt(FileIO.INT(monCardinal),8);
  InOut.WriteLn;
  
  InOut.WriteString("Test1 : QuitExecution");
  InOut.WriteLn;
  FileIO.QuitExecution;
  InOut.WriteString("this will not be printed out");
  InOut.WriteLn;
END testFileIO.