puppet-retrospec 1.5.0 → 1.6.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 56ddee7e316cf7e2074a1f6ca6cdc34561baaa31
-  data.tar.gz: 7bc02f19562beb2981babe6bd17949b51901f942
+  metadata.gz: 4224baa0aa258511ae8bc9bae2bc0c2cd4acbe51
+  data.tar.gz: fafff7c4eb4efb843198521e3b6370745844b4ee
 SHA512:
-  metadata.gz: 79f92a3078d2456d98fa5be550700b9d4001862340ded0cf610ec1192c9e7613153f3099e229bb232d66390cc353d1d6de3f983d5df784c39fd5f507c686ad2b
-  data.tar.gz: c9acb7246d9bbecaa52e851333678f0e25a76fdb3ece6d2751e8bd2b418775ddcddcebc28c3a06b8830cb23c2e13226072ae03481f3499d1be3d909547c40564
+  metadata.gz: 4a72c6e609e917b2aac4689a7e4351e1b187d5bf82df550667bc97c174d2fe7823dd8cfea32cdfc0e201155324f0ea33655d0141ea6709916c088a27a0f6f58d
+  data.tar.gz: c8fb49ce6e89aaebfbf850ea33be40e684833759217bfc4b1322c0bb2f6906657c2005c625b7cea225b0f8f72bb5c6c351c1ad49523f00990cd774e4390a099a

data/.gitignore

@@ -1,4 +1,5 @@
 # rcov generated
+spec/fixtures/fixture_modules/**/spec/
 bundle/
 vendor/gems/puppet-4.4.1-universal-darwin/
 *.swp

data/.gitlab-ci.yml

@@ -10,7 +10,7 @@ image: ruby:2.1
 ruby193:
   stage: test
   tags:
-    - ruby2.2
+    - ruby
   script:
     - "bundle exec rake spec"
   image: ruby:1.9.3
@@ -19,7 +19,7 @@ ruby193:
 ruby2.0:
   stage: test
   tags:
-    - ruby2.2
+    - ruby
   script:
     - "bundle exec rake spec"
   image: ruby:2.0
@@ -27,7 +27,7 @@ ruby2.0:
 ruby2.1:
   stage: test
   tags:
-    - ruby2.2
+    - ruby
   script:
     - "bundle exec rake spec"
   image: ruby:2.1
@@ -35,7 +35,7 @@ ruby2.1:
 ruby2.2:
   stage: test
   tags:
-    - ruby2.2
+    - ruby
   script:
     - "bundle exec rake spec"
   image: ruby:2.2
@@ -43,7 +43,7 @@ ruby2.2:
 ruby2.3:
   stage: test
   tags:
-    - ruby2.2
+    - ruby
   script:
     - "bundle exec rake spec"
   image: ruby:2.3
@@ -60,7 +60,7 @@ rubocop_ruby:
   only:
     - branches
   tags:
-    - ruby2.2
+    - ruby
   script:
     - bundle install
     - bundle exec rubocop -D
@@ -69,7 +69,7 @@ bump_and_tag:
   type: release
   when: manual
   tags:
-    - ruby2.2
+    - ruby
   only:
     - master@nwops/puppet-retrospec
   script:
@@ -78,7 +78,7 @@ bump_and_tag:
 
 production:
   tags:
-    - ruby2.2
+    - ruby
   before_script:
     - gem install dpl
   type: deploy

data/.overcommit.yml

@@ -15,10 +15,10 @@
 #
 # Uncomment the following lines to make the configuration take effect.
 
-PreCommit:
-  RuboCop:
-    enabled: true
-    on_warn: fail # Treat all warnings as failures
+#PreCommit:
+#  RuboCop:
+#    enabled: true
+#    on_warn: fail # Treat all warnings as failures
 #
 #  TrailingWhitespace:
 #    enabled: true

data/.rubocop_todo.yml

@@ -121,16 +121,16 @@ Lint/UselessAssignment:
 
 # Offense count: 30
 Metrics/AbcSize:
-  Max: 58
+  Max: 60
 
 # Offense count: 8
 # Configuration parameters: CountComments.
 Metrics/ClassLength:
-  Max: 341
+  Max: 345
 
 # Offense count: 4
 Metrics/CyclomaticComplexity:
-  Max: 17
+  Max: 18
 
 # Offense count: 35
 # Configuration parameters: AllowHeredoc, AllowURI, URISchemes.
@@ -141,7 +141,7 @@ Metrics/LineLength:
 # Offense count: 42
 # Configuration parameters: CountComments.
 Metrics/MethodLength:
-  Max: 67
+  Max: 70
 
 # Offense count: 5
 Metrics/PerceivedComplexity:

data/CHANGELOG.md

@@ -1,3 +1,17 @@
+# Retrospec Puppet Release Notes
+
+## Unreleased
+
+## 1.6.0
+ * Fixes #77 - class requirements is not coded correctly
+ * Fixes #75 - pdk cannot include retrospec due to character limit
+ * Fixes #80 - update vendored puppet gem to v4.10.x from 4.5.x
+ * Fixes #72 - create spec files that conform to rubocop [@b4ldr]
+ * Removes ci tags that pinned to ruby2.2 when testing
+ * Fixes #81 - pass correct git ref [@witjoh]
+ * Fixes #74 - parameters with a default value of arrays cause error
+ * Adds more documentation to methods
+ * Fixes timestamp bug when creating the gem in rubygems.org
 ## 1.5.0
  * Adds ability to generate bolt tasks for puppet modules
 ## 1.4.1

data/Gemfile

@@ -15,8 +15,9 @@ group :test do
   gem 'bundler', '~> 1.0'
   gem 'fakefs', :require => 'fakefs/safe'
   gem 'json_pure', '= 2.0.1' # force this gem as 2.0.2 requires ruby > 2.0.0
-  gem 'puppet', '4.5.2', :path => 'vendor/gems/puppet-4.5.2'
+  gem 'puppet', '4.10.8', :path => 'vendor/pup410'
   gem 'rake'
+  gem 'facter'
   gem 'rspec', '~> 3.2'
   gem 'rubocop'
   gem 'yard', '~> 0.7'

data/Gemfile.lock

@@ -1,24 +1,20 @@
 PATH
   remote: .
   specs:
-    puppet-retrospec (1.5.0)
+    puppet-retrospec (1.6.0)
       awesome_print
       facets
       retrospec (>= 0.6.2)
       trollop
 
 PATH
-  remote: vendor/gems/puppet-4.5.2
+  remote: vendor/pup410
   specs:
-    puppet (4.5.2)
-      facter (> 2.0, < 4)
-      hiera (>= 2.0, < 4)
-      json_pure
+    puppet (4.10.8)
 
 GEM
   remote: http://rubygems.org/
   specs:
-    CFPropertyList (2.2.8)
     ast (2.3.0)
     awesome_print (1.7.0)
     childprocess (0.5.9)
@@ -27,10 +23,8 @@ GEM
     diff-lcs (1.2.5)
     facets (3.1.0)
     facter (2.4.6)
-      CFPropertyList (~> 2.2.6)
     fakefs (0.9.1)
     ffi (1.9.18)
-    hiera (3.2.1)
     iniparse (1.4.2)
     json (1.8.3)
     json_pure (2.0.1)
@@ -83,11 +77,12 @@ DEPENDENCIES
   awesome_print
   bundler (~> 1.0)
   facets
+  facter
   fakefs
   json_pure (= 2.0.1)
   overcommit
   pry
-  puppet (= 4.5.2)!
+  puppet (= 4.10.8)!
   puppet-retrospec!
   rake
   rdoc (~> 3.12)

data/README.md

@@ -12,6 +12,8 @@ The project was named retrospec because there are many times when you need to re
 
 If you like this project, star it and tell people!
 
