puppet 4.10.0 → 5.0.0

data/lib/puppet/vendor/rgen/test/metamodel_from_ecore_test.rb

@@ -1,57 +0,0 @@
-$:.unshift File.join(File.dirname(__FILE__),"..","test")
-
-require 'metamodel_builder_test'
-require 'rgen/ecore/ecore_to_ruby'
-
-# this test suite runs all the tests of MetamodelBuilderTest with the TestMetamodel 
-# replaced by the result of feeding its ecore model through ECoreToRuby
-# 
-class MetamodelFromEcoreTest < MetamodelBuilderTest
-  
-  # clone the ecore model, because it will be modified below
-  test_ecore = Marshal.load(Marshal.dump(TestMetamodel.ecore))
-  # some EEnum types are not hooked into the EPackage because they do not
-  # appear with a constant assignment in TestMetamodel
-  # fix this by explicitly assigning the ePackage
-  # also fix the name of anonymous enums
-  test_ecore.eClassifiers.find{|c| c.name == "SimpleClass"}.
-    eAttributes.select{|a| a.name == "kind" || a.name == "kindWithDefault"}.each{|a|
-      a.eType.name = "KindType"
-      a.eType.ePackage = test_ecore}
-  test_ecore.eClassifiers.find{|c| c.name == "ManyAttrClass"}.
-    eAttributes.select{|a| a.name == "enums"}.each{|a|
-      a.eType.name = "ABCEnum"
-      a.eType.ePackage = test_ecore}
-
-  MetamodelFromEcore = RGen::ECore::ECoreToRuby.new.create_module(test_ecore)
-
-  def mm
-    MetamodelFromEcore
-  end
-
-  # alternative implementation for dynamic variant
-  def test_bad_default_value_literal
-    package = RGen::ECore::EPackage.new(:name => "Package1", :eClassifiers => [
-      RGen::ECore::EClass.new(:name => "Class1", :eStructuralFeatures => [
-        RGen::ECore::EAttribute.new(:name => "value", :eType => RGen::ECore::EInt, :defaultValueLiteral => "x")])])
-    mod = RGen::ECore::ECoreToRuby.new.create_module(package)
-    obj = mod::Class1.new
-    # the error is raised only when the feature is lazily constructed
-    assert_raise StandardError do
-      obj.value
-    end
-  end
-
-  # define all the test methods explicitly in the subclass
-  # otherwise minitest is smart enough to run the tests only in the superclass context
-  MetamodelBuilderTest.instance_methods.select{|m| m.to_s =~ /^test_/}.each do |m|
-    next if instance_methods(false).include?(m)
-    module_eval <<-END
-      def #{m}
-        super
-      end
-    END
-  end
-
-end
-

data/lib/puppet/vendor/rgen/test/metamodel_order_test.rb

