puppet 3.6.2 → 3.7.0

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

@@ -0,0 +1,26 @@
+$:.unshift File.dirname(__FILE__)
+
+require 'test/unit'
+
+require 'array_extensions_test'
+require 'ea_instantiator_test'
+require 'ecore_self_test'
+require 'environment_test'
+require 'metamodel_builder_test'
+require 'metamodel_roundtrip_test'
+require 'output_handler_test'
+require 'template_language_test'
+require 'transformer_test'
+require 'xml_instantiator_test'
+require 'ea_serializer_test'
+require 'model_builder_test'
+require 'method_delegation_test'
+require 'json_test'
+require 'reference_resolver_test'
+require 'qualified_name_resolver_test'
+require 'metamodel_order_test'
+require 'metamodel_from_ecore_test'
+require 'util_test'
+require 'model_fragment_test'
+require 'qualified_name_provider_test'
+

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

@@ -0,0 +1,163 @@
+$:.unshift File.join(File.dirname(__FILE__),"..","lib")
+
+require 'test/unit'
+require 'rgen/template_language'
+require 'rgen/metamodel_builder'
+
+class TemplateContainerTest < Test::Unit::TestCase
+  
+  TEMPLATES_DIR = File.dirname(__FILE__)+"/template_language_test/templates"
+  OUTPUT_DIR = File.dirname(__FILE__)+"/template_language_test"
+  
+  module MyMM
+    
+    class Chapter
+      attr_reader :title
+      def initialize(title)
+        @title = title
+      end
+    end
+    
+    class Document
+      attr_reader :title, :authors, :chapters
+      attr_accessor :sampleArray
+      def initialize(title)
+        @title = title
+        @chapters = []
+        @authors = []
+      end
+    end
+    
+    class Author
+      attr_reader :name, :email
+      def initialize(name, email)
+        @name, @email = name, email
+      end      
+    end
+    
+  end
+  
+  module CCodeMM
+    class CArray < RGen::MetamodelBuilder::MMBase
+      has_attr 'name'
+      has_attr 'size', Integer
+      has_attr 'type'
+    end
+    class PrimitiveInitValue < RGen::MetamodelBuilder::MMBase
+      has_attr 'value', Integer
+    end
+    CArray.has_many 'initvalue', PrimitiveInitValue
+  end
+  
+  TEST_MODEL = MyMM::Document.new("SomeDocument")
+  TEST_MODEL.authors << MyMM::Author.new("Martin", "martin@somewhe.re")
+  TEST_MODEL.authors << MyMM::Author.new("Otherguy", "other@somewhereel.se")
+  TEST_MODEL.chapters << MyMM::Chapter.new("Intro")
+  TEST_MODEL.chapters << MyMM::Chapter.new("MainPart")
+  TEST_MODEL.chapters << MyMM::Chapter.new("Summary")
+  TEST_MODEL.sampleArray = CCodeMM::CArray.new(:name => "myArray", :type => "int", :size => 5,
+    :initvalue => (1..5).collect { |v| CCodeMM::PrimitiveInitValue.new(:value => v) })
+  
+  def test_with_model
+    tc = RGen::TemplateLanguage::DirectoryTemplateContainer.new([MyMM, CCodeMM], OUTPUT_DIR)
+    tc.load(TEMPLATES_DIR)
+    File.delete(OUTPUT_DIR+"/testout.txt") if File.exists? OUTPUT_DIR+"/testout.txt"
+    tc.expand('root::Root', :for => TEST_MODEL, :indent => 1)
+    result = expected = ""
+    File.open(OUTPUT_DIR+"/testout.txt") {|f| result = f.read}
+	    File.open(OUTPUT_DIR+"/expected_result1.txt") {|f| expected = f.read}
+    assert_equal expected, result
+  end
+  
+  def test_immediate_result
+    tc = RGen::TemplateLanguage::DirectoryTemplateContainer.new([MyMM, CCodeMM], OUTPUT_DIR)
+    tc.load(TEMPLATES_DIR)
+    expected = ""
+    File.open(OUTPUT_DIR+"/expected_result2.txt","rb") {|f| expected = f.read}
+    assert_equal expected, tc.expand('code/array::ArrayDefinition', :for => TEST_MODEL.sampleArray).to_s
+  end
+  
+  def test_indent_string
+    tc = RGen::TemplateLanguage::DirectoryTemplateContainer.new([MyMM, CCodeMM], OUTPUT_DIR)
+    tc.load(TEMPLATES_DIR)
+    tc.indentString = "  "  # 2 spaces instead of 3 (default)
+    tc.expand('indent_string_test::IndentStringTest', :for => :dummy)
+    File.open(OUTPUT_DIR+"/indentStringTestDefaultIndent.out","rb") do |f|
+      assert_equal "  <- your default here\r\n", f.read
+    end
+    File.open(OUTPUT_DIR+"/indentStringTestTabIndent.out","rb") do |f|
+      assert_equal "\t<- tab\r\n", f.read
+    end
+  end
+  
+  def test_null_context
+    tc = RGen::TemplateLanguage::DirectoryTemplateContainer.new([MyMM, CCodeMM], OUTPUT_DIR)
+    tc.load(TEMPLATES_DIR)
+    assert_raise StandardError do 
+      # the template must raise an exception because it calls expand :for => nil
+      tc.expand('null_context_test::NullContextTestBad', :for => :dummy)
+    end
+    assert_raise StandardError do 
+      # the template must raise an exception because it calls expand :foreach => nil
+      tc.expand('null_context_test::NullContextTestBad2', :for => :dummy)
+    end
+    assert_nothing_raised do
+      tc.expand('null_context_test::NullContextTestOk', :for => :dummy)
+    end
+  end
+  
+  def test_no_indent
+    tc = RGen::TemplateLanguage::DirectoryTemplateContainer.new([MyMM, CCodeMM], OUTPUT_DIR)
+    tc.load(TEMPLATES_DIR)
+    assert_equal "   xxx<---\r\n   xxx<---\r\n   xxx<---\r\n   xxx<---\r\n", tc.expand('no_indent_test/test::Test', :for => :dummy)
+  end
+  
+  def test_no_indent2
+    tc = RGen::TemplateLanguage::DirectoryTemplateContainer.new([MyMM, CCodeMM], OUTPUT_DIR)
+    tc.load(TEMPLATES_DIR)
+    assert_equal "      return xxxx;\r\n", tc.expand("no_indent_test/test2::Test", :for => :dummy)
+  end
+  
+  def test_no_indent3
+    tc = RGen::TemplateLanguage::DirectoryTemplateContainer.new([MyMM, CCodeMM], OUTPUT_DIR)
+    tc.load(TEMPLATES_DIR)
+    assert_equal "   l1<---\r\n   l2\r\n\r\n", tc.expand("no_indent_test/test3::Test", :for => :dummy)
+  end
+  
+  def test_template_resolution
+    tc = RGen::TemplateLanguage::DirectoryTemplateContainer.new([MyMM, CCodeMM], OUTPUT_DIR)
+    tc.load(TEMPLATES_DIR)
+    assert_equal "Sub1\r\nSub1 in sub1\r\n", tc.expand('template_resolution_test/test::Test', :for => :dummy)
+    assert_equal "Sub1\r\nSub1\r\nSub1 in sub1\r\n", tc.expand('template_resolution_test/sub1::Test', :for => :dummy)
+  end
+  
+  def test_evaluate
+    tc = RGen::TemplateLanguage::DirectoryTemplateContainer.new([MyMM, CCodeMM], OUTPUT_DIR)
+    tc.load(TEMPLATES_DIR)
+    assert_equal "xx1xxxx2xxxx3xxxx4xx\r\n", tc.expand('evaluate_test/test::Test', :for => :dummy)
+  end
+  
+  def test_define_local
+    tc = RGen::TemplateLanguage::DirectoryTemplateContainer.new([MyMM, CCodeMM], OUTPUT_DIR)
+    tc.load(TEMPLATES_DIR)
+    assert_equal "Local1\r\n", tc.expand('define_local_test/test::Test', :for => :dummy)
+    assert_raise StandardError do
+      tc.expand('define_local_test/test::TestForbidden', :for => :dummy)
+    end
+  end
+
+  def test_no_backslash_r
+    tc = RGen::TemplateLanguage::DirectoryTemplateContainer.new([MyMM, CCodeMM], OUTPUT_DIR)
+    tc.load(TEMPLATES_DIR)
+    expected = ""
+    File.open(OUTPUT_DIR+"/expected_result3.txt") {|f| expected = f.read}
+    assert_equal expected, tc.expand('no_backslash_r_test::Test', :for => :dummy).to_s
+  end
+
+  def test_callback_indent
+    tc = RGen::TemplateLanguage::DirectoryTemplateContainer.new([MyMM, CCodeMM], OUTPUT_DIR)
+    tc.load(TEMPLATES_DIR)
+    assert_equal("|before callback\r\n   |in callback\r\n|after callback\r\n   |after iinc\r\n",
+     tc.expand('callback_indent_test/a::caller', :for => :dummy))
+  end
+end

