Merge branch 'master' of https://gitrepos.estec.esa.int/taste/regression-suites

Demo_Ada_GUI/DataView.asn

@@ -15,13 +15,13 @@ Destination-T ::= ENUMERATED { displayer(0), other-dest(1) }
 TC-T ::= SEQUENCE 
 {
     destination Destination-T,
-    action Action-T
+    action Action-T DEFAULT display:'48656C6C6F'H
 }
 
 TM-T ::= Display-T
 
 HK-T ::= SEQUENCE {
-    value-to-plot INTEGER (0..16535),
+    value-to-plot INTEGER (0..16535) DEFAULT 42,
     destination Destination-T
 }
 END

Demo_Ada_GUI/displayer/displayer.adb

@@ -45,7 +45,8 @@ package body displayer is
                       bTmHasArrived := True;
                   end if;
               when housekeeping_PRESENT =>
-                  HK := (Value_To_Plot => Number,
+                  HK := (Exist         => (Value_To_Plot => 1),
+                         Value_To_Plot => Number,
                          Destination   => TC.Action.Housekeeping);
                   HousekeepingTM(HK'access);
               when others => null;