@@ -1,131 +0,0 @@
-$:.unshift File.join(File.dirname(__FILE__),"..","lib")
-
-require 'test/unit'
-require 'rgen/ecore/ecore'
-require 'rgen/array_extensions'
-
-class MetamodelOrderTest < Test::Unit::TestCase
-	include RGen::ECore
-	
-  module TestMM1
-    extend RGen::MetamodelBuilder::ModuleExtension
-
-    class Class11 < RGen::MetamodelBuilder::MMBase
-    end
-
-    module Module11
-      extend RGen::MetamodelBuilder::ModuleExtension
-
-      DataType111 = RGen::MetamodelBuilder::DataTypes::Enum.new(:name => "DataType111" ,:literals => {:b => 1})
-      DataType112 = RGen::MetamodelBuilder::DataTypes::Enum.new(:name => "DataType112", :literals => {:b => 1})
-
-      class Class111 < RGen::MetamodelBuilder::MMBase
-      end
-      
-      # anonymous classes won't be handled by the order helper, but will be in eClassifiers
-      Class112 = Class.new(RGen::MetamodelBuilder::MMBase)
-
-      # classes that are not MMBase won't be handled
-      class Class113 
-      end
-
-      # modules that are not extended by the ModuleExtension are not handled
-      module Module111
-      end
-
-      # however it can be extendend later on
-      module Module112
-        # this one is not handled by the order helper since Module112 doesn't have the ModuleExtension yet
-        # however, it will be in eClassifiers
-        class Class1121 < RGen::MetamodelBuilder::MMBase
-        end
-      end
-      # this datatype must be in Module11 not Module112
-      DataType113 = RGen::MetamodelBuilder::DataTypes::Enum.new(:name => "DataType113", :literals => {:b => 1})
-
-      Module112.extend(RGen::MetamodelBuilder::ModuleExtension)
-      # this datatype must be in Module11 not Module112
-      DataType114 = RGen::MetamodelBuilder::DataTypes::Enum.new(:name => "DataType114", :literals => {:b => 1})
-      module Module112
-        # this one is handled because now Module112 is extended
-        class Class1122 < RGen::MetamodelBuilder::MMBase
-        end
-      end
-
-      DataType115 = RGen::MetamodelBuilder::DataTypes::Enum.new(:name => "DataType115", :literals => {:b => 1})
-      DataType116 = RGen::MetamodelBuilder::DataTypes::Enum.new(:name => "DataType116", :literals => {:b => 1})
-    end
-
-    DataType11 = RGen::MetamodelBuilder::DataTypes::Enum.new(:name => "DataType11", :literals => {:a => 1})
-
-    class Class12 < RGen::MetamodelBuilder::MMBase
-    end
-
-    class Class13 < RGen::MetamodelBuilder::MMBase
-    end
-  end
-
-  # datatypes outside of a module won't be handled
-  DataType1 = RGen::MetamodelBuilder::DataTypes::Enum.new(:name => "DataType1", :literals => {:b => 1})
-
-  # classes outside of a module won't be handled
-  class Class1 < RGen::MetamodelBuilder::MMBase
-  end
-
-  module TestMM2
-    extend RGen::MetamodelBuilder::ModuleExtension
-  
-    TestMM1::Module11.extend(RGen::MetamodelBuilder::ModuleExtension)
-    # this is a critical case: because of the previous extension of Module11 which is in a different
-    # hierarchy, DataType21 is looked for in Module11 and its parents; finally it is not
-    # found and the definition is ignored for order calculation
-    DataType21 = RGen::MetamodelBuilder::DataTypes::Enum.new(:name => "DataType21", :literals => {:b => 1})
-
-    module Module21
-      extend RGen::MetamodelBuilder::ModuleExtension
-    end
-
-    module Module22
-      extend RGen::MetamodelBuilder::ModuleExtension
-    end
-
-    module Module23
-      extend RGen::MetamodelBuilder::ModuleExtension
-    end
-
-    # if there is no other class or module after the last datatype, it won't show up in _constantOrder
-    # however, the order of eClassifiers can still be reconstructed
-    # note that this can not be tested if the test is executed as part of the whole testsuite 
-    # since there will be classes and modules created within other test files
-    DataType22 = RGen::MetamodelBuilder::DataTypes::Enum.new(:name => "DataType22", :literals => {:b => 1})
-  end
-
-  def test_constant_order
-    assert_equal ["Class11", "Module11", "DataType11", "Class12", "Class13"], TestMM1._constantOrder
-    assert_equal ["DataType111", "DataType112", "Class111", "DataType113", "Module112", "DataType114", "DataType115", "DataType116"], TestMM1::Module11._constantOrder
-    assert_equal ["Class1122"], TestMM1::Module11::Module112._constantOrder
-    if File.basename($0) == "metamodel_order_test.rb"
-      # this won't work if run in the whole test suite (see comment at DataType22)
-      assert_equal ["Module21", "Module22", "Module23"], TestMM2._constantOrder
-    end
-  end
-
-  def test_classifier_order
-    # eClassifiers also contains the ones which where ignored in order calculation, these are expected at the end
-    # (in an arbitrary order)
-    assert_equal ["Class11", "DataType11", "Class12", "Class13"], TestMM1.ecore.eClassifiers.name
-    assert_equal ["DataType111", "DataType112", "Class111", "DataType113", "DataType114", "DataType115", "DataType116", "Class112"], TestMM1::Module11.ecore.eClassifiers.name
-    assert_equal ["Class1122", "Class1121"], TestMM1::Module11::Module112.ecore.eClassifiers.name
-    # no classifiers in TestMM2._constantOrder, so the datatypes can appear in arbitrary order
-    assert_equal ["DataType21","DataType22"], TestMM2.ecore.eClassifiers.name.sort
-  end
-
-  def test_subpackage_order
-    assert_equal ["Module11"], TestMM1.ecore.eSubpackages.name
-    assert_equal ["Module112"], TestMM1::Module11.ecore.eSubpackages.name
-    assert_equal [], TestMM1::Module11::Module112.ecore.eSubpackages.name
-    assert_equal ["Module21", "Module22", "Module23"], TestMM2.ecore.eSubpackages.name
-  end
-end
-
-

