diff --git a/PowerEditor/Test/FunctionList/ada/unitTest.expected.result b/PowerEditor/Test/FunctionList/ada/unitTest.expected.result
index 697de6b77..f676908c5 100644
--- a/PowerEditor/Test/FunctionList/ada/unitTest.expected.result
+++ b/PowerEditor/Test/FunctionList/ada/unitTest.expected.result
@@ -1 +1 @@
-{"leaves":["BiSeqOut"],"root":"unitTest"}
\ No newline at end of file
+{"leaves":["BiSeqOut","Get_Idle","Get_State","Update","Int32_To_Byte_Array","Int8_To_U8","Int32toInt8TwosComplement (value : Vt.Int32)","AproxU8 (n : Vt.U8; x : Vt.U8)","Read_I32 (Register : Vt.Address_Range)"],"root":"unitTest"}
\ No newline at end of file
diff --git a/PowerEditor/Test/FunctionList/ada/unittest b/PowerEditor/Test/FunctionList/ada/unittest
index 4860d09b5..21f879c94 100644
--- a/PowerEditor/Test/FunctionList/ada/unittest
+++ b/PowerEditor/Test/FunctionList/ada/unittest
@@ -34,10 +34,44 @@ begin
 
 end BiSeqOut;
 
+-- Result of Execution
 
+--   (The only output is a binary file named NAMEFILE.TXT)
 
 
--- Result of Execution
 
---   (The only output is a binary file named NAMEFILE.TXT)
 
+function Get_Idle
+return Boolean;
+
+
+function Get_State
+return Vt.State;
+
+
+procedure Update;
+
+function Int32_To_Byte_Array is
+new Unchecked_Conversion (Source => Vt.Int32, Target => Vt.Byte_Array);
+
+function Int8_To_U8 is new Unchecked_Conversion
+(Source => Vt.Int8, Target => Vt.U8);
+
+function Int32toInt8TwosComplement (value : Vt.Int32) return Vt.Int8 is
+begin
+-- body
+end Int32toInt8TwosComplement;
+
+function AproxU8 (n : Vt.U8; x : Vt.U8) return Boolean is
+eq : Boolean := False;
+begin
+-- code
+return eq;
+end AproxU8;
+
+function Read_I32 (Register : Vt.Address_Range) return Vt.Int_32 is
+Data : Vt.Int_32;
+begin
+-- code
+return Data;
+end Read_ I32;