+See the [Website](https://www.puppet-retrospec.com)
+
 Table of Contents
 =================
 
@@ -63,11 +65,11 @@ Adds ability to create module data.  With the release of puppet 4.9 we can now u
 Use the module_data generater to auto setup module data in your puppet module.  `retrospec puppet module_data`
 
 ### 4/20/17
-With all the changes in hiera recently and the ability to provide data in puppet modules.  I thought it would be a good 
+With all the changes in hiera recently and the ability to provide data in puppet modules.  I thought it would be a good
 time to create a generator for retrospec to create hiera backends and data in module scaffolding. With the 1.6.0 release
 you are now a simple step away to retrofitting data into your module.
 
-Just run `retrospec puppet module_data` to auto create the scaffolding. 
+Just run `retrospec puppet module_data` to auto create the scaffolding.
 
 Note: You must be using puppet 4.7+ (PE 2016.4.x) to actually use data in a module, but there is nothing stopping
 you from creating the scaffolding.
@@ -116,7 +118,7 @@ puppet
   -a, --available-plugins       Show an online list of available plugins
   -v, --version                 Print version and exit
   -h, --help                    Show this message
-  
+
 ```
 ### Module Path
 By default the module path is dynamically set based on the current directory.
@@ -344,24 +346,6 @@ describe 'apache' do
       #:default_ssl_crl_path => undef,
       #:default_ssl_crl => undef,
       #:service_enable => true,
-      #:purge_configs => true,
-      #:purge_vdir => false,
-      #:serveradmin => "root@localhost",
-      #:sendfile => false,
-      #:error_documents => false,
-      #:httpd_dir => $apache::params::httpd_dir,
-      #:confd_dir => $apache::params::confd_dir,
-      #:vhost_dir => $apache::params::vhost_dir,
-      #:vhost_enable_dir => $apache::params::vhost_enable_dir,
-      #:mod_dir => $apache::params::mod_dir,
-      #:mod_enable_dir => $apache::params::mod_enable_dir,
-      #:mpm_module => $apache::params::mpm_module,
-      #:conf_template => $apache::params::conf_template,
-      #:servername => $apache::params::servername,
-      #:user => $apache::params::user,
-      #:group => $apache::params::group,
-      #:keepalive => $apache::params::keepalive,
-      #:keepalive_timeout => $apache::params::keepalive_timeout,
       #:logroot => $apache::params::logroot,
       #:ports_file => $apache::params::ports_file,
       #:server_tokens => "OS",
@@ -423,53 +407,6 @@ describe 'apache' do
              with({"creates"=>"$apache::params::mod_dir",
                    "require"=>"Package[httpd]"})
   end
-  it do
-    is_expected.to contain_file('$apache::params::mod_dir').
-             with({"ensure"=>"directory",
-                   "recurse"=>"true",
-                   "purge"=>"true",
-                   "notify"=>"Class[Apache::Service]",
-                   "require"=>"Package[httpd]"})
-  end
-  it do
-    is_expected.to contain_exec('mkdir $apache::params::mod_enable_dir').
-             with({"creates"=>"$apache::params::mod_enable_dir",
-                   "require"=>"Package[httpd]"})
-  end
-  it do
-    is_expected.to contain_file('$apache::params::mod_enable_dir').
-             with({"ensure"=>"directory",
-                   "recurse"=>"true",
-                   "purge"=>"true",
-                   "notify"=>"Class[Apache::Service]",
-                   "require"=>"Package[httpd]"})
-  end
-  it do
-    is_expected.to contain_exec('mkdir $apache::params::vhost_dir').
-             with({"creates"=>"$apache::params::vhost_dir",
-                   "require"=>"Package[httpd]"})
-  end
-  it do
-    is_expected.to contain_file('$apache::params::vhost_dir').
-             with({"ensure"=>"directory",
-                   "recurse"=>"true",
-                   "purge"=>"true",
-                   "notify"=>"Class[Apache::Service]",
-                   "require"=>"Package[httpd]"})
-  end
-  it do
-    is_expected.to contain_exec('mkdir $vhost_load_dir').
-             with({"creates"=>"$vhost_load_dir",
-                   "require"=>"Package[httpd]"})
-  end
-  it do
-    is_expected.to contain_file('$apache::params::vhost_enable_dir').
-             with({"ensure"=>"directory",
-                   "recurse"=>"true",
-                   "purge"=>"true",
-                   "notify"=>"Class[Apache::Service]",
-                   "require"=>"Package[httpd]"})
-  end
   it do
     is_expected.to contain_file('$apache::params::conf_dir/$apache::params::conf_file').
              with({"ensure"=>"file",
@@ -518,7 +455,8 @@ There may be a time when you want to override the default templates used to gene
 
 ### Environment variables to set template defaults
 RETROSPEC_PUPPET_SCM_URL  # set this to auto set your scm url to the templates
-RETROSPEC_PUPPET_SCM_BRANCH # set this to auto checkout a particular branch (only works upon initial checkout)
+RETROSPEC_PUPPET_SCM_REF (from version 1.6.0)  # set this to auto checkout a particular branch (only works upon initial checkout)
+RETROSPEC_PUPPET_SCM_BRANCH :same as RETROSPEC_PUPPET_SCM_REF. Use this in version before 1.6.0. As of this version, RETROSPEC_PUPPET_SCM_REF takes precedence.
 
 After running retrospec, retrospec will clone the templates from the default template url or from whatever you set to the templates path.  If you have already created the erb file in the templates location, then retrospec will not overwrite the file as there will be a SCM conflict. You can use multiple template paths if you use them for different projects so just be sure the set the correct template option when running retrospec.  `retrospec -t`
 

data/lib/retrospec-puppet.rb

@@ -1,4 +1,6 @@
 vendor = File.join(File.dirname(File.dirname(__FILE__)), 'vendor')
-$LOAD_PATH.unshift(File.expand_path(File.join([vendor, 'gems', 'puppet-4.5.2', 'lib'])))
+# pdk cannot load retrospec-puppet on windows due to 256 char limit
+# so we reduced the folder name to pup410
+$LOAD_PATH.unshift(File.expand_path(File.join([vendor, 'pup410', 'lib'])))
 require 'retrospec/plugins/v1/plugin/puppet'
 require 'awesome_print' # required for printing templates

data/lib/retrospec/plugins/v1/plugin/generators/serializers/rspec_dumper.rb

@@ -26,6 +26,32 @@ module Retrospec
         @logger
       end
 
+      # wraps Puppet::Pops::Model::TreeDumper.do_dump to return ruby 1.9 hash syntax
+      # instead of the older < 1.9 syntax
+      #
+      # == Parameters:
+      # d::
+      #   A puppet object to dump
+      #
+      # == Return:
+      #   An array of representing the puppet object in ruby syntax
+      #
+      def dump_transform(d)
+        # This is a bit messy, ideally need to send a patch upstream to puppet
+        # https://github.com/puppetlabs/puppet/blob/master/lib/puppet/pops/visitor.rb#L34
+        # The value we get back from puppet do_dump command dumps ruby hashs using the old
+        # ruby syntax e.g. { "key" => "value" }.  this function munges the output to use
+        # the new format e.g. { key: 'value' }
+        dump = do_dump(d)
+        if dump.kind_of?(Array) and dump[1] == :"=>"
+          key = dump[0].tr('"','')
+          value = dump[-1].tr('"','\'')
+          [ "#{key}:", value ]
+        else
+          dump
+        end
+      end
+
       def lookup_var(key)
         # if exists, return value
         # if it doesn't exist, store and return key
@@ -79,7 +105,7 @@ module Retrospec
       end
 
       def dump_Array o
-        o.collect {|e| do_dump(e) }
+        o.collect {|e| dump_transform(e) }
       end
 
       def indent
@@ -109,7 +135,11 @@ module Retrospec
         when :indent
           @indent_count += 1
         when :dedent
-          @indent_count -= 1
+          if @indent_count == 0
+            logger.warn('tried dedent when indent_count is already 0')
+          else
+            @indent_count -= 1
+          end
         when :do
           result << format_r([' ', x.to_s, :indent, :break])
         when :indent_end
@@ -133,13 +163,13 @@ module Retrospec
         result << ['let(:title)', :do, 'XXreplace_meXX'.inspect, :break, :end]
         result << [:dedent, :break]
         result << [:indent, :break,'let(:params)', :do, '{', :break]
-        result << o.parameters.collect {|k| do_dump(k)}
+        result << o.parameters.collect {|k| dump_transform(k)}
         result << ['}', :end]
         # result << ["inherits", o.parent_class] if o.parent_class
         # we need to process the body so that we can relize which facts are used
         body_result = []
         if o.body
-          body_result << [:break, do_dump(o.body)]
+          body_result << [:break, dump_transform(o.body)]
         else
           body_result << []
         end
@@ -161,7 +191,7 @@ module Retrospec
       def dump_top_scope_vars
         result = []
         top_scope_vars.sort.each do |k, v|
-          result << ['  ',k.gsub('$::', '').inspect, '=>',v[:value].inspect + ',', :break ]
+          result << ['  ',k.gsub('$::', ''), ':' ,v[:value].inspect + ',', :break ]
         end
         result
       end
@@ -169,13 +199,13 @@ module Retrospec
       def dump_HostClassDefinition o
         result = ["describe #{o.name.inspect}", :do]
         result << ['let(:params)', :do, '{', :break]
-        result << o.parameters.collect {|k| do_dump(k)}
+        result << o.parameters.collect {|k| dump_transform(k)}
         result << ['}', :end]
         # result << ["inherits", o.parent_class] if o.parent_class
         # we need to process the body so that we can relize which facts are used
         body_result = []
         if o.body
-          body_result << [do_dump(o.body)]
+          body_result << [dump_transform(o.body)]
         else
           body_result << []
         end
@@ -191,9 +221,9 @@ module Retrospec
       def dump_Parameter o
         name_prefix = o.captures_rest ? '*' : ''
         name_part = "#{name_prefix}#{o.name}"
-        data_type = do_dump(do_dump(o.value)).first || do_dump(o.type_expr)
+        data_type = dump_transform(dump_transform(o.value)).first || dump_transform(o.type_expr)
         # records what is most likely a variable of some time and its value
-        variable_value = do_dump(o.value)
+        variable_value = dump_transform(o.value)
         # need a case for Puppet::Pops::Model::LambdaExpression
         if o.eContainer.class == ::Puppet::Pops::Model::LambdaExpression
           add_var_to_store("#{name_part}", variable_value, false, :lambda_scope)
@@ -211,9 +241,9 @@ module Retrospec
           value = {:type => data_type, :name => name_part, :default_value => '', :required => true}
         end
         if value[:required]
-          ['  ', "#{value[:name].to_sym.inspect}", '=>', 'nil,', :break]
+          ['  ', "#{value[:name]}:", 'nil,', :break]
         else
-          ['  ', "##{value[:name].to_sym.inspect}", '=>', value[:default_value].inspect + ',', :break]
+          ['  ', "# #{value[:name]}:", value[:default_value].inspect + ',', :break]
         end
       end
 
@@ -226,13 +256,17 @@ module Retrospec
         if relationship.respond_to?(:left_expr)
           if relationship.left_expr.object_id == id
             type_name = dump(relationship.right_expr.type_name).capitalize
-            titles = relationship.right_expr.bodies.map{|b| dump(b.title)}
-            result << ['"that_comes_before"', '=>', "'#{type_name}#{titles}',".gsub("\"", '') ]
+            result += relationship.right_expr.bodies.map do |b|
+              title = dump(b.title)
+              [:break,".that_comes_before('#{type_name}[#{title}]')"]
+            end.flatten
           else
             if relationship.left_expr.respond_to?(:type_name)
               type_name = dump(relationship.left_expr.type_name).capitalize
-              titles = relationship.left_expr.bodies.map{|b| dump(b.title)}
-              result << ['"that_requires"', '=>', "'#{type_name}#{titles}',".gsub("\"", '')]
+              result += relationship.left_expr.bodies.map do |b|
+                title = dump(b.title)
+                [:break, ".that_requires('#{type_name}[#{title}]')"]
+              end.flatten
             end
           end
         end
@@ -240,25 +274,27 @@ module Retrospec
       end
 
       def dump_ResourceBody o
-        type_name = do_dump(o.eContainer.type_name).gsub('::', '__')
-        title = do_dump(o.title).inspect
+        type_name = dump_transform(o.eContainer.type_name).gsub('::', '__')
+        title = dump_transform(o.title).inspect
         #TODO remove the :: from the front of the title if exists
-        result = ['  ', :indent, :it, :do, :indent, "is_expected.to contain_#{type_name}(#{title})"]
+        result = ['  ', :indent, :it, :do, :indent, "is_expected.to contain_#{type_name}(#{title})".tr('"','\'')]
         # this determies if we should use the with() or not
         if o.operations.count > 0
-          result << [ :indent, :break,'.with({', :indent, :break]
+          result[-1] += '.with('
+          result << [:break]
           o.operations.each do |p|
-            result << do_dump(p) << :break
+            # this is a bit of a hack but the correct fix is to patch puppet
+            result << dump_transform(p) << :break
           end
-          #result.pop  # remove last line break which is easier than using conditional in loop
+          result.pop  # remove last line break which is easier than using conditional in loop
           unless [::Puppet::Pops::Model::CallNamedFunctionExpression, ::Puppet::Pops::Model::BlockExpression].include?(o.eContainer.eContainer.class)
             result << dump_Resource_Relationship(o)
           end
-          result << [:dedent, :dedent, '})', :dedent, :indent]
-          result << [:dedent,:end, :break]
+          result << [:dedent, :break, ')']
+          result << [:end]
           result << [:dedent]
         else
-          result << [:dedent,:dedent, :break,'end',:dedent, :break, '  ']
+          result << [:dedent,:dedent, :break,'end',:dedent, '  ']
         end
         result
       end
@@ -270,12 +306,12 @@ module Retrospec
 
       # Interpolated strings are shown as (cat seg0 seg1 ... segN)
       def dump_ConcatenatedString o
-        o.segments.collect {|x| do_dump(x)}.join
+        o.segments.collect {|x| dump_transform(x)}.join
       end
 
       # Interpolation (to string) shown as (str expr)
       def dump_TextExpression o
-        [do_dump(o.expr)]
+        [dump_transform(o.expr)]
       end
 
       # outputs the value of the variable
@@ -314,13 +350,13 @@ module Retrospec
           end
           result
         else
-          [o.operator.to_s, do_dump(o.left_expr), do_dump(o.right_expr)]
+          [o.operator.to_s, dump_transform(o.left_expr), dump_transform(o.right_expr)]
         end
       end
 
       def dump_BlockExpression o
         result = [:break]
-        o.statements.each {|x| result << do_dump(x) }
+        o.statements.each {|x| result << dump_transform(x) }
         result
       end
 
@@ -328,7 +364,7 @@ module Retrospec
       def dump_ResourceExpression o
         result = []
         o.bodies.each do |b|
-          result << :break << do_dump(b)
+          result << :break << dump_transform(b)
         end
         result
       end
@@ -336,19 +372,33 @@ module Retrospec
       # defines the resource expression and outputs -> when used
       # this would be the place to insert relationsip matchers
       def dump_RelationshipExpression o
-        [do_dump(o.left_expr), do_dump(o.right_expr)]
+        [dump_transform(o.left_expr), dump_transform(o.right_expr)]
       end
 
       # Produces (name => expr) or (name +> expr)
       def dump_AttributeOperation o
         key = o.attribute_name
-        value = do_dump(o.value_expr) || nil
+        value = dump_transform(o.value_expr) || nil
         [key.inspect, o.operator, value.inspect + ',']
       end
 
       # x[y] prints as (slice x y)
+      # @return [String] the value of the array expression
+      # @param [Puppet::Pops::Model::AccessExpression]
       def dump_AccessExpression o
-        "#{do_dump(o.left_expr).capitalize}" + do_dump(o.keys).to_s.gsub("\"",'')
+        # o.keys.pop is the item to get in the array
+        # o.left_expr is the array
+        if o.left_expr.is_a?(::Puppet::Pops::Model::QualifiedReference)
+          "#{dump_transform(o.left_expr).capitalize}" + dump_transform(o.keys).to_s.gsub("\"",'')
+        else
+          begin
+            arr = dump_transform(o.left_expr)
+            element_number = dump_transform(o.keys[0]).to_i
+            arr.at(element_number)
+          rescue NoMethodError => e
+            puts "Invalid access of array element, check array variables in your puppet code?".fatal
+          end
+        end
       end
 
       def dump_LiteralFloat o
@@ -373,11 +423,11 @@ module Retrospec
       end
 
       def dump_LiteralList o
-        o.values.collect {|x| do_dump(x)}
+        o.values.collect {|x| dump_transform(x)}
       end
 
       def dump_LiteralHash o
-        data = o.entries.collect {|x| do_dump(x)}
+        data = o.entries.collect {|x| dump_transform(x)}
         Hash[*data.flatten]
       end
 
@@ -410,11 +460,11 @@ module Retrospec
       end
 
       def dump_CapabilityMapping o
-        [o.kind, do_dump(o.component), o.capability, do_dump(o.mappings)]
+        [o.kind, dump_transform(o.component), o.capability, dump_transform(o.mappings)]
       end
 
       def dump_ParenthesizedExpression o
-        do_dump(o.expr)
+        dump_transform(o.expr)
       end
 
       # Hides that Program exists in the output (only its body is shown), the definitions are just