Accept UnaryMinusExpression as class parameter type

Previously, class parameters of the form `Integer[-1] $param` would fail
compilation, because the value `-1` was lexed as a UnaryMinusExpression
containing a LiteralInteger. And since the LiteralEvaluator didn't implement the
`literal_UnaryMinusExpression` method, the visitor called `literal_XXX` for each
ancestor class, until reaching `literal_Object`, which always raises.

This adds the `literal_UnaryMinusExpression` method and returns -1 times
the expression it wraps. This is similar to how the TypeParser interprets
UnaryMinusExpressions[1].

[1] https://github.com/puppetlabs/puppet/blob/8.5.0/lib/puppet/pops/types/type_parser.rb#L161

Author: joshcooper

lib/puppet/pops/evaluator/literal_evaluator.rb

@@ -70,6 +70,10 @@ def literal_QualifiedReference(o)
     o.value
   end
 
+  def literal_UnaryMinusExpression(o)
+    -literal(o.expr)
+  end
+
   def literal_AccessExpression(o)
     # to prevent parameters with [[]] like Optional[[String]]
     throw :not_literal if o.keys.size == 1 && o.keys[0].is_a?(Model::LiteralList)

spec/unit/pops/evaluator/literal_evaluator_spec.rb

@@ -17,6 +17,7 @@
     'a'       => 'a',
     'a::b'    => 'a::b',
     'Integer[1]' => [1],
+    'Integer[-1]' => [-1],
     'File' => "file",
 
     # special values
@@ -37,7 +38,7 @@
     expect(leval.literal(parser.parse_string('undef'))).to be_nil
   end
 
-  ['1+1', '[1,2, 1+2]', '{a=>1+1}', '"x$y"', '"x${y}z"', 'Integer[1-3]', 'Optional[[String]]'].each do |source|
+  ['1+1', '[1,2, 1+2]', '{a=>1+1}', '"x$y"', '"x${y}z"', 'Integer[1-3]', 'Intger[-1-3]', 'Optional[[String]]'].each do |source|
     it "throws :not_literal for non literal expression '#{source}'" do
       expect{leval.literal(parser.parse_string(source))}.to throw_symbol(:not_literal)
     end