data/lib/puppet/vendor/rgen/test/template_language_test/expected_result1.txt

@@ -0,0 +1,29 @@
+   Document: SomeDocument
+
+      by Martin, EMail: martin(at)somewhe.re and Otherguy, EMail: other(at)somewhereel.se
+
+   Index:
+      1 Intro in SomeDocument
+      2 MainPart in SomeDocument
+      3 Summary in SomeDocument
+
+   ----------------
+
+   Chapters in one line:
+   *** Intro ***, *** MainPart ***, *** Summary ***
+
+   Chapters each in one line:
+   *** Intro ***,
+   *** MainPart ***,
+   *** Summary ***
+
+   Here are some code examples:
+   int myArray[5] = {
+      1,
+      2,
+      3,
+      4,
+      5
+   };
+   Text from Root
+   Text from Root

data/lib/puppet/vendor/rgen/test/template_language_test/expected_result2.txt

@@ -0,0 +1,9 @@
+int myArray[5] = {
+   1,
+   2,
+   3,
+   4,
+   5
+};
+Text from Root
+Text from Root

data/lib/puppet/vendor/rgen/test/template_language_test/expected_result3.txt

@@ -0,0 +1,4 @@
+This file was created on Linux and does not contain \r before \n
+The next blank line is done by the "nl" command which shall only add a \n, no \r:
+
+END

