diff --git a/eRINA_Linux/src/ada_src/bindings-rlite-api.adb b/eRINA_Linux/src/ada_src/bindings-rlite-api.adb index 6f3eb3b..0544bc2 100644 --- a/eRINA_Linux/src/ada_src/bindings-rlite-api.adb +++ b/eRINA_Linux/src/ada_src/bindings-rlite-api.adb @@ -29,11 +29,11 @@ package body Bindings.Rlite.API is DIF_Name : String) return Rl_IPCP_Id_T is begin if Name'Length > Max_Length or Name'Length = 0 then - raise Exceptions.Bounded_Length_Expcetion; + raise Exceptions.Bounded_Length_Exception; end if; if DIF_Name'Length > Max_Length or DIF_Name'Length = 0 then - raise Exceptions.Bounded_Length_Expcetion; + raise Exceptions.Bounded_Length_Exception; end if; return Ctrl.RINA_Create_IPCP (Fd, To_Bounded_String (Name), DIF_Type, To_Bounded_String (DIF_Name)); @@ -65,11 +65,11 @@ package body Bindings.Rlite.API is Flags : Integer) return OS.File_Descriptor is begin if DIF_Name'Length > Max_Length or DIF_Name'Length = 0 then - raise Exceptions.Bounded_Length_Expcetion; + raise Exceptions.Bounded_Length_Exception; end if; if Local_Appl'Length > Max_Length or Local_Appl'Length = 0 then - raise Exceptions.Bounded_Length_Expcetion; + raise Exceptions.Bounded_Length_Exception; end if; return Ctrl.RINA_Register_Common (Fd, To_Bounded_String (DIF_Name), To_Bounded_String (Local_Appl), Flags, 1); @@ -82,11 +82,11 @@ package body Bindings.Rlite.API is ) return OS.File_Descriptor is begin if DIF_Name'Length > Max_Length or DIF_Name'Length = 0 then - raise Exceptions.Bounded_Length_Expcetion; + raise Exceptions.Bounded_Length_Exception; end if; if Local_Appl'Length > Max_Length or Local_Appl'Length = 0 then - raise Exceptions.Bounded_Length_Expcetion; + raise Exceptions.Bounded_Length_Exception; end if; return Ctrl.RINA_Register_Common (Fd, To_Bounded_String (DIF_Name), To_Bounded_String (Local_Appl), Flags, 0); @@ -111,15 +111,15 @@ package body Bindings.Rlite.API is ) return OS.File_Descriptor is begin if DIF_Name'Length > Max_Length or DIF_Name'Length = 0 then - raise Exceptions.Bounded_Length_Expcetion; + raise Exceptions.Bounded_Length_Exception; end if; if Local_Appl'Length > Max_Length or Local_Appl'Length = 0 then - raise Exceptions.Bounded_Length_Expcetion; + raise Exceptions.Bounded_Length_Exception; end if; if Remote_Appl'Length > Max_Length or Remote_Appl'Length = 0 then - raise Exceptions.Bounded_Length_Expcetion; + raise Exceptions.Bounded_Length_Exception; end if; return Ctrl.RINA_Flow_Alloc(To_Bounded_String (DIF_Name), To_Bounded_String (Local_Appl), To_Bounded_String (Remote_Appl), Flowspec, Flags, 16#FFFF#); diff --git a/eRINA_Linux/src/ada_src/exceptions.ads b/eRINA_Linux/src/ada_src/exceptions.ads index 1e9ebb9..285356b 100644 --- a/eRINA_Linux/src/ada_src/exceptions.ads +++ b/eRINA_Linux/src/ada_src/exceptions.ads @@ -6,5 +6,5 @@ package Exceptions is Flow_Acceptance_Failure : exception; Not_Implemented_Exception : exception; IPCP_Creation_Exception : exception; - Bounded_Length_Expcetion : exception; + Bounded_Length_Exception : exception; end Exceptions; \ No newline at end of file diff --git a/eRINA_Tests/src/test_rina_register.adb b/eRINA_Tests/src/test_rina_register.adb index ec2dbcf..d52f213 100644 --- a/eRINA_Tests/src/test_rina_register.adb +++ b/eRINA_Tests/src/test_rina_register.adb @@ -59,7 +59,7 @@ package body Test_RINA_Register is Register_Success := RINA_Register (RINA_Dev_FD, DIF_Name, Dif_Name, 0); exception - when Exceptions.Bounded_Length_Expcetion => + when Exceptions.Bounded_Length_Exception => Caused_Error := True; Assert(Caused_Error and Register_Success = Invalid_FD, "DIF_Name allowed to register with length > 128 characters"); @@ -72,7 +72,7 @@ package body Test_RINA_Register is begin Register_Success := RINA_Register (RINA_Dev_FD, "", Application_Name, 0); exception - when Exceptions.Bounded_Length_Expcetion => + when Exceptions.Bounded_Length_Exception => Caused_Error := True; Assert(Caused_Error and Register_Success = Invalid_FD, "DIF_Name blank"); @@ -99,7 +99,7 @@ package body Test_RINA_Register is begin Register_Success := RINA_Register (RINA_Dev_FD, DIF_Name, App_Name, 0); exception - when Exceptions.Bounded_Length_Expcetion => + when Exceptions.Bounded_Length_Exception => Caused_Error := True; Assert(Caused_Error and Register_Success = Invalid_FD, "Application_Name length > 128 characters"); @@ -112,7 +112,7 @@ package body Test_RINA_Register is begin Register_Success := RINA_Register (RINA_Dev_FD, DIF_Name, "", 0); exception - when Exceptions.Bounded_Length_Expcetion => + when Exceptions.Bounded_Length_Exception => Caused_Error := True; Assert(Caused_Error and Register_Success = Invalid_FD, "Application_Name blank"); diff --git a/eRINA_Tests/src/test_rina_unregister.adb b/eRINA_Tests/src/test_rina_unregister.adb index 5c13af1..0628ff6 100644 --- a/eRINA_Tests/src/test_rina_unregister.adb +++ b/eRINA_Tests/src/test_rina_unregister.adb @@ -42,7 +42,7 @@ package body Test_RINA_Unregister is Unregister_Success := RINA_Unregister (RINA_Dev_FD, DIF_Name, App_Name, 0); exception - when Exceptions.Bounded_Length_Expcetion => + when Exceptions.Bounded_Length_Exception => Caused_Error := True; Assert (Caused_Error and Unregister_Success = Invalid_FD, "DIF_Name is empty");