MODULE ContainersTest; (** AUTHOR ""; PURPOSE ""; *)
 
IMPORT
   Commands, Containers, Random, PreciseTimer;
 
PROCEDURE HashTest*(context: Commands.Context);
CONST
   SETS = 100000;
   TRIES = 20;
VAR
   r: Random.Generator;
   set: Containers.LongintSet;
   setset1, setset2: Containers.LongintSetSet;
   i, j, n, iTry: LONGINT;
   t: HUGEINT;
BEGIN
   context.out.Ln;
 
   NEW(r);
 
   t := PreciseTimer.GetTicks();
 
   FOR iTry := 0 TO TRIES - 1 DO
      NEW(set);
      FOR i := 0 TO SETS - 1 DO
         n := r.Dice(MAX(LONGINT));
         IF ~set.Contains(n) THEN
            set.Add(n)
         END
      END
   END;
 
   t := PreciseTimer.GetTicks() - t;
 
   context.out.String("Count: ");
   context.out.Int(set.GetCount(), 0);
   context.out.Ln;
   context.out.String("Collisions: ");
   context.out.Int(set.dictionary.nCollisions, 0);
   context.out.Ln;
   context.out.String("Time: ");
   context.out.Float(PreciseTimer.GetTime(t) / TRIES, 15);
   context.out.Ln;
   context.out.Update;
 
   NEW(setset1);
   FOR i := 0 TO SETS - 1 DO
      NEW(set);
      FOR j := 0 TO 20 DO
         n := r.Dice(MAX(LONGINT));
         IF ~set.Contains(n) THEN
            set.Add(n)
         END
      END;
      IF ~setset1.Contains(set) THEN
         setset1.Add(set)
      END
   END;
 
   context.out.String("Sets generated");
   context.out.Ln;
   context.out.Update;
 
   t := PreciseTimer.GetTicks();
 
   FOR iTry := 0 TO TRIES - 1 DO
      NEW(setset2);
      setset1.Reset;
      WHILE setset1.HasNext() DO
         set := setset1.GetNext();
         IF ~setset2.Contains(set) THEN
            setset2.Add(set)
         END
      END
   END;
 
   t := PreciseTimer.GetTicks() - t;
 
   context.out.String("Count: ");
   context.out.Int(setset2.GetCount(), 0);
   context.out.Ln;
   context.out.String("Collisions: ");
   context.out.Int(setset2.dictionary.nCollisions, 0);
   context.out.Ln;
   context.out.String("Time: ");
   context.out.Float(PreciseTimer.GetTime(t) / TRIES, 15);
   context.out.Ln;
 
END HashTest;
 
BEGIN
END ContainersTest.
 
ContainersTest.Test ~
ContainersTest.HashTest ~
SystemTools.Free ContainersTest Containers ~
 
Count: 99997
Collisions: 232111
Time:   7.291155E-002
Sets generated
Count: 100000
Collisions: 255930
Time:   9.049281E-001