data/lib/puppet/vendor/rgen/test/template_language_test/indentStringTestDefaultIndent.out

@@ -0,0 +1 @@
+  <- your default here

data/lib/puppet/vendor/rgen/test/template_language_test/indentStringTestTabIndent.out

@@ -0,0 +1 @@
+	<- tab

data/lib/puppet/vendor/rgen/test/template_language_test/templates/callback_indent_test/a.tpl

@@ -0,0 +1,12 @@
+<% define 'caller', :for => Object do %>
+  |before callback
+  <% expand 'b::do_callback' %>
+  |after callback
+  <%iinc%>
+  |after iinc
+<% end %>
+
+<% define 'callback', :for => Object do %>
+  |in callback
+<% end %>
+

data/lib/puppet/vendor/rgen/test/template_language_test/templates/callback_indent_test/b.tpl

@@ -0,0 +1,5 @@
+<% define 'do_callback', :for => Object do %>
+  <%iinc%>
+  <% expand 'a::callback' %>
+  <%idec%> 
+<% end %>

data/lib/puppet/vendor/rgen/test/template_language_test/templates/code/array.tpl

@@ -0,0 +1,11 @@
+<% define 'ArrayDefinition', :for => CArray do %>
+  <%= getType %> <%= name %>[<%= size %>] = {<%iinc%>
+    <% expand 'InitValue', :foreach => initvalue, :separator => ",\r\n" %><%nl%><%idec%>
+  };
+  <% expand '../root::TextFromRoot' %>
+  <% expand '/root::TextFromRoot' %>
+<% end %>
+
+<% define 'InitValue', :for => PrimitiveInitValue do %>
+  <%= value %><%nows%>
+<% end %>

