Commits

onox committed dd84ebe

Fix some style warnings

Fix incorrect casing of enumeration values, missing spaces, and unnecessary blank lines.

  • Participants
  • Parent commits 5accb18

Comments (0)

Files changed (5)

gnat/ahven_lib.gpr

                                        "-gnatwe",
                                        "-gnatwa",
                                        "-gnatwl",
-				       "-gnatE",
+                                       "-gnatE",
+                                       "-gnaty",
+                                       "-gnaty-cst",
                                        "-gnatwF", -- unreferenced formal off
-                                       "-gnatyd3ibmhex", "-gnat95");
+                                       "-gnatydux", "-gnat95");
   end Builder;
 end Ahven_Lib;

src/ahven-framework.adb

          function Get_Long_Message return Bounded_String;
          procedure Set_Long_Message (Value : Bounded_String);
       private
-         Status : Test_Status := Test_Error;
+         Status : Test_Status := TEST_ERROR;
          Message : Bounded_String;
          Long_Message : Bounded_String;
       end Test_Results;
             or
                delay Duration (Timeout);
                abort Command_Runner;
-               Result.Set_Status (Test_Timeout);
+               Result.Set_Status (TEST_TIMEOUT);
             end select;
          end;
       else

src/ahven-results.adb

         new Ada.Unchecked_Deallocation (Object => Result_Collection,
                                         Name   => Result_Collection_Access);
 
-      Position: Result_List.Cursor := First (Collection.Children);
+      Position : Result_List.Cursor := First (Collection.Children);
       Ptr  : Result_Collection_Access := null;
    begin
       loop
       return Count;
    end Skipped_Count;
 
-
    function Get_Test_Name (Collection : Result_Collection)
      return Bounded_String is
    begin
       return First (Collection.Errors);
    end First_Error;
 
-   function Next (Position: Result_Info_Cursor) return Result_Info_Cursor is
+   function Next (Position : Result_Info_Cursor) return Result_Info_Cursor is
    begin
       return Result_Info_Cursor
         (Result_Info_List.Next (Result_Info_List.Cursor (Position)));
    end Next;
 
-   function Data (Position: Result_Info_Cursor) return Result_Info is
+   function Data (Position : Result_Info_Cursor) return Result_Info is
    begin
       return Result_Info_List.Data (Result_Info_List.Cursor (Position));
    end Data;
 
-   function Is_Valid (Position: Result_Info_Cursor) return Boolean is
+   function Is_Valid (Position : Result_Info_Cursor) return Boolean is
    begin
       return Result_Info_List.Is_Valid (Result_Info_List.Cursor (Position));
    end Is_Valid;
       return First (Collection.Children);
    end First_Child;
 
-   function Next (Position: Result_Collection_Cursor)
+   function Next (Position : Result_Collection_Cursor)
      return Result_Collection_Cursor is
    begin
       return Result_Collection_Cursor
         (Result_List.Next (Result_List.Cursor (Position)));
    end Next;
 
-   function Is_Valid (Position: Result_Collection_Cursor) return Boolean is
+   function Is_Valid (Position : Result_Collection_Cursor) return Boolean is
    begin
       return Result_List.Is_Valid (Result_List.Cursor (Position));
    end Is_Valid;
 
-   function Data (Position: Result_Collection_Cursor)
+   function Data (Position : Result_Collection_Cursor)
      return Result_Collection_Access is
    begin
       return Result_List.Data (Result_List.Cursor (Position)).Ptr;

src/ahven-results.ads

      return Result_Info_Cursor;
    -- Get the first error from the collection.
 
-   function Next (Position: Result_Info_Cursor) return Result_Info_Cursor;
+   function Next (Position : Result_Info_Cursor) return Result_Info_Cursor;
    -- Get the next pass/failure/error.
 
-   function Data (Position: Result_Info_Cursor) return Result_Info;
+   function Data (Position : Result_Info_Cursor) return Result_Info;
    -- Get the data behind the cursor.
 
-   function Is_Valid (Position: Result_Info_Cursor) return Boolean;
+   function Is_Valid (Position : Result_Info_Cursor) return Boolean;
    -- Is the cursor still valid?
 
    type Result_Collection_Cursor is private;
      return Result_Collection_Cursor;
    -- Get the first child of the collection.
 
-   function Next (Position: Result_Collection_Cursor)
+   function Next (Position : Result_Collection_Cursor)
      return Result_Collection_Cursor;
    -- Get the next child.
 
-   function Is_Valid (Position: Result_Collection_Cursor) return Boolean;
+   function Is_Valid (Position : Result_Collection_Cursor) return Boolean;
    -- Is the cursor still valid?
 
-   function Data (Position: Result_Collection_Cursor)
+   function Data (Position : Result_Collection_Cursor)
      return Result_Collection_Access;
    -- Get the data (Result_Collection_Access) behind the cursor.
 
       Ada.Exceptions.Raise_Exception (Test_Skipped_Error'Identity, Message);
    end Skip;
 
-
 end Ahven;