-- Chapter 33 - Program 4
with Ada.Text_IO; use Ada.Text_IO;
with DynStrng;    use DynStrng;

procedure TestStrn is

   package Int_IO is new Ada.Text_IO.Integer_IO(INTEGER);
   use Int_IO;

   Stuff    : DYNAMIC_STRING(35);
   Result   : BOOLEAN;

begin

   Copy("ABCDEFGHIJKL$", Stuff, Result);
   Put(Size_Of(Stuff), 4);
   Put(Length(Stuff), 4);
   Put(Stuff);
   New_Line;

   Copy("ABCD$", Stuff, Result);
   Put(Size_Of(Stuff), 4);
   Put(Length(Stuff), 4);
   Put(Stuff);
   New_Line;

   Copy("", Stuff, Result);
   Put(Size_Of(Stuff), 4);
   Put(Length(Stuff), 4);
   Put(Stuff);
   New_Line;

end TestStrn;