data/lib/puppet/vendor/rgen/test/template_language_test/templates/content/author.tpl

@@ -0,0 +1,7 @@
+<% define 'Author', :for => Author do %>
+	<% expand 'SubAuthor' %>
+<% end %>
+
+<% define 'SubAuthor', :for => Author do %>
+	<%= name %>, EMail: <%= email.sub('@','(at)') %><%nows%>
+<% end %>

data/lib/puppet/vendor/rgen/test/template_language_test/templates/content/chapter.tpl

@@ -0,0 +1,5 @@
+<% define 'Root', :for => Chapter do %>
+ *** <%= title %> ***<%nows%>
+ 
+
+<% end %>

data/lib/puppet/vendor/rgen/test/template_language_test/templates/define_local_test/local.tpl

@@ -0,0 +1,8 @@
+<% define 'CallLocal1', :for => Object do %>
+	<% expand 'Local1' %>
+<% end %>
+
+<% define_local 'Local1', :for => Object do %>
+	Local1
+<% end %>
+

data/lib/puppet/vendor/rgen/test/template_language_test/templates/define_local_test/test.tpl

@@ -0,0 +1,8 @@
+<% define 'Test', :for => Object do %>
+	<% expand 'local::CallLocal1' %>
+<% end %>
+
+<% define 'TestForbidden', :for => Object do %>
+	<% expand 'local::Local1' %>
+<% end %>
+	

data/lib/puppet/vendor/rgen/test/template_language_test/templates/evaluate_test/test.tpl

@@ -0,0 +1,7 @@
+<% define 'Test', :for => Object do %>
+	<%= [1,2,3,4].collect{|n| evaluate 'Eval', :for => n}.join %>
+<% end %>
+
+<% define 'Eval', :for => Object do %>
+	xx<%= this %>xx<%nows%>
+<% end %>

data/lib/puppet/vendor/rgen/test/template_language_test/templates/indent_string_test.tpl

@@ -0,0 +1,12 @@
+<% define 'IndentStringTest', :for => Object do %>
+	<% file 'indentStringTestDefaultIndent.out' do %>
+		<%iinc%>
+		<- your default here
+		<%idec%>
+	<% end %>
+	<% file 'indentStringTestTabIndent.out', "\t" do %>
+		<%iinc%>
+		<- tab
+		<%idec%>
+	<% end %>
+<% end %>

data/lib/puppet/vendor/rgen/test/template_language_test/templates/index/c/cmod.tpl

@@ -0,0 +1 @@
+<% define 'cmod' do %>Module C is special !<% end %>

data/lib/puppet/vendor/rgen/test/template_language_test/templates/index/chapter.tpl

@@ -0,0 +1,3 @@
+<% define 'Root' do |idx, doc| %>
+	<%= idx%> <%= title %> in <%= doc.title %>
+<% end %>

data/lib/puppet/vendor/rgen/test/template_language_test/templates/no_backslash_r_test.tpl

@@ -0,0 +1,5 @@
+<% define 'Test', :for => Object do %>
+This file was created on Linux and does not contain \r before \n
+The next blank line is done by the "nl" command which shall only add a \n, no \r:
+<%nl%>END
+<% end %>

data/lib/puppet/vendor/rgen/test/template_language_test/templates/no_indent_test/no_indent.tpl

@@ -0,0 +1,3 @@
+<% define 'NoIndent', :for => Object do %>
+	<---<%nows%>
+<% end %>

data/lib/puppet/vendor/rgen/test/template_language_test/templates/no_indent_test/sub1/no_indent.tpl