data/lib/puppet/vendor/rgen/test/metamodel_roundtrip_test/TestModel.rb

@@ -1,70 +0,0 @@
-require 'rgen/metamodel_builder'
-
-module HouseMetamodel
-  extend RGen::MetamodelBuilder::ModuleExtension
-  include RGen::MetamodelBuilder::DataTypes
-  
-  SexEnum = Enum.new(:name => "SexEnum", :literals => [ :male, :female ])
-  # TODO: Datatypes
-  #   AggregationKind = Enum.new([ :none, :aggregate, :composite ])
-  
-  class MeetingPlace < RGen::MetamodelBuilder::MMBase
-    annotation :source => "testmodel", :details => { 'complexity' => '1', 'date_created' => '2006-07-12 08:40:46', 'date_modified' => '2006-07-12 08:44:02', 'ea_ntype' => '0', 'ea_stype' => 'Class', 'gentype' => 'Java', 'isSpecification' => 'false', 'package' => 'EAPK_A1B83D59_CAE1_422c_BA5F_D3624D7156AD', 'package_name' => 'HouseMetamodel', 'phase' => '1.0', 'status' => 'Proposed', 'style' => 'BackColor=-1;BorderColor=-1;BorderWidth=-1;FontColor=-1;VSwimLanes=0;HSwimLanes=0;BorderStyle=0;', 'tagged' => '0', 'version' => '1.0' }
-  end
-  
-  class Person < RGen::MetamodelBuilder::MMBase
-    annotation       'complexity' => '1', 'date_created' => '2006-06-27 08:34:23', 'date_modified' => '2006-06-27 08:34:26', 'ea_ntype' => '0', 'ea_stype' => 'Class', 'gentype' => 'Java', 'isSpecification' => 'false', 'package' => 'EAPK_A1B83D59_CAE1_422c_BA5F_D3624D7156AD', 'package_name' => 'HouseMetamodel', 'phase' => '1.0', 'status' => 'Proposed', 'style' => 'BackColor=-1;BorderColor=-1;BorderWidth=-1;FontColor=-1;VSwimLanes=0;HSwimLanes=0;BorderStyle=0;', 'tagged' => '0', 'version' => '1.0'
-  	has_attr 'sex', SexEnum
-    has_attr 'id', Long
-    has_many_attr 'nicknames', String
-  end
-  
-  class House < RGen::MetamodelBuilder::MMBase
-    annotation       'complexity' => '1', 'date_created' => '2005-09-16 19:52:18', 'date_modified' => '2006-02-28 08:29:19', 'ea_ntype' => '0', 'ea_stype' => 'Class', 'gentype' => 'Java', 'isSpecification' => 'false', 'package' => 'EAPK_A1B83D59_CAE1_422c_BA5F_D3624D7156AD', 'package_name' => 'HouseMetamodel', 'phase' => '1.0', 'status' => 'Proposed', 'stereotype' => 'dummy', 'style' => 'BackColor=-1;BorderColor=-1;BorderWidth=-1;FontColor=-1;VSwimLanes=0;HSwimLanes=0;BorderStyle=0;', 'tagged' => '0', 'version' => '1.0'
-    has_attr 'size', Integer
-    has_attr 'module'
-    has_attr 'address', String, :changeable => false      do
-      annotation          'collection' => 'false', 'containment' => 'Not Specified', 'derived' => '0', 'duplicates' => '0', 'ea_guid' => '{A8DF581B-9AC6-4f75-AB48-8FAEDFC6E068}', 'lowerBound' => '1', 'ordered' => '0', 'position' => '0', 'styleex' => 'volatile=0;', 'type' => 'String', 'upperBound' => '1'
-    end
-    
-  end
-  
-  
-  module Rooms
-    extend RGen::MetamodelBuilder::ModuleExtension
-    
-    
-    class Room < RGen::MetamodelBuilder::MMBase
-      abstract
-      annotation          'complexity' => '1', 'date_created' => '2005-09-16 19:52:28', 'date_modified' => '2006-06-22 21:15:25', 'ea_ntype' => '0', 'ea_stype' => 'Class', 'gentype' => 'Java', 'isSpecification' => 'false', 'package' => 'EAPK_F9D8C6E3_4DAD_4aa2_AD47_D0ABA4E93E08', 'package_name' => 'Rooms', 'phase' => '1.0', 'status' => 'Proposed', 'style' => 'BackColor=-1;BorderColor=-1;BorderWidth=-1;FontColor=-1;VSwimLanes=0;HSwimLanes=0;BorderStyle=0;', 'tagged' => '0', 'version' => '1.0'
-    end
-    
-    class Bathroom < Room
-      annotation          'complexity' => '1', 'date_created' => '2006-06-27 08:32:25', 'date_modified' => '2006-06-27 08:34:23', 'ea_ntype' => '0', 'ea_stype' => 'Class', 'gentype' => 'Java', 'isSpecification' => 'false', 'package' => 'EAPK_F9D8C6E3_4DAD_4aa2_AD47_D0ABA4E93E08', 'package_name' => 'Rooms', 'phase' => '1.0', 'status' => 'Proposed', 'style' => 'BackColor=-1;BorderColor=-1;BorderWidth=-1;FontColor=-1;VSwimLanes=0;HSwimLanes=0;BorderStyle=0;', 'tagged' => '0', 'version' => '1.0'
-    end
-    
-    class Kitchen < RGen::MetamodelBuilder::MMMultiple(HouseMetamodel::MeetingPlace, Room)
-      annotation          'complexity' => '1', 'date_created' => '2005-11-30 19:26:13', 'date_modified' => '2006-06-22 21:15:34', 'ea_ntype' => '0', 'ea_stype' => 'Class', 'gentype' => 'Java', 'isSpecification' => 'false', 'package' => 'EAPK_F9D8C6E3_4DAD_4aa2_AD47_D0ABA4E93E08', 'package_name' => 'Rooms', 'phase' => '1.0', 'status' => 'Proposed', 'style' => 'BackColor=-1;BorderColor=-1;BorderWidth=-1;FontColor=-1;VSwimLanes=0;HSwimLanes=0;BorderStyle=0;', 'tagged' => '0', 'version' => '1.0'
-    end
-    
-  end
-  
-  module DependingOnRooms
-    extend RGen::MetamodelBuilder::ModuleExtension
-    class RoomSub < Rooms::Room
-    end
-  end
-end
-
-HouseMetamodel::Person.has_many 'home', HouseMetamodel::House do
-  annotation    'containment' => 'Unspecified'
-end
-HouseMetamodel::House.has_one 'bathroom', HouseMetamodel::Rooms::Bathroom, :lowerBound => 1, :transient => true
-HouseMetamodel::House.one_to_one 'kitchen', HouseMetamodel::Rooms::Kitchen, 'house', :lowerBound => 1, :opposite_lowerBound => 1 do
-  annotation    'containment' => 'Unspecified'
-  opposite_annotation    'containment' => 'Unspecified'
-end
-HouseMetamodel::House.contains_many 'room', HouseMetamodel::Rooms::Room, 'house', :lowerBound => 1 do
-  # only an opposite annotation
-  opposite_annotation    'containment' => 'Unspecified'
-end

