1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
$:.unshift File.dirname(__FILE__) + "/../lib"
require 'minitest/autorun'
require 'rgen/ecore/ecore'
# The following would also influence other tests...
#
#module RGen::ECore
# class EGenericType < EObject
# contains_many_uni 'eTypeArguments', EGenericType
# end
# class ETypeParameter < ENamedElement
# end
# class EClassifier
# contains_many_uni 'eTypeParameters', ETypeParameter
# end
# class ETypedElement
# has_one 'eGenericType', EGenericType
# end
#end
#
#RGen::ECore::ECoreInterface.clear_ecore_cache
#RGen::ECore::EString.ePackage = RGen::ECore.ecore
require 'rgen/environment'
require 'rgen/model_builder/model_serializer'
require 'rgen/instantiator/ecore_xml_instantiator'
require 'rgen/model_builder'
require 'model_builder/statemachine_metamodel'
class ModelSerializerTest < Minitest::Test
def test_ecore_internal
File.open(File.dirname(__FILE__)+"/ecore_internal.rb","w") do |f|
serializer = RGen::ModelBuilder::ModelSerializer.new(f, RGen::ECore.ecore)
serializer.serialize(RGen::ECore.ecore)
end
end
def test_roundtrip
model = %{\
statemachine "Airconditioner" do
state "Off", :kind => :START
compositeState "On" do
state "Heating"
state "Cooling"
state "Dumm"
end
transition "_Transition1", :sourceState => "On.Cooling", :targetState => "On.Heating"
transition "_Transition2", :sourceState => "On.Heating", :targetState => "On.Cooling"
end
}
check_roundtrip(StatemachineMetamodel, model)
end
module AmbiguousRoleMM
extend RGen::MetamodelBuilder::ModuleExtension
class A < RGen::MetamodelBuilder::MMBase
end
class B < RGen::MetamodelBuilder::MMBase
end
class C < B
end
A.contains_many 'role1', B, 'back1'
A.contains_many 'role2', B, 'back2'
end
def test_roundtrip_ambiguous_role
model = %{\
a "_A1" do
b "_B1", :as => :role1
b "_B2", :as => :role2
c "_C1", :as => :role2
end
}
check_roundtrip(AmbiguousRoleMM, model)
end
private
def build_model(mm, model)
RGen::ModelBuilder.build(mm) do
eval(model)
end
end
def check_roundtrip(mm, model)
sm = build_model(mm, model)
f = StringIO.new
serializer = RGen::ModelBuilder::ModelSerializer.new(f, mm.ecore)
serializer.serialize(sm)
assert_equal model, f.string
end
end
|
