rtext 0.2.1 → 0.3.0

data/test/context_builder_test.rb

@@ -0,0 +1,360 @@
+$:.unshift File.join(File.dirname(__FILE__),"..","lib")
+
+require 'test/unit'
+require 'rgen/metamodel_builder'
+require 'rtext/language'
+require 'rtext/context_builder'
+
+class ContextBuilderTest < Test::Unit::TestCase
+
+module TestMM
+  extend RGen::MetamodelBuilder::ModuleExtension
+  class TestNode < RGen::MetamodelBuilder::MMBase
+    has_attr 'text', String
+    has_many_attr 'nums', Integer
+    has_one 'related', TestNode
+    has_many 'others', TestNode
+    contains_many 'childs', TestNode, 'parent'
+  end
+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_simple_model(c.element)
+  assert_other_values(c.element, [])
+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_simple_model(c.element)
+  assert_other_values(c.element, [])
+end
+
+def test_in_cmd_in_label2
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    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_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_equal("", c.prefix)
+  assert_equal("others", c.feature.name)
+  assert(!c.in_array)
+  assert(!c.in_block)
+  assert_simple_model(c.element)
+  assert_other_values(c.element, [])
+end
+
+def test_in_cmd_in_value
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    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_simple_model(c.element)
+  assert_other_values(c.element, [])
+end
+
+def test_in_cmd_in_value2
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    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_simple_model(c.element)
+  assert_other_values(c.element, [])
+end
+
+def test_in_cmd_after_value
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    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_simple_model(c.element)
+  assert_other_values(c.element, ["/dummy"])
+end
+
+def test_in_cmd_in_second_label
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    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_simple_model(c.element)
+  assert_other_values(c.element, ["/dummy"])
+end
+
+def test_in_cmd_after_second_label
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    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_simple_model(c.element)
+  assert_other_values(c.element, ["/dummy"])
+end
+
+def test_in_cmd_in_second_value
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    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_simple_model(c.element)
+  assert_other_values(c.element, ["/dummy"])
+end
+
+def test_in_cmd_in_array
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    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_simple_model(c.element)
+  assert_other_values(c.element, [])
+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_simple_model(c.element)
+  assert_other_values(c.element, [])
+end
+
+def test_in_cmd_after_array_value
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    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_simple_model(c.element)
+  assert_other_values(c.element, ["/dummy"])
+end
+
+def test_in_cmd_in_second_array_value
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    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_simple_model(c.element)
+  assert_other_values(c.element, ["/dummy"])
+end
+
+def test_in_cmd_after_array
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    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_simple_model(c.element)
+  assert_other_values(c.element, ["/dummy", "/dommy"])
+end
+
+def test_in_cmd_after_array2
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    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_simple_model(c.element)
+  assert_other_values(c.element, ["/dummy", "/dommy"])
+end
+
+def test_below_single_label
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    TestNode nums: 3 {
+      TestNode others: /dummy {
+        childs:
+          | 
+  END
+  assert_equal("", c.prefix)
+  assert_equal("childs", c.feature.name)
+  assert(!c.in_array)
+  assert(c.in_block)
+  assert_simple_model(c.element)
+  assert_other_values(c.element, ["/dummy"])
+end
+
+def test_below_single_label_started_command
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    TestNode nums: 3 {
+      TestNode others: /dummy {
+        childs:
+          Tes| 
+  END
+  assert_equal("Tes", c.prefix)
+  assert_equal("childs", c.feature.name)
+  assert(!c.in_array)
+  assert(c.in_block)
+  assert_simple_model(c.element)
+  assert_other_values(c.element, ["/dummy"])
+end
+
+def test_below_multi_label
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    TestNode nums: 3 {
+      TestNode others: /dummy {
+        childs: [
+          | 
+  END
+  assert_equal("", c.prefix)
+  assert_equal("childs", c.feature.name)
+  assert(c.in_array)
+  assert(c.in_block)
+  assert_simple_model(c.element)
+  assert_other_values(c.element, ["/dummy"])
+end
+
+def test_below_multi_label_started_command
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    TestNode nums: 3 {
+      TestNode others: /dummy {
+        childs: [
+          Tes| 
+  END
+  assert_equal("Tes", c.prefix)
+  assert_equal("childs", c.feature.name)
+  assert(c.in_array)
+  assert(c.in_block)
+  assert_simple_model(c.element)
+  assert_other_values(c.element, ["/dummy"])
+end
+
+def test_in_new_line
+  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_simple_model(c.element)
+  assert_other_values(c.element, ["/dummy"])
+end
+
+def test_in_new_line_started_command
+  c = build_context TestMM, <<-END
+  TestNode text: a {
+    TestNode nums: 3 {
+      TestNode others: /dummy {
+        Tes|
+  END
+  assert_equal("Tes", c.prefix)
+  assert_nil(c.feature)
+  assert(!c.in_array)
+  assert(c.in_block)
+  assert_simple_model(c.element)
+  assert_other_values(c.element, ["/dummy"])
+end
+
+def assert_simple_model(c)
+  assert c.is_a?(TestMM::TestNode)
+  assert c.parent.is_a?(TestMM::TestNode)
+  assert_equal [3], c.parent.nums
+  assert c.parent.parent.is_a?(TestMM::TestNode)
+  assert_equal "a", c.parent.parent.text
+end
+
+def assert_other_values(c, values)
+  assert_equal values, c.others.collect{|v| v.targetIdentifier}
+end
+
+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)
+  RText::ContextBuilder.build_context(lang, context_lines, pos_in_line)
+end
+
+end
+

data/test/instantiator_test.rb

@@ -7,12 +7,12 @@ require 'rgen/metamodel_builder'
 require 'rtext/instantiator'
 require 'rtext/language'
 
-class RTextInstantiatorTest < Test::Unit::TestCase
+class InstantiatorTest < Test::Unit::TestCase
 
   module TestMM
     extend RGen::MetamodelBuilder::ModuleExtension
     class TestNode < RGen::MetamodelBuilder::MMBase
-      SomeEnum = RGen::MetamodelBuilder::DataTypes::Enum.new([:A, :B, :'non-word*chars', :'2you'])
+      SomeEnum = RGen::MetamodelBuilder::DataTypes::Enum.new([:A, :B, :'non-word*chars'])
       has_attr 'text', String
       has_attr 'integer', Integer
       has_attr 'boolean', Boolean
@@ -80,6 +80,30 @@ class RTextInstantiatorTest < Test::Unit::TestCase
     end
   end
 
+  module TestMMNonRootClass
+    extend RGen::MetamodelBuilder::ModuleExtension
+    class NonRootClass < RGen::MetamodelBuilder::MMBase
+    end
+  end
+
+  module TestMMContextSensitiveCommands
+    extend RGen::MetamodelBuilder::ModuleExtension
+    module SubPackage2
+      extend RGen::MetamodelBuilder::ModuleExtension
+      class Command < RGen::MetamodelBuilder::MMBase
+      end
+    end
+    module SubPackage1
+      extend RGen::MetamodelBuilder::ModuleExtension
+      class Command < RGen::MetamodelBuilder::MMBase
+        contains_one 'command', SubPackage2::Command, 'super'
+      end
+    end
+    class TestNode < RGen::MetamodelBuilder::MMBase
+      contains_one 'command', SubPackage1::Command, 'testNode'
+    end
+  end
+
   def test_simple
     env, problems = instantiate(%Q(
       TestNode text: "some text", nums: [1,2] {
@@ -242,6 +266,17 @@ class RTextInstantiatorTest < Test::Unit::TestCase
     assert_model_simple(env)
   end
 
+  def test_child_role_empty
+    env, problems = instantiate(%Q(
+      TestNode {
+        childs: [
+        ]
+      }
+    ), TestMM)
+    assert_no_problems(problems)
+  end
+
+
   #
   # whitespace
   # 
@@ -410,6 +445,41 @@ class RTextInstantiatorTest < Test::Unit::TestCase
     assert_no_problems(problems)
     assert_model_simple(env, :with_nums)
   end
+  
+  # 
+  # context sensitive commands
+  #
+
+  def test_context_sensitive
+    env, problems = instantiate(%Q(
+      TestNode {
+        Command {
+          Command
+        }
+      }
+      ), TestMMContextSensitiveCommands)
+    assert_no_problems(problems)
+    root = env.find(:class => TestMMContextSensitiveCommands::TestNode).first
+    assert_not_nil(root)
+    assert(root.command.is_a?(TestMMContextSensitiveCommands::SubPackage1::Command))
+    assert(root.command.command.is_a?(TestMMContextSensitiveCommands::SubPackage2::Command))
+  end
+
+  def test_context_sensitive_command_name_mapping
+    env, problems = instantiate(%Q(
+      Command {
+        Command {
+          Command
+        }
+      }
+      ), TestMMContextSensitiveCommands, :command_name_provider => lambda do |c|
+        "Command" end)
+    assert_no_problems(problems)
+    root = env.find(:class => TestMMContextSensitiveCommands::TestNode).first
+    assert_not_nil(root)
+    assert(root.command.is_a?(TestMMContextSensitiveCommands::SubPackage1::Command))
+    assert(root.command.command.is_a?(TestMMContextSensitiveCommands::SubPackage2::Command))
+  end
 
   #
   # problems
@@ -508,6 +578,17 @@ class RTextInstantiatorTest < Test::Unit::TestCase
     ], problems)
   end
 
+  def test_child_role_without_child
+    env, problems = instantiate(%Q(
+      TestNode {
+        singleChild:
+      }
+    ), TestMM2)
+    assert_problems([
+      /unexpected }, expected identifier/i
+    ], problems)
+  end
+
   def test_wrong_child
     env, problems = instantiate(%Q(
       TestNode {
@@ -515,7 +596,7 @@ class RTextInstantiatorTest < Test::Unit::TestCase
       }
     ), TestMM2)
     assert_problems([
-      /this kind of element can not be contained here/i,
+      /command 'TestNode3' can not be used in this context/i,
     ], problems)
   end
 
@@ -619,6 +700,13 @@ class RTextInstantiatorTest < Test::Unit::TestCase
     assert_problems([/unexpected \}, expected identifier/i], problems)
   end
 
+  def test_invalid_root
+    env, problems = instantiate(%Q(
+      NonRootClass
+    ), TestMMNonRootClass)
+    assert_problems([/command 'NonRootClass' can not be used on root level/i], problems)
+  end
+
   #
   # command name provider
   #
@@ -773,13 +861,6 @@ class RTextInstantiatorTest < Test::Unit::TestCase
     assert_equal "something", env.elements.first.text
   end
 
-  def test_subpackage_no_shortname_opt
-    env, problems = instantiate(%q(
-      TestNodeSub text: "something" 
-    ), TestMMSubpackage, :short_class_names => false)
-    assert_problems([/Unknown command 'TestNodeSub'/], problems)
-  end
-
   #
   # values
   # 
@@ -859,11 +940,10 @@ class RTextInstantiatorTest < Test::Unit::TestCase
         TestNode enum: A 
         TestNode enum: B 
         TestNode enum: "non-word*chars"
-        TestNode enum: "2you"
       }
     ), TestMM)
     assert_no_problems(problems)
-    assert_equal [:A, :B, :'non-word*chars', :'2you'], env.find(:text => "root").first.childs.collect{|c| c.enum}
+    assert_equal [:A, :B, :'non-word*chars'], env.find(:text => "root").first.childs.collect{|c| c.enum}
   end
 
   #
@@ -890,7 +970,9 @@ class RTextInstantiatorTest < Test::Unit::TestCase
 
   def instantiate(text, mm, options={})
     env = RGen::Environment.new
-    lang = RText::Language.new(mm.ecore, options)
+    lang = RText::Language.new(mm.ecore, options.merge(
+      :root_classes => mm.ecore.eAllClasses.select{|c| 
+        c.name == "TestNode" || c.name == "Data" || c.name == "TestNodeSub" || c.name == "SubNode"}))
     inst = RText::Instantiator.new(lang)
     problems = []
     inst.instantiate(text, options.merge({:env => env, :problems => problems}))