data/lib/puppet/vendor/rgen/test/metamodel_roundtrip_test/houseMetamodel.ecore

@@ -1,42 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<ecore:EPackage xmi:version="2.0"
-    xmlns:xmi="http://www.omg.org/XMI" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
-    xmlns:ecore="http://www.eclipse.org/emf/2002/Ecore" name="HouseMetamodel">
-  <eClassifiers xsi:type="ecore:EClass" name="House">
-    <eAnnotations source="bla">
-      <details key="a" value="b"/>
-    </eAnnotations>
-    <eStructuralFeatures xsi:type="ecore:EAttribute" name="address" eType="#//String"
-        changeable="false"/>
-    <eStructuralFeatures xsi:type="ecore:EReference" name="bathroom" lowerBound="1"
-        eType="#//Rooms/Bathroom"/>
-    <eStructuralFeatures xsi:type="ecore:EReference" name="kitchen" lowerBound="1"
-        eType="#//Rooms/Kitchen" eOpposite="#//Rooms/Kitchen/house"/>
-    <eStructuralFeatures xsi:type="ecore:EReference" name="room" upperBound="-1" eType="#//Rooms/Room"
-        containment="true" eOpposite="#//Rooms/Room/house"/>
-  </eClassifiers>
-  <eClassifiers xsi:type="ecore:EClass" name="MeetingPlace"/>
-  <eClassifiers xsi:type="ecore:EClass" name="Person">
-    <eStructuralFeatures xsi:type="ecore:EReference" name="house" upperBound="-1"
-        eType="#//House"/>
-    <eStructuralFeatures xsi:type="ecore:EAttribute" name="sex" eType="#//SexEnum"/>
-    <eStructuralFeatures xsi:type="ecore:EAttribute" name="id" eType="ecore:EDataType http://www.eclipse.org/emf/2002/Ecore#//ELong"/>
-    <eStructuralFeatures xsi:type="ecore:EAttribute" name="nicknames" upperBound="-1" eType="#//String"/>
-  </eClassifiers>
-  <eClassifiers xsi:type="ecore:EDataType" name="String" instanceClassName="java.lang.String"/>
-  <eClassifiers xsi:type="ecore:EEnum" name="SexEnum">
-    <eLiterals name="male"/>
-    <eLiterals name="female"/>
-  </eClassifiers>
-  <eSubpackages name="Rooms">
-    <eClassifiers xsi:type="ecore:EClass" name="Room">
-      <eStructuralFeatures xsi:type="ecore:EReference" name="house" eType="#//House"
-          defaultValueLiteral="" eOpposite="#//House/room"/>
-    </eClassifiers>
-    <eClassifiers xsi:type="ecore:EClass" name="Bathroom" eSuperTypes="#//Rooms/Room"/>
-    <eClassifiers xsi:type="ecore:EClass" name="Kitchen" eSuperTypes="#//Rooms/Room #//MeetingPlace">
-      <eStructuralFeatures xsi:type="ecore:EReference" name="house" eType="#//House"
-          eOpposite="#//House/kitchen"/>
-    </eClassifiers>
-  </eSubpackages>
-</ecore:EPackage>

