Subversion Repositories openrisc

with Ada.Text_IO;  use Ada.Text_IO;

with Ada.Numerics.Discrete_Random;

with TS1325.LED;  use TS1325.LED;

with Serial_Debug;  use Serial_Debug;

procedure Debug is

   package Random_LED_Colour is

     new Ada.Numerics.Discrete_Random (LED_Colour);

   use Random_LED_Colour;

   Colour_Gen: Random_LED_Colour.Generator;

   New_Colour: LED_Colour;

   Count: Integer := 0;

begin

   Breakpoint;

   Put_Line ("******* Starting Random LED Debug Test *******");

   for I in 1 .. 10_000 loop

      Count := Count + 1;

      New_Colour := Random_LED_Colour.Random (Colour_Gen);

      LED_State.Set (New_Colour);

   end loop;

   Put_Line ("******* Finished Random LED Debug Test *******");

end Debug;