with ada.integer_text_io;
   with ada.text_io;
   with Stack;
    procedure test_Integer_Stack is
   
       package Integer_stack is new Stack (Element_Type => integer);
       package Bool_io is new ada.text_io.Enumeration_io(Enum => boolean);
      myStack   : Integer_stack.Stack_Type(Max_Size => 5);
      empty : Boolean;
      full  : Boolean;
      value : integer;
   begin
      empty := Integer_stack.isEmpty (Stack => myStack);
      bool_io.put (empty);
      for i in 1..5 loop
         Integer_stack.push (Stack =>myStack,
                        new_element => i);
      end loop;
    Integer_stack.push (Stack =>myStack,
                        new_element => 26);

      empty := Integer_stack.isEmpty (Stack => myStack);
      bool_io.put (empty);      
      full := Integer_stack.isFull (Stack => myStack);
      bool_io.put (full);  
      while not Integer_stack.isEmpty (Stack => myStack) loop
         integer_stack.pop(Stack=> myStack,
            popped_element => value);
         ada.integer_text_io.put(value);
      	ada.text_io.new_line;   
      end loop;
      
      
   end test_Integer_Stack;