data/lib/puppet/vendor/rgen/test/metamodel_roundtrip_test/houseMetamodel_from_ecore.rb

@@ -1,44 +0,0 @@
-require 'rgen/metamodel_builder'
-
-module HouseMetamodel
-   extend RGen::MetamodelBuilder::ModuleExtension
-   include RGen::MetamodelBuilder::DataTypes
-
-   SexEnum = Enum.new(:name => 'SexEnum', :literals =>[ :male, :female ])
-
-   class House < RGen::MetamodelBuilder::MMBase
-      annotation :source => "bla", :details => {'a' => 'b'}
-      has_attr 'address', String, :changeable => false 
-   end
-
-   class MeetingPlace < RGen::MetamodelBuilder::MMBase
-   end
-
-   class Person < RGen::MetamodelBuilder::MMBase
-      has_attr 'sex', HouseMetamodel::SexEnum 
-      has_attr 'id', Long 
-      has_many_attr 'nicknames', String 
-   end
-
-
-   module Rooms
-      extend RGen::MetamodelBuilder::ModuleExtension
-      include RGen::MetamodelBuilder::DataTypes
-
-
-      class Room < RGen::MetamodelBuilder::MMBase
-      end
-
-      class Bathroom < Room
-      end
-
-      class Kitchen < RGen::MetamodelBuilder::MMMultiple(Room, HouseMetamodel::MeetingPlace)
-      end
-
-   end
-end
-
-HouseMetamodel::House.has_one 'bathroom', HouseMetamodel::Rooms::Bathroom, :lowerBound => 1 
-HouseMetamodel::House.one_to_one 'kitchen', HouseMetamodel::Rooms::Kitchen, 'house', :lowerBound => 1 
-HouseMetamodel::House.contains_many 'room', HouseMetamodel::Rooms::Room, 'house' 
-HouseMetamodel::Person.has_many 'house', HouseMetamodel::House 

data/lib/puppet/vendor/rgen/test/metamodel_roundtrip_test/using_builtin_types.ecore