@@ -0,0 +1,3 @@
+<% define 'NoIndent', :for => Object do %>
+	<---<%nows%>
+<% end %>

data/lib/puppet/vendor/rgen/test/template_language_test/templates/no_indent_test/test.tpl

@@ -0,0 +1,24 @@
+<% define 'Test', :for => Object do %>
+	<%iinc%>
+	xxx<% expand 'NoIndent1' %>
+	xxx<% expand 'NoIndent2' %>
+	xxx<% expand 'NoIndent3' %>
+	xxx<% expand 'NoIndent4' %>
+	<%idec%>
+<% end %>
+
+<% define 'NoIndent1', :for => Object do %>
+	<---<%nows%>
+<% end %>
+
+<% define 'NoIndent2', :for => Object do %>
+	<% expand 'NoIndent1' %>
+<% end %>
+
+<% define 'NoIndent3', :for => Object do %>
+	<% expand 'no_indent::NoIndent' %>
+<% end %>
+
+<% define 'NoIndent4', :for => Object do %>
+	<% expand 'sub1/no_indent::NoIndent' %>
+<% end %>

data/lib/puppet/vendor/rgen/test/template_language_test/templates/no_indent_test/test2.tpl

@@ -0,0 +1,13 @@
+<% define 'Test', :for => Object do %>
+<%iinc%><%iinc%>
+return <% expand 'Call1' %>;
+<%idec%><%idec%>
+<% end %>
+
+<% define 'Call1', :for => Object do %>
+	x<% expand 'Call2' %><%nows%>
+<% end %>
+
+<% define 'Call2', :for => Object do %>
+	xxx<%nows%>
+<% end %>

data/lib/puppet/vendor/rgen/test/template_language_test/templates/no_indent_test/test3.tpl

@@ -0,0 +1,10 @@
+<% define 'Test', :for => Object do %>
+<%iinc%>
+	l1<% expand 'Call1' %>
+<%idec%>
+<% end %>
+
+<% define 'Call1', :for => Object do %>
+	<---
+	l2
+<% end %>

data/lib/puppet/vendor/rgen/test/template_language_test/templates/null_context_test.tpl

@@ -0,0 +1,17 @@
+<% define 'NullContextTestBad', :for => Object do %>
+	<%# this must raise an exception %>
+	<% expand 'Callee', :for => nil %>
+<% end %>
+
+<% define 'NullContextTestBad2', :for => Object do %>
+	<%# this must raise an exception %>
+	<% expand 'Callee', :foreach => nil %>
+<% end %>
+
+<% define 'NullContextTestOk', :for => Object do %>
+	<%# however this is ok %>
+	<% expand 'Callee' %>
+<% end %>
+
+<% define 'Callee', :for => Object do %>
+<% end %>

data/lib/puppet/vendor/rgen/test/template_language_test/templates/root.tpl

@@ -0,0 +1,31 @@
+<% define 'Root' do %>
+	<% file 'testout.txt' do %>
+		Document: <%= title %>
+		<%nl%>
+		<%iinc%>
+		by <% expand 'content/author::Author', :foreach => authors, :separator => ' and ' %>
+		<%idec%>
+		<%nl%>
+		Index:<%iinc%>
+		<% for c in chapters %>
+			<% nr = (nr || 0); nr += 1 %>
+			<% expand 'index/chapter::Root', nr, this, :for => c %>
+		<% end %><%idec%>
+		<%nl%>
+		----------------
+		<%nl%>
+		Chapters in one line:
+		<% expand 'content/chapter::Root', :foreach => chapters, :separator => ", " %><%nl%>
+		<%nl%>
+		Chapters each in one line:
+		<% expand 'content/chapter::Root', :foreach => chapters, :separator => ",\r\n" %><%nl%>
+		<%nl%>
+		Here are some code examples:
+		<% expand 'code/array::ArrayDefinition', :for => sampleArray %>
+	<% end %>
+<% end %>
+
+<% define 'TextFromRoot' do %>
+	Text from Root
+<% end %>
+