X-Git-Url: http://drtracing.org/?a=blobdiff_plain;f=regression_test%2Fcompileonly%2FopenTypeNames%2FOpen_type_use.ttcn;h=4761fc8c4caf52aff8fb3a10066cd1a36a4c4de5;hb=51fa56b97ff178aa82497de54a5945698517e55d;hp=75f69379eee9451050a941eaf435531f98160c35;hpb=50c8d3f664cb14bf653c700e98de9af66233c979;p=deliverable%2Ftitan.core.git

diff --git a/regression_test/compileonly/openTypeNames/Open_type_use.ttcn b/regression_test/compileonly/openTypeNames/Open_type_use.ttcn
index 75f6937..4761fc8 100644
--- a/regression_test/compileonly/openTypeNames/Open_type_use.ttcn
+++ b/regression_test/compileonly/openTypeNames/Open_type_use.ttcn
@@ -28,6 +28,11 @@ const MyMessage c_message_id3_lower := {
   content := { iNTEGER := 42 }
 }
 
+const MyMessage c_message_id4_lower := {
+  id := 4,
+  content := { nULL := NULL }
+}
+
 // Constants (uppercase first letter)
 const MyMessage c_message_id1_upper := {
   id := 1,
@@ -44,6 +49,11 @@ const MyMessage c_message_id3_upper := {
   content := { INTEGER := 42 }
 }
 
+const MyMessage c_message_id4_upper := {
+  id := 4,
+  content := { NULL := NULL }
+}
+
 // Templates (lowercase first letter)
 template MyMessage t_message_id1_lower := {
   id := 1,
@@ -60,6 +70,11 @@ template MyMessage t_message_id3_lower := {
   content := { iNTEGER := 42 }
 }
 
+template MyMessage t_message_id4_lower := {
+  id := 4,
+  content := { nULL := NULL }
+}
+
 // Templates (uppercase first letter)
 template MyMessage t_message_id1_upper := {
   id := 1,
@@ -76,14 +91,21 @@ template MyMessage t_message_id3_upper := {
   content := { INTEGER := 42 }
 }
 
+template MyMessage t_message_id4_upper := {
+  id := 4,
+  content := { NULL := NULL }
+}
+
 // Value list template (contains both lowercase and uppercase examples)
 template MyMessage t_message_value_list := (
   { id := 1, content := { mySeq := { field1 := 42, field2 := omit }} },
   { id := 2, content := { myEnum := first} },
   { id := 3, content := { iNTEGER := 42 } },
+  { id := 4, content := { nULL := NULL } },
   { id := 1, content := { MySeq := { field1 := -42, field2 := omit }} },
   { id := 2, content := { MyEnum := second} },
-  { id := 3, content := { INTEGER := -42 } }
+  { id := 3, content := { INTEGER := -42 } },
+  { id := 4, content := { NULL := NULL } }
 );
 
 // Dummy function to declare variables in
@@ -103,6 +125,11 @@ function f_dummy() {
     id := 3,
     content := { iNTEGER := 42 }
   }
+  
+  var MyMessage v_message_id4_lower := {
+    id := 4,
+    content := { nULL := NULL }
+  }
 
   // Variables (uppercase first letter)
   var MyMessage v_message_id1_upper := {
@@ -119,6 +146,11 @@ function f_dummy() {
     id := 3,
     content := { INTEGER := 42 }
   }
+  
+  var MyMessage v_message_id4_upper := {
+    id := 4,
+    content := { NULL := NULL }
+  }
 
   // Template variables (lowercase first letter)
   var template MyMessage vt_message_id1_lower := {
@@ -135,6 +167,11 @@ function f_dummy() {
     id := 3,
     content := { iNTEGER := 42 }
   }
+  
+  var template MyMessage vt_message_id4_lower := {
+    id := 4,
+    content := { nULL := NULL }
+  }
 
   // Template variables (uppercase first letter)
   var template MyMessage vt_message_id1_upper := {
@@ -152,14 +189,21 @@ function f_dummy() {
     content := { INTEGER := 42 }
   }
   
+  var template MyMessage vt_message_id4_upper := {
+    id := 4,
+    content := { NULL := NULL }
+  }
+  
   // Value list template variable (contains both lowercase and uppercase examples)
   var template MyMessage vt_message_value_list := (
     { id := 1, content := { mySeq := { field1 := 42, field2 := omit }} },
     { id := 2, content := { myEnum := first} },
     { id := 3, content := { iNTEGER := 42 } },
+    { id := 4, content := { nULL := NULL } },
     { id := 1, content := { MySeq := { field1 := -42, field2 := omit }} },
     { id := 2, content := { MyEnum := second} },
-    { id := 3, content := { INTEGER := -42 } }
+    { id := 3, content := { INTEGER := -42 } },
+    { id := 4, content := { NULL := NULL } }
   );
   
   // Referencing fields of open types (contains both lowercase and uppercase examples)
@@ -169,18 +213,24 @@ function f_dummy() {
   v_message_id2_upper.content.MyEnum := second;
   v_message_id3_lower.content.iNTEGER := 15;
   v_message_id3_upper.content.INTEGER := 15;
+  v_message_id4_lower.content.nULL := NULL;
+  v_message_id4_upper.content.NULL := NULL;
   vt_message_id1_lower.content.mySeq := { field1 := 41, field2 := omit };
   vt_message_id1_upper.content.MySeq := { field1 := 41, field2 := omit };
   vt_message_id2_lower.content.myEnum := second;
   vt_message_id2_upper.content.MyEnum := second;
   vt_message_id3_lower.content.iNTEGER := 15;
   vt_message_id3_upper.content.INTEGER := 15;
+  vt_message_id4_lower.content.nULL := NULL;
+  vt_message_id4_upper.content.NULL := NULL;
   if (c_message_id1_lower.content.mySeq == { field1 := 41, field2 := omit } and
       c_message_id1_upper.content.MySeq == { field1 := 41, field2 := omit } and
       c_message_id2_lower.content.myEnum == second and
       c_message_id2_upper.content.MyEnum == second and
       c_message_id3_lower.content.iNTEGER == 15 and
-      c_message_id3_upper.content.INTEGER == 15) {
+      c_message_id3_upper.content.INTEGER == 15 and
+      c_message_id4_lower.content.nULL == NULL and // NULL != NULL !?
+      c_message_id4_upper.content.NULL == NULL) {
     log("a");
   }
   if (v_message_id1_lower.content.mySeq == { field1 := 41, field2 := omit } and
@@ -188,7 +238,9 @@ function f_dummy() {
       v_message_id2_lower.content.myEnum == second and
       v_message_id2_upper.content.MyEnum == second and
       v_message_id3_lower.content.iNTEGER == 15 and
-      v_message_id3_upper.content.INTEGER == 15) {
+      v_message_id3_upper.content.INTEGER == 15 and
+      v_message_id4_lower.content.nULL == NULL and
+      v_message_id4_upper.content.NULL == NULL) {
     log("b");
   }
   if (match({ field1 := 41, field2 := omit }, t_message_id1_lower.content.mySeq) and
@@ -196,7 +248,9 @@ function f_dummy() {
       match(second, t_message_id2_lower.content.myEnum) and
       match(second, t_message_id2_lower.content.MyEnum) and
       match(15, t_message_id3_lower.content.iNTEGER) and
-      match(15, t_message_id3_lower.content.INTEGER)) {
+      match(15, t_message_id3_lower.content.INTEGER) and
+      match(NULL, t_message_id4_lower.content.nULL) and
+      match(NULL, t_message_id4_lower.content.NULL)) {
     log("c");
   }
   if (match({ field1 := 41, field2 := omit }, vt_message_id1_upper.content.mySeq) and
@@ -204,7 +258,9 @@ function f_dummy() {
       match(second, vt_message_id2_upper.content.myEnum) and
       match(second, vt_message_id2_upper.content.MyEnum) and
       match(15, vt_message_id3_upper.content.iNTEGER) and
-      match(15, vt_message_id3_upper.content.INTEGER)) {
+      match(15, vt_message_id3_upper.content.INTEGER) and
+      match(NULL, vt_message_id4_upper.content.nULL) and
+      match(NULL, vt_message_id4_upper.content.NULL)) {
     log("d");
   }
 }