@@ -1,9 +0,0 @@
-<ecore:EPackage name="P1" xmi:version="2.0" xmlns:xmi="http://www.omg.org/XMI" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:ecore="http://www.eclipse.org/emf/2002/Ecore">
-  <eClassifiers name="C1" xsi:type="ecore:EClass">
-    <eStructuralFeatures iD="false" changeable="true" derived="false" transient="false" unsettable="false" volatile="false" lowerBound="0" ordered="true" unique="true" upperBound="1" name="a1" eType="ecore:EDataType http://www.eclipse.org/emf/2002/Ecore#//EString" xsi:type="ecore:EAttribute"/>
-    <eStructuralFeatures iD="false" changeable="true" derived="false" transient="false" unsettable="false" volatile="false" lowerBound="0" ordered="true" unique="true" upperBound="1" name="a2" eType="ecore:EDataType http://www.eclipse.org/emf/2002/Ecore#//EInt" xsi:type="ecore:EAttribute"/>
-    <eStructuralFeatures iD="false" changeable="true" derived="false" transient="false" unsettable="false" volatile="false" lowerBound="0" ordered="true" unique="true" upperBound="1" name="a3" eType="ecore:EDataType http://www.eclipse.org/emf/2002/Ecore#//ELong" xsi:type="ecore:EAttribute"/>
-    <eStructuralFeatures iD="false" changeable="true" derived="false" transient="false" unsettable="false" volatile="false" lowerBound="0" ordered="true" unique="true" upperBound="1" name="a4" eType="ecore:EDataType http://www.eclipse.org/emf/2002/Ecore#//EFloat" xsi:type="ecore:EAttribute"/>
-    <eStructuralFeatures iD="false" changeable="true" derived="false" transient="false" unsettable="false" volatile="false" lowerBound="0" ordered="true" unique="true" upperBound="1" name="a5" eType="ecore:EDataType http://www.eclipse.org/emf/2002/Ecore#//EBoolean" xsi:type="ecore:EAttribute"/>
-  </eClassifiers>
-</ecore:EPackage>

data/lib/puppet/vendor/rgen/test/metamodel_roundtrip_test.rb

