Data-Structures/SimpleLinkedList/Tests/testSingleLinkedList1.mod

MODULE testSingleLinkedList1;

IMPORT SingleLinkedList;
FROM InOut IMPORT Write, WriteLn, WriteString, WriteCard;

VAR 
  oneList : SingleLinkedList.List;

BEGIN
  SingleLinkedList.Init(oneList, FALSE , NIL );
  IF SingleLinkedList.Empty(oneList) THEN
    WriteString("liste vide");
    WriteLn
  ELSE
    WriteString("y'a un stuck ;) ");
    WriteLn
  END;    
  SingleLinkedList.Free (oneList);
END testSingleLinkedList1.