rtext 0.4.0 → 0.5.0

data/test/context_builder_test.rb

@@ -11,37 +11,430 @@ module TestMM
   extend RGen::MetamodelBuilder::ModuleExtension
   class TestNode < RGen::MetamodelBuilder::MMBase
     has_attr 'text', String
+    has_attr 'unlabled', String
+    has_many_attr 'unlabled_array', String
     has_many_attr 'nums', Integer
+    has_many_attr 'strings', String
+    has_attr 'boolean', Boolean
     has_one 'related', TestNode
     has_many 'others', TestNode
     contains_many 'childs', TestNode, 'parent'
   end
 end
 
+def test_root
+  c = build_context TestMM, <<-END
+|
+  END
+  assert_context c, :prefix => "", :feature => nil, :in_array => false, :in_block => false
+  assert_nil(c.element)
+end
+
+def test_root2
+  c = build_context TestMM, <<-END
+|TestNode
+  END
+  assert_context c, :prefix => "", :feature => nil, :in_array => false, :in_block => false
+  assert_nil(c.element)
+end
+
+def test_root_in_cmd
+  c = build_context TestMM, <<-END
+Test|Node
+  END
+  assert_context c, :prefix => "Test", :feature => nil, :in_array => false, :in_block => false
+  assert_nil(c.element)
+end
+
+def test_root_after_cmd
+  c = build_context TestMM, <<-END
+TestNode|
+  END
+  assert_context c, :prefix => "TestNode", :feature => nil, :in_array => false, :in_block => false
+  assert_nil(c.element)
+end
+
+def test_root_after_cmd2
+  c = build_context TestMM, <<-END
+TestNode |
+  END
+  assert_context c, :prefix => "", :feature => "unlabled", :in_array => false, :in_block => false
+  assert(c.element.is_a?(TestMM::TestNode))
+end
+
+def test_root_in_lable
+  c = build_context TestMM, <<-END
+TestNode ot|hers:
+  END
+  assert_context c, :prefix => "ot", :feature => "unlabled", :in_array => false, :in_block => false
+  assert(c.element.is_a?(TestMM::TestNode))
+end
+
+def test_root_after_lable
+  c = build_context TestMM, <<-END
+TestNode others:|
+  END
+  assert_context c, :prefix => "", :feature => "others", :in_array => false, :in_block => false, :after_label => true
+  assert(c.element.is_a?(TestMM::TestNode))
+end
+
+def test_root_after_lable2
+  c = build_context TestMM, <<-END
+TestNode others: |
+  END
+  assert_context c, :prefix => "", :feature => "others", :in_array => false, :in_block => false, :after_label => true
+  assert(c.element.is_a?(TestMM::TestNode))
+end
+
+def test_root_after_lable_with_value
+  c = build_context TestMM, <<-END
+TestNode text: xx, others: |
+  END
+  assert_context c, :prefix => "", :feature => "others", :in_array => false, :in_block => false, :after_label => true
+  assert(c.element.is_a?(TestMM::TestNode))
+  assert_equal("xx", c.element.text)
+end
+
+def test_root_after_lable_with_value_missing_comma
+  c = build_context TestMM, <<-END
+TestNode text: xx others: |
+  END
+  assert_context c, :prefix => "", :feature => "others", :in_array => false, :in_block => false, :after_label => true
+  assert(c.element.is_a?(TestMM::TestNode))
+  assert_equal("xx", c.element.text)
+end
+
+def test_root_after_unlabled
+  c = build_context TestMM, <<-END
+TestNode "bla"| 
+  END
+  assert_context c, :prefix => "bla", :feature => "unlabled", :in_array => false, :in_block => false
+  assert(c.element.is_a?(TestMM::TestNode))
+  assert_nil(c.element.unlabled)
+end
+
+def test_root_after_unlabled_string_with_comma
+  c = build_context TestMM, <<-END
+TestNode "a,b"| 
+  END
+  assert_context c, :prefix => "a,b", :feature => "unlabled", :in_array => false, :in_block => false
+  assert(c.element.is_a?(TestMM::TestNode))
+  assert_nil(c.element.unlabled)
+end
+
+def test_root_after_unlabled_string_with_quoted_quote
+  c = build_context TestMM, <<-END
+TestNode "a,\\"b"| 
+  END
+  assert_context c, :prefix => "a,\"b", :feature => "unlabled", :in_array => false, :in_block => false
+  assert(c.element.is_a?(TestMM::TestNode))
+  assert_nil(c.element.unlabled)
+end
+
+def test_root_after_unlabled_unclosed_string_with_comma
+  c = build_context TestMM, <<-END
+TestNode "a,b| 
+  END
+  assert_context c, :prefix => "\"a,b", :feature => "unlabled", :in_array => false, :in_block => false
+  assert(c.element.is_a?(TestMM::TestNode))
+  assert_nil(c.element.unlabled)
+end
+
+def test_root_after_unlabled_no_quot
+  c = build_context TestMM, <<-END
+TestNode bla| 
+  END
+  assert_context c, :prefix => "bla", :feature => "unlabled", :in_array => false, :in_block => false
+  assert(c.element.is_a?(TestMM::TestNode))
+  assert_nil(c.element.unlabled)
+end
+
+def test_root_after_unlabled2
+  c = build_context TestMM, <<-END
+TestNode "bla" | 
+  END
+  assert_context c, :prefix => "", :feature => nil, :in_array => false, :in_block => false, :problem => :missing_comma 
+  assert(c.element.is_a?(TestMM::TestNode))
+  assert_equal("bla", c.element.unlabled)
+end
+
+def test_root_after_unlabled2_no_quot
+  c = build_context TestMM, <<-END
+TestNode bla | 
+  END
+  assert_context c, :prefix => "", :feature => nil, :in_array => false, :in_block => false, :problem => :missing_comma
+  assert(c.element.is_a?(TestMM::TestNode))
+  assert_equal("bla", c.element.unlabled)
+end
+
+def test_root_after_unlabled_comma_no_quot
+  c = build_context TestMM, <<-END
+TestNode bla,| 
+  END
+  assert_context c, :prefix => "", :feature => "unlabled_array", :in_array => false, :in_block => false
+  assert(c.element.is_a?(TestMM::TestNode))
+  assert_equal("bla", c.element.unlabled)
+end
+
+def test_root_after_unlabled_comma
+  c = build_context TestMM, <<-END
+TestNode "bla", | 
+  END
+  assert_context c, :prefix => "", :feature => "unlabled_array", :in_array => false, :in_block => false
+  assert(c.element.is_a?(TestMM::TestNode))
+  assert_equal("bla", c.element.unlabled)
+end
+
+def test_root_after_unlabled_comma_no_ws
+  c = build_context TestMM, <<-END
+TestNode "bla",| 
+  END
+  assert_context c, :prefix => "", :feature => "unlabled_array", :in_array => false, :in_block => false
+  assert(c.element.is_a?(TestMM::TestNode))
+  assert_equal("bla", c.element.unlabled)
+end
+
+def test_root_unlabled_array
+  c = build_context TestMM, <<-END
+TestNode "bla", [|
+  END
+  assert_context c, :prefix => "", :feature => "unlabled_array", :in_array => true, :in_block => false
+  assert(c.element.is_a?(TestMM::TestNode))
+  assert_equal("bla", c.element.unlabled)
+  assert_equal([], c.element.unlabled_array)
+end
+
+def test_root_unlabled_array_first_value
+  c = build_context TestMM, <<-END
+TestNode "bla", [a|
+  END
+  assert_context c, :prefix => "a", :feature => "unlabled_array", :in_array => true, :in_block => false
+  assert(c.element.is_a?(TestMM::TestNode))
+  assert_equal("bla", c.element.unlabled)
+  assert_equal([], c.element.unlabled_array)
+end
+
+def test_root_unlabled_array_first_value_quoted
+  c = build_context TestMM, <<-END
+TestNode "bla", ["a"|
+  END
+  assert_context c, :prefix => "a", :feature => "unlabled_array", :in_array => true, :in_block => false
+  assert(c.element.is_a?(TestMM::TestNode))
+  assert_equal("bla", c.element.unlabled)
+  assert_equal([], c.element.unlabled_array)
+end
+
+def test_root_unlabled_array_first_value_quoted_open
+  c = build_context TestMM, <<-END
+TestNode "bla", ["a|
+  END
+  assert_context c, :prefix => "\"a", :feature => "unlabled_array", :in_array => true, :in_block => false
+  assert(c.element.is_a?(TestMM::TestNode))
+  assert_equal("bla", c.element.unlabled)
+  assert_equal([], c.element.unlabled_array)
+end
+
+def test_root_unlabled_array_first_value_after_space
+  c = build_context TestMM, <<-END
+TestNode "bla", ["a" |
+  END
+  # although not having a comma in front is an error, we are already within a feature
+  # due to the opening square bracket
+  assert_context c, :prefix => "", :feature => "unlabled_array", :in_array => true, :in_block => false, :problem => :missing_comma
+  assert(c.element.is_a?(TestMM::TestNode))
+  assert_equal("bla", c.element.unlabled)
+  assert_equal(["a"], c.element.unlabled_array)
+end
+
+def test_root_unlabled_array_first_value_after_comma
+  c = build_context TestMM, <<-END
+TestNode "bla", ["a",|
+  END
+  assert_context c, :prefix => "", :feature => "unlabled_array", :in_array => true, :in_block => false
+  assert(c.element.is_a?(TestMM::TestNode))
+  assert_equal("bla", c.element.unlabled)
+  assert_equal(["a"], c.element.unlabled_array)
+end
+
+def test_root_unlabled_array_second_value
+  c = build_context TestMM, <<-END
+TestNode "bla", ["a", b|
+  END
+  assert_context c, :prefix => "b", :feature => "unlabled_array", :in_array => true, :in_block => false
+  assert(c.element.is_a?(TestMM::TestNode))
+  assert_equal("bla", c.element.unlabled)
+  assert_equal(["a"], c.element.unlabled_array)
+end
+
+def test_root_unlabled_array_second_value_quoted
+  c = build_context TestMM, <<-END
+TestNode "bla", ["a", "b"|
+  END
+  assert_context c, :prefix => "b", :feature => "unlabled_array", :in_array => true, :in_block => false
+  assert(c.element.is_a?(TestMM::TestNode))
+  assert_equal("bla", c.element.unlabled)
+  assert_equal(["a"], c.element.unlabled_array)
+end
+
+def test_root_unlabled_array_second_value_quoted_open
+  c = build_context TestMM, <<-END
+TestNode "bla", ["a", "b|
+  END
+  assert_context c, :prefix => "\"b", :feature => "unlabled_array", :in_array => true, :in_block => false
+  assert(c.element.is_a?(TestMM::TestNode))
+  assert_equal("bla", c.element.unlabled)
+  assert_equal(["a"], c.element.unlabled_array)
+end
+
+def test_root_unlabled_array_second_value_after_comma
+  c = build_context TestMM, <<-END
+TestNode "bla", ["a", b,|
+  END
+  assert_context c, :prefix => "", :feature => "unlabled_array", :in_array => true, :in_block => false
+  assert(c.element.is_a?(TestMM::TestNode))
+  assert_equal("bla", c.element.unlabled)
+  assert_equal(["a", "b"], c.element.unlabled_array)
+end
+
+def test_root_unlabled_array_after_array
+  c = build_context TestMM, <<-END
+TestNode "bla", ["a", b]| 
+  END
+  assert_context c, :prefix => "", :feature => nil, :in_array => false, :in_block => false, :problem => :missing_comma
+  assert(c.element.is_a?(TestMM::TestNode))
+  assert_equal("bla", c.element.unlabled)
+  assert_equal(["a", "b"], c.element.unlabled_array)
+end
+
+def test_root_unlabled_array_after_array2
+  c = build_context TestMM, <<-END
+TestNode "bla", ["a", b] | 
+  END
+  assert_context c, :prefix => "", :feature => nil, :in_array => false, :in_block => false, :problem => :missing_comma
+  assert(c.element.is_a?(TestMM::TestNode))
+  assert_equal("bla", c.element.unlabled)
+  assert_equal(["a", "b"], c.element.unlabled_array)
+end
+
+def test_root_unlabled_array_after_array3
+  c = build_context TestMM, <<-END
+TestNode "bla", ["a", b],| 
+  END
+  assert_context c, :prefix => "", :feature => nil, :in_array => false, :in_block => false
+  assert(c.element.is_a?(TestMM::TestNode))
+  assert_equal("bla", c.element.unlabled)
+  assert_equal(["a", "b"], c.element.unlabled_array)
+end
+
+def test_root_labled_string_value
+  c = build_context TestMM, <<-END
+TestNode text: "a,b"| 
+  END
+  assert_context c, :prefix => "a,b", :feature => "text", :in_array => false, :in_block => false, :after_label => true
+  assert(c.element.is_a?(TestMM::TestNode))
+  assert_nil(c.element.text)
+end
+
+def test_root_labled_string_value2
+  c = build_context TestMM, <<-END
+TestNode text: "a,b" | 
+  END
+  assert_context c, :prefix => "", :feature => nil, :in_array => false, :in_block => false, :problem => :missing_comma
+  assert(c.element.is_a?(TestMM::TestNode))
+  assert_equal("a,b", c.element.text)
+end
+
+def test_root_labled_string_value3
+  c = build_context TestMM, <<-END
+TestNode text: "a,b",| 
+  END
+  assert_context c, :prefix => "", :feature => nil, :in_array => false, :in_block => false
+  assert(c.element.is_a?(TestMM::TestNode))
+  assert_equal("a,b", c.element.text)
+end
+
+def test_root_labled_string_value_within
+  c = build_context TestMM, <<-END
+TestNode text: "a,b| 
+  END
+  assert_context c, :prefix => "\"a,b", :feature => "text", :in_array => false, :in_block => false, :after_label => true
+  assert(c.element.is_a?(TestMM::TestNode))
+  assert_nil(c.element.text)
+end
+
+def test_root_labled_string_value_within_no_ws
+  c = build_context TestMM, <<-END
+TestNode text:"a,b| 
+  END
+  assert_context c, :prefix => "\"a,b", :feature => "text", :in_array => false, :in_block => false, :after_label => true
+  assert(c.element.is_a?(TestMM::TestNode))
+  assert_nil(c.element.text)
+end
+
+def test_root_labled_string_value_no_quot
+  c = build_context TestMM, <<-END
+TestNode text: t| 
+  END
+  assert_context c, :prefix => "t", :feature => "text", :in_array => false, :in_block => false, :after_label => true
+  assert(c.element.is_a?(TestMM::TestNode))
+  assert_nil(c.element.text)
+end
+
+def test_root_labled_bool_value
+  c = build_context TestMM, <<-END
+TestNode boolean: t| 
+  END
+  assert_context c, :prefix => "t", :feature => "boolean", :in_array => false, :in_block => false, :after_label => true
+  assert(c.element.is_a?(TestMM::TestNode))
+  assert_nil(c.element.text)
+end
+
+def test_root_after_curly
+  c = build_context TestMM, <<-END
+TestNode {|
+  END
+  assert_context c, :prefix => "", :feature => nil, :in_array => false, :in_block => false, :problem => :after_curly
+  assert(c.element.is_a?(TestMM::TestNode))
+end
+
 def test_in_cmd_after_cmd
   c = build_context TestMM, <<-END
   TestNode text: a {
     TestNode nums: 3 {
       TestNode |others: /dummy {
   END
-  assert_equal("", c.prefix)
-  assert_nil(c.feature)
-  assert(!c.in_array)
-  assert(!c.in_block)
+  assert_context c, :prefix => "", :feature => "unlabled", :in_array => false, :in_block => false
   assert_simple_model(c.element)
   assert_other_values(c.element, [])
 end
 
+def test_in_cmd_after_cmd2
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    TestNode| nums: 3 {
+  END
+  assert_context c, :prefix => "TestNode", :feature => nil, :in_array => false, :in_block => true
+  assert(c.element.is_a?(TestMM::TestNode))
+end
+
 def test_in_cmd_in_label
   c = build_context TestMM, <<-END
   TestNode text: a {
     TestNode nums: 3 {
       TestNode ot|hers: /dummy {
   END
-  assert_equal("ot", c.prefix)
-  assert_nil(c.feature)
-  assert(!c.in_array)
-  assert(!c.in_block)
+  assert_context c, :prefix => "ot", :feature => "unlabled", :in_array => false, :in_block => false
+  assert_simple_model(c.element)
+  assert_other_values(c.element, [])
+end
+
+def test_in_cmd_after_label
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    TestNode nums: 3 {
+      TestNode others: |/dummy {
+  END
+  assert_context c, :prefix => "", :feature => "others", :in_array => false, :in_block => false, :after_label => true
   assert_simple_model(c.element)
   assert_other_values(c.element, [])
 end
@@ -52,24 +445,18 @@ def test_in_cmd_in_label2
     TestNode nums: 3 {
       TestNode others:| /dummy {
   END
-  assert_equal("", c.prefix)
-  assert_equal("others", c.feature.name)
-  assert(!c.in_array)
-  assert(!c.in_block)
+  assert_context c, :prefix => "", :feature => "others", :in_array => false, :in_block => false, :after_label => true
   assert_simple_model(c.element)
   assert_other_values(c.element, [])
 end
 
-def test_in_cmd_after_label
+def test_in_cmd_after_label_no_ws
   c = build_context TestMM, <<-END
   TestNode text: a {
     TestNode nums: 3 {
-      TestNode others: |/dummy {
+      TestNode others:|/dummy {
   END
-  assert_equal("", c.prefix)
-  assert_equal("others", c.feature.name)
-  assert(!c.in_array)
-  assert(!c.in_block)
+  assert_context c, :prefix => "", :feature => "others", :in_array => false, :in_block => false, :after_label => true
   assert_simple_model(c.element)
   assert_other_values(c.element, [])
 end
@@ -80,10 +467,7 @@ def test_in_cmd_in_value
     TestNode nums: 3 {
       TestNode others: /du|mmy {
   END
-  assert_equal("/du", c.prefix)
-  assert_equal("others", c.feature.name)
-  assert(!c.in_array)
-  assert(!c.in_block)
+  assert_context c, :prefix => "/du", :feature => "others", :in_array => false, :in_block => false, :after_label => true
   assert_simple_model(c.element)
   assert_other_values(c.element, [])
 end
@@ -94,10 +478,7 @@ def test_in_cmd_in_value2
     TestNode nums: 3 {
       TestNode others: /dummy| {
   END
-  assert_equal("/dummy", c.prefix)
-  assert_equal("others", c.feature.name)
-  assert(!c.in_array)
-  assert(!c.in_block)
+  assert_context c, :prefix => "/dummy", :feature => "others", :in_array => false, :in_block => false, :after_label => true
   assert_simple_model(c.element)
   assert_other_values(c.element, [])
 end
@@ -108,10 +489,40 @@ def test_in_cmd_after_value
     TestNode nums: 3 {
       TestNode others: /dummy, |text: x {
   END
-  assert_equal("", c.prefix)
-  assert_nil(c.feature)
-  assert(!c.in_array)
-  assert(!c.in_block)
+  assert_context c, :prefix => "", :feature => nil, :in_array => false, :in_block => false
+  assert_simple_model(c.element)
+  assert_other_values(c.element, ["/dummy"])
+end
+
+def test_in_cmd_after_value_no_ws
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    TestNode nums: 3 {
+      TestNode others: /dummy,|text: x {
+  END
+  assert_context c, :prefix => "", :feature => nil, :in_array => false, :in_block => false
+  assert_simple_model(c.element)
+  assert_other_values(c.element, ["/dummy"])
+end
+
+def test_in_cmd_after_value_no_ws2
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    TestNode nums: 3 {
+      TestNode others:/dummy,|text: x {
+  END
+  assert_context c, :prefix => "", :feature => nil, :in_array => false, :in_block => false
+  assert_simple_model(c.element)
+  assert_other_values(c.element, ["/dummy"])
+end
+
+def test_in_cmd_after_value_directly_after_comma
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    TestNode nums: 3 {
+      TestNode others: /dummy,| text: x {
+  END
+  assert_context c, :prefix => "", :feature => nil, :in_array => false, :in_block => false
   assert_simple_model(c.element)
   assert_other_values(c.element, ["/dummy"])
 end
@@ -122,10 +533,7 @@ def test_in_cmd_in_second_label
     TestNode nums: 3 {
       TestNode others: /dummy, te|xt: x {
   END
-  assert_equal("te", c.prefix)
-  assert_nil(c.feature)
-  assert(!c.in_array)
-  assert(!c.in_block)
+  assert_context c, :prefix => "te", :feature => nil, :in_array => false, :in_block => false
   assert_simple_model(c.element)
   assert_other_values(c.element, ["/dummy"])
 end
@@ -136,10 +544,18 @@ def test_in_cmd_after_second_label
     TestNode nums: 3 {
       TestNode others: /dummy, text: |x {
   END
-  assert_equal("", c.prefix)
-  assert_equal("text", c.feature.name)
-  assert(!c.in_array)
-  assert(!c.in_block)
+  assert_context c, :prefix => "", :feature => "text", :in_array => false, :in_block => false, :after_label => true
+  assert_simple_model(c.element)
+  assert_other_values(c.element, ["/dummy"])
+end
+
+def test_in_cmd_after_second_label_no_ws
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    TestNode nums: 3 {
+      TestNode others:/dummy,text:|x {
+  END
+  assert_context c, :prefix => "", :feature => "text", :in_array => false, :in_block => false, :after_label => true
   assert_simple_model(c.element)
   assert_other_values(c.element, ["/dummy"])
 end
@@ -150,10 +566,18 @@ def test_in_cmd_in_second_value
     TestNode nums: 3 {
       TestNode others: /dummy, text: x| {
   END
-  assert_equal("x", c.prefix)
-  assert_equal("text", c.feature.name)
-  assert(!c.in_array)
-  assert(!c.in_block)
+  assert_context c, :prefix => "x", :feature => "text", :in_array => false, :in_block => false, :after_label => true
+  assert_simple_model(c.element)
+  assert_other_values(c.element, ["/dummy"])
+end
+
+def test_in_cmd_in_second_value_no_ws
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    TestNode nums: 3 {
+      TestNode others:/dummy,text:x| {
+  END
+  assert_context c, :prefix => "x", :feature => "text", :in_array => false, :in_block => false, :after_label => true
   assert_simple_model(c.element)
   assert_other_values(c.element, ["/dummy"])
 end
@@ -164,24 +588,106 @@ def test_in_cmd_in_array
     TestNode nums: 3 {
       TestNode others: [|/dummy, text: x
   END
-  assert_equal("", c.prefix)
-  assert_equal("others", c.feature.name)
-  assert(c.in_array)
-  assert(!c.in_block)
+  assert_context c, :prefix => "", :feature => "others", :in_array => true, :in_block => false, :after_label => true
+  assert_simple_model(c.element)
+  assert_other_values(c.element, [])
+end
+
+def test_in_cmd_in_array_no_ws
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    TestNode nums: 3 {
+      TestNode others:[|/dummy, text: x
+  END
+  assert_context c, :prefix => "", :feature => "others", :in_array => true, :in_block => false, :after_label => true
   assert_simple_model(c.element)
   assert_other_values(c.element, [])
 end
 
+def test_in_cmd_in_array_within_string_value_empty
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    TestNode nums: 3 {
+      TestNode strings: ["|
+  END
+  assert_context c, :prefix => "\"", :feature => "strings", :in_array => true, :in_block => false, :after_label => true
+  assert_simple_model(c.element)
+  assert_other_values(c.element, [])
+end
+
+def test_in_cmd_in_array_within_string_value
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    TestNode nums: 3 {
+      TestNode strings: ["a,b|
+  END
+  assert_context c, :prefix => "\"a,b", :feature => "strings", :in_array => true, :in_block => false, :after_label => true
+  assert_simple_model(c.element)
+  assert_other_values(c.element, [])
+end
+
+def test_in_cmd_in_array_within_second_string_value
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    TestNode nums: 3 {
+      TestNode strings: ["a,b", "c,d|
+  END
+  assert_context c, :prefix => "\"c,d", :feature => "strings", :in_array => true, :in_block => false, :after_label => true
+  assert_simple_model(c.element)
+  assert_other_values(c.element, [])
+end
+
+def test_in_cmd_in_array_after_second_string_value
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    TestNode nums: 3 {
+      TestNode strings: ["a,b", "c,d"|
+  END
+  assert_context c, :prefix => "c,d", :feature => "strings", :in_array => true, :in_block => false, :after_label => true
+  assert_simple_model(c.element)
+  assert_equal(["a,b"], c.element.strings)
+end
+
+def test_in_cmd_in_array_after_second_string_value2
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    TestNode nums: 3 {
+      TestNode strings: ["a,b", "c,d" |
+  END
+  assert_context c, :prefix => "", :feature => "strings", :in_array => true, :in_block => false, :problem => :missing_comma, :after_label => true
+  assert_simple_model(c.element)
+  assert_equal(["a,b", "c,d"], c.element.strings)
+end
+
+def test_in_cmd_in_array_after_string_array
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    TestNode nums: 3 {
+      TestNode strings: ["a,b", "c,d"]|
+  END
+  assert_context c, :prefix => "", :feature => nil, :in_array => false, :in_block => false, :problem => :missing_comma
+  assert_simple_model(c.element)
+  assert_equal(["a,b", "c,d"], c.element.strings)
+end
+
 def test_in_cmd_in_array_value
   c = build_context TestMM, <<-END
   TestNode text: a {
     TestNode nums: 3 {
       TestNode others: [/d|ummy, text: x
   END
-  assert_equal("/d", c.prefix)
-  assert_equal("others", c.feature.name)
-  assert(c.in_array)
-  assert(!c.in_block)
+  assert_context c, :prefix => "/d", :feature => "others", :in_array => true, :in_block => false, :after_label => true
+  assert_simple_model(c.element)
+  assert_other_values(c.element, [])
+end
+
+def test_in_cmd_in_array_value_no_ws
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    TestNode nums: 3 {
+      TestNode others:[/d|ummy, text: x
+  END
+  assert_context c, :prefix => "/d", :feature => "others", :in_array => true, :in_block => false, :after_label => true
   assert_simple_model(c.element)
   assert_other_values(c.element, [])
 end
@@ -192,10 +698,18 @@ def test_in_cmd_after_array_value
     TestNode nums: 3 {
       TestNode others: [/dummy,| text: x
   END
-  assert_equal("", c.prefix)
-  assert_equal("others", c.feature.name)
-  assert(c.in_array)
-  assert(!c.in_block)
+  assert_context c, :prefix => "", :feature => "others", :in_array => true, :in_block => false, :after_label => true
+  assert_simple_model(c.element)
+  assert_other_values(c.element, ["/dummy"])
+end
+
+def test_in_cmd_after_array_value_no_ws
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    TestNode nums: 3 {
+      TestNode others:[/dummy,| text: x
+  END
+  assert_context c, :prefix => "", :feature => "others", :in_array => true, :in_block => false, :after_label => true
   assert_simple_model(c.element)
   assert_other_values(c.element, ["/dummy"])
 end
@@ -206,10 +720,29 @@ def test_in_cmd_in_second_array_value
     TestNode nums: 3 {
       TestNode others: [/dummy, /dom|my
   END
-  assert_equal("/dom", c.prefix)
-  assert_equal("others", c.feature.name)
-  assert(c.in_array)
-  assert(!c.in_block)
+  assert_context c, :prefix => "/dom", :feature => "others", :in_array => true, :in_block => false, :after_label => true
+  assert_simple_model(c.element)
+  assert_other_values(c.element, ["/dummy"])
+end
+
+def test_in_cmd_in_second_array_value_no_ws
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    TestNode nums: 3 {
+      TestNode others: [/dummy,/dom|my
+  END
+  assert_context c, :prefix => "/dom", :feature => "others", :in_array => true, :in_block => false, :after_label => true
+  assert_simple_model(c.element)
+  assert_other_values(c.element, ["/dummy"])
+end
+
+def test_in_cmd_in_second_array_value_no_ws2
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    TestNode nums: 3 {
+      TestNode others:[/dummy,/dom|my
+  END
+  assert_context c, :prefix => "/dom", :feature => "others", :in_array => true, :in_block => false, :after_label => true
   assert_simple_model(c.element)
   assert_other_values(c.element, ["/dummy"])
 end
@@ -220,10 +753,18 @@ def test_in_cmd_after_array
     TestNode nums: 3 {
       TestNode others: [/dummy, /dommy], |
   END
-  assert_equal("", c.prefix)
-  assert_nil(c.feature)
-  assert(!c.in_array)
-  assert(!c.in_block)
+  assert_context c, :prefix => "", :feature => nil, :in_array => false, :in_block => false
+  assert_simple_model(c.element)
+  assert_other_values(c.element, ["/dummy", "/dommy"])
+end
+
+def test_in_cmd_after_array_no_ws
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    TestNode nums: 3 {
+      TestNode others:[/dummy,/dommy],|
+  END
+  assert_context c, :prefix => "", :feature => nil, :in_array => false, :in_block => false
   assert_simple_model(c.element)
   assert_other_values(c.element, ["/dummy", "/dommy"])
 end
@@ -234,14 +775,32 @@ def test_in_cmd_after_array2
     TestNode nums: 3 {
       TestNode others: [/dummy, /dommy], nums: |
   END
-  assert_equal("", c.prefix)
-  assert_equal("nums", c.feature.name)
-  assert(!c.in_array)
-  assert(!c.in_block)
+  assert_context c, :prefix => "", :feature => "nums", :in_array => false, :in_block => false, :after_label => true
+  assert_simple_model(c.element)
+  assert_other_values(c.element, ["/dummy", "/dommy"])
+end
+
+def test_in_cmd_after_array2_no_ws
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    TestNode nums: 3 {
+      TestNode others:[/dummy,/dommy],nums:|
+  END
+  assert_context c, :prefix => "", :feature => "nums", :in_array => false, :in_block => false, :after_label => true
   assert_simple_model(c.element)
   assert_other_values(c.element, ["/dummy", "/dommy"])
 end
 
+def test_in_cmd_boolean_value
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    TestNode nums: 3 {
+      TestNode boolean: t|
+  END
+  assert_context c, :prefix => "t", :feature => "boolean", :in_array => false, :in_block => false, :after_label => true
+  assert_simple_model(c.element)
+end
+
 def test_below_single_label
   c = build_context TestMM, <<-END
   TestNode text: a {
@@ -250,10 +809,7 @@ def test_below_single_label
         childs:
           | 
   END
-  assert_equal("", c.prefix)
-  assert_equal("childs", c.feature.name)
-  assert(!c.in_array)
-  assert(c.in_block)
+  assert_context c, :prefix => "", :feature => "childs", :in_array => false, :in_block => true, :after_label => true
   assert_simple_model(c.element)
   assert_other_values(c.element, ["/dummy"])
 end
@@ -266,14 +822,23 @@ def test_below_single_label_started_command
         childs:
           Tes| 
   END
-  assert_equal("Tes", c.prefix)
-  assert_equal("childs", c.feature.name)
-  assert(!c.in_array)
-  assert(c.in_block)
+  assert_context c, :prefix => "Tes", :feature => "childs", :in_array => false, :in_block => true, :after_label => true
   assert_simple_model(c.element)
   assert_other_values(c.element, ["/dummy"])
 end
 
+def test_below_single_label_after_command
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    TestNode nums: 3 {
+      TestNode others: /dummy {
+        childs:
+          TestNode | 
+  END
+  assert_context c, :prefix => "", :feature => "unlabled", :in_array => false, :in_block => false
+  assert_equal [3], c.element.parent.parent.nums
+end
+
 def test_below_multi_label
   c = build_context TestMM, <<-END
   TestNode text: a {
@@ -282,10 +847,7 @@ def test_below_multi_label
         childs: [
           | 
   END
-  assert_equal("", c.prefix)
-  assert_equal("childs", c.feature.name)
-  assert(c.in_array)
-  assert(c.in_block)
+  assert_context c, :prefix => "", :feature => "childs", :in_array => true, :in_block => true, :after_label => true
   assert_simple_model(c.element)
   assert_other_values(c.element, ["/dummy"])
 end
@@ -298,14 +860,23 @@ def test_below_multi_label_started_command
         childs: [
           Tes| 
   END
-  assert_equal("Tes", c.prefix)
-  assert_equal("childs", c.feature.name)
-  assert(c.in_array)
-  assert(c.in_block)
+  assert_context c, :prefix => "Tes", :feature => "childs", :in_array => true, :in_block => true, :after_label => true
   assert_simple_model(c.element)
   assert_other_values(c.element, ["/dummy"])
 end
 
+def test_below_multi_label_after_command
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    TestNode nums: 3 {
+      TestNode others: /dummy {
+        childs: [
+          TestNode | 
+  END
+  assert_context c, :prefix => "", :feature => "unlabled", :in_array => false, :in_block => false
+  assert_equal [3], c.element.parent.parent.nums
+end
+
 def test_in_new_line
   c = build_context TestMM, <<-END
   TestNode text: a {
@@ -313,10 +884,7 @@ def test_in_new_line
       TestNode others: /dummy {
         |
   END
-  assert_equal("", c.prefix)
-  assert_nil(c.feature)
-  assert(!c.in_array)
-  assert(c.in_block)
+  assert_context c, :prefix => "", :feature => nil, :in_array => false, :in_block => true
   assert_simple_model(c.element)
   assert_other_values(c.element, ["/dummy"])
 end
@@ -328,14 +896,24 @@ def test_in_new_line_started_command
       TestNode others: /dummy {
         Tes|
   END
-  assert_equal("Tes", c.prefix)
-  assert_nil(c.feature)
-  assert(!c.in_array)
-  assert(c.in_block)
+  assert_context c, :prefix => "Tes", :feature => nil, :in_array => false, :in_block => true
   assert_simple_model(c.element)
   assert_other_values(c.element, ["/dummy"])
 end
 
+def assert_context(c, options)
+  assert_equal(options[:prefix], c.prefix)
+  assert_equal(options[:in_array], c.in_array)
+  assert_equal(options[:in_block], c.in_block)
+  assert_equal((options[:after_label] || false), c.after_label)
+  assert_equal(options[:problem], c.problem)
+  if options[:feature]
+    assert_equal(options[:feature], c.feature.name)
+  else
+    assert_nil(c.feature)
+  end
+end
+
 def assert_simple_model(c)
   assert c.is_a?(TestMM::TestNode)
   assert c.parent.is_a?(TestMM::TestNode)
@@ -352,7 +930,9 @@ def build_context(mm, text)
   context_lines = text.split("\n")
   pos_in_line = context_lines.last.index("|")
   context_lines.last.sub!("|", "")
-  lang = RText::Language.new(mm.ecore, :root_classes => mm.ecore.eAllClasses)
+  lang = RText::Language.new(mm.ecore, 
+    :root_classes => mm.ecore.eAllClasses,
+    :unlabled_arguments => lambda {|c| ["unlabled", "unlabled_array"]})
   RText::ContextBuilder.build_context(lang, context_lines, pos_in_line)
 end