@@ -1,98 +0,0 @@
-$:.unshift File.join(File.dirname(__FILE__),"..","lib")
-
-require 'test/unit'
-require 'rgen/array_extensions'
-require 'rgen/util/model_comparator'
-require 'mmgen/metamodel_generator'
-require 'rgen/instantiator/ecore_xml_instantiator'
-require 'rgen/serializer/xmi20_serializer'
-
-class MetamodelRoundtripTest < Test::Unit::TestCase
-  
-  TEST_DIR = File.dirname(__FILE__)+"/metamodel_roundtrip_test"
-  
-  include MMGen::MetamodelGenerator
-  include RGen::Util::ModelComparator
-  
-  module Regenerated
-    Inside = binding
-  end
-  
-  def test_generator
-    require TEST_DIR+"/TestModel.rb"
-    outfile = TEST_DIR+"/TestModel_Regenerated.rb"		
-    generateMetamodel(HouseMetamodel.ecore, outfile)
-    
-    File.open(outfile) do |f|
-      eval(f.read, Regenerated::Inside)
-    end
-    
-    assert modelEqual?(HouseMetamodel.ecore, Regenerated::HouseMetamodel.ecore, ["instanceClassName"])
-  end
-  
-  module UMLRegenerated
-    Inside = binding
-  end
-  
-  def test_generate_from_ecore
-    outfile = TEST_DIR+"/houseMetamodel_from_ecore.rb"
-
-    env = RGen::Environment.new
-    File.open(TEST_DIR+"/houseMetamodel.ecore") { |f|
-      ECoreXMLInstantiator.new(env).instantiate(f.read)
-    }
-    rootpackage = env.find(:class => RGen::ECore::EPackage).first
-    rootpackage.name = "HouseMetamodel"
-    generateMetamodel(rootpackage, outfile)
-    
-    File.open(outfile) do |f|
-      eval(f.read, UMLRegenerated::Inside, "test_eval", 0)
-    end
-  end
-  
-  def test_ecore_serializer
-    require TEST_DIR+"/TestModel.rb"
-    File.open(TEST_DIR+"/houseMetamodel_Regenerated.ecore","w") do |f|
-	  	ser = RGen::Serializer::XMI20Serializer.new(f)
-	  	ser.serialize(HouseMetamodel.ecore)
-	 	end
-  end
- 
-  BuiltinTypesTestEcore = TEST_DIR+"/using_builtin_types.ecore"
-
-  def test_ecore_serializer_builtin_types
-    mm = RGen::ECore::EPackage.new(:name => "P1", :eClassifiers => [
-      RGen::ECore::EClass.new(:name => "C1", :eStructuralFeatures => [
-        RGen::ECore::EAttribute.new(:name => "a1", :eType => RGen::ECore::EString), 
-        RGen::ECore::EAttribute.new(:name => "a2", :eType => RGen::ECore::EInt), 
-        RGen::ECore::EAttribute.new(:name => "a3", :eType => RGen::ECore::ELong), 
-        RGen::ECore::EAttribute.new(:name => "a4", :eType => RGen::ECore::EFloat), 
-        RGen::ECore::EAttribute.new(:name => "a5", :eType => RGen::ECore::EBoolean) 
-      ])
-    ])
-    outfile = TEST_DIR+"/using_builtin_types_serialized.ecore"
-    File.open(outfile, "w") do |f|
-      ser = RGen::Serializer::XMI20Serializer.new(f)
-      ser.serialize(mm)
-    end
-    assert_equal(File.read(BuiltinTypesTestEcore), File.read(outfile))
-  end
-
-  def test_ecore_instantiator_builtin_types
-    env = RGen::Environment.new
-    File.open(BuiltinTypesTestEcore) { |f|
-      ECoreXMLInstantiator.new(env).instantiate(f.read)
-    }
-    a1 = env.find(:class => RGen::ECore::EAttribute, :name => "a1").first
-    assert_equal(RGen::ECore::EString, a1.eType)
-    a2 = env.find(:class => RGen::ECore::EAttribute, :name => "a2").first
-    assert_equal(RGen::ECore::EInt, a2.eType)
-    a3 = env.find(:class => RGen::ECore::EAttribute, :name => "a3").first
-    assert_equal(RGen::ECore::ELong, a3.eType)
-    a4 = env.find(:class => RGen::ECore::EAttribute, :name => "a4").first
-    assert_equal(RGen::ECore::EFloat, a4.eType)
-    a5 = env.find(:class => RGen::ECore::EAttribute, :name => "a5").first
-    assert_equal(RGen::ECore::EBoolean, a5.eType)
-  end
-
-end

data/lib/puppet/vendor/rgen/test/method_delegation_test.rb

@@ -1,178 +0,0 @@
-$:.unshift File.dirname(__FILE__) + "/../lib"
-
-require 'test/unit'
-require 'rgen/util/method_delegation'
-
-class MethodDelegationTest < Test::Unit::TestCase
-  include RGen
-  
-  class TestDelegate
-    attr_accessor :mode, :callcount
-    def common_delegated(delegator)
-      @callcount ||= 0
-      @callcount += 1
-      case @mode 
-        when :continue
-          throw :continue
-        when :delegatorId
-          delegator.object_id
-        when :return7
-          7
-      end
-    end
-    alias to_s_delegated common_delegated
-    alias methodInSingleton_delegated common_delegated
-    alias class_delegated common_delegated
-    alias artificialMethod_delegated common_delegated
-  end
-  
-  class ConstPathElement < Module
-    def self.const_missing_delegated(delegator, const)
-      ConstPathElement.new(const)
-    end
-    def initialize(name, parent=nil)
-      @name = name.to_s
-      @parent = parent
-    end
-    def const_missing(const)
-      ConstPathElement.new(const, self)
-    end
-    def to_s
-      if @parent
-        @parent.to_s+"::"+@name
-      else
-        @name
-      end
-    end
-  end
-  
-  # missing: check with multiple params and block param
-  
-  def test_method_defined_in_singleton
-    # delegator is an Array
-    delegator = []
-    # delegating method is a method defined in the singleton class
-    class << delegator
-      def methodInSingleton
-        "result from method in singleton"
-      end
-    end
-    checkDelegation(delegator, "methodInSingleton", "result from method in singleton")
-  end
-  
-  def test_method_defined_in_class
-    # delegator is a String
-    delegator = "Delegator1"
-    checkDelegation(delegator, "to_s", "Delegator1")
-  end
-  
-  def test_method_defined_in_superclass
-    # delegator is an instance of a new anonymous class
-    delegator = Class.new.new
-    # delegating method is +object_id+ which is defined in the superclass
-    checkDelegation(delegator, "class", delegator.class)
-  end
-  
-  def test_new_method
-    # delegator is an String
-    delegator = "Delegator2"
-    # delegating method is a new method which does not exist on String
-    checkDelegation(delegator, "artificialMethod", delegator.object_id, true)
-  end
-  
-  def test_const_missing
-    surroundingModule = Module.nesting.first
-    Util::MethodDelegation.registerDelegate(ConstPathElement, surroundingModule, "const_missing")
-    
-    assert_equal "SomeArbitraryConst", SomeArbitraryConst.to_s
-    assert_equal "AnotherConst::A::B::C", AnotherConst::A::B::C.to_s
-    
-    Util::MethodDelegation.unregisterDelegate(ConstPathElement, surroundingModule, "const_missing")
-    assert_raise NameError do 
-      SomeArbitraryConst
-    end
-  end
-  
-  def checkDelegation(delegator, method, originalResult, newMethod=false)
-    delegate1 = TestDelegate.new
-    delegate2 = TestDelegate.new
-    
-    Util::MethodDelegation.registerDelegate(delegate1, delegator, method)
-    Util::MethodDelegation.registerDelegate(delegate2, delegator, method)
-    
-    assert delegator.respond_to?(:_methodDelegates)
-    if newMethod
-      assert !delegator.respond_to?("#{method}_delegate_original".to_sym)
-    else
-      assert delegator.respond_to?("#{method}_delegate_original".to_sym)
-    end
-
-    # check delegator parameter    
-    delegate1.mode = :delegatorId
-    assert_equal delegator.object_id, delegator.send(method)
-    
-    delegate1.callcount = 0
-    delegate2.callcount = 0
-    
-    delegate1.mode = :return7
-    # delegate1 returns a value
-    assert_equal 7, delegator.send(method)
-    assert_equal 1, delegate1.callcount
-    # delegate2 is not called
-    assert_equal 0, delegate2.callcount
-    
-    delegate1.mode = :nothing
-    # delegate1 just exits and thus returns nil
-    assert_equal nil, delegator.send(method)
-    assert_equal 2, delegate1.callcount
-    # delegate2 is not called
-    assert_equal 0, delegate2.callcount
-    
-    delegate1.mode = :continue
-    delegate2.mode = :return7
-    # delegate1 is called but continues
-    # delegate2 returns a value
-    assert_equal 7, delegator.send(method)
-    assert_equal 3, delegate1.callcount
-    assert_equal 1, delegate2.callcount
-    
-    delegate1.mode = :continue
-    delegate2.mode = :continue
-    # both delegates continue, the original method returns its value
-    checkCallOriginal(delegator, method, originalResult, newMethod)
-    # both delegates are called though
-    assert_equal 4, delegate1.callcount
-    assert_equal 2, delegate2.callcount
-    
-    # calling unregister with a non existing method has no effect
-    Util::MethodDelegation.unregisterDelegate(delegate1, delegator, "xxx")
-    Util::MethodDelegation.unregisterDelegate(delegate1, delegator, method)
-    
-    checkCallOriginal(delegator, method, originalResult, newMethod)
-    # delegate1 not called any more
-    assert_equal 4, delegate1.callcount
-    # delegate2 is still called
-    assert_equal 3, delegate2.callcount
-    
-    Util::MethodDelegation.unregisterDelegate(delegate2, delegator, method)
-    
-    checkCallOriginal(delegator, method, originalResult, newMethod)
-    # both delegates not called any more
-    assert_equal 4, delegate1.callcount
-    assert_equal 3, delegate2.callcount
-    
-    # after all delegates were unregistered, singleton class should be clean
-    assert !delegator.respond_to?(:_methodDelegates)
-  end  
-  
-  def checkCallOriginal(delegator, method, originalResult, newMethod)
-    if newMethod
-      assert_raise NoMethodError do
-        result = delegator.send(method)
-      end
-    else
-      result = delegator.send(method)
-      assert_equal originalResult, result
-    end
-  end
-end