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
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
#! /usr/bin/env ruby
require 'spec_helper'
require 'puppet/pops'
# relative to this spec file (./) does not work as this file is loaded by rspec
require File.join(File.dirname(__FILE__), '/transformer_rspec_helper')
describe "transformation to Puppet AST for function calls" do
include TransformerRspecHelper
context "When transforming calls as statements" do
context "in top level scope" do
it "foo()" do
astdump(parse("foo()")).should == "(invoke foo)"
end
it "notice bar" do
astdump(parse("notice bar")).should == "(invoke notice bar)"
end
end
context "in nested scopes" do
it "if true { foo() }" do
astdump(parse("if true {foo()}")).should == "(if true\n (then (invoke foo)))"
end
it "if true { notice bar}" do
astdump(parse("if true {notice bar}")).should == "(if true\n (then (invoke notice bar)))"
end
end
context "in general" do
{
"require bar" => '(invoke require bar)',
"realize bar" => '(invoke realize bar)',
"contain bar" => '(invoke contain bar)',
"include bar" => '(invoke include bar)',
"tag bar" => '(invoke tag bar)',
"info bar" => '(invoke info bar)',
"notice bar" => '(invoke notice bar)',
"error bar" => '(invoke error bar)',
"warning bar" => '(invoke warning bar)',
"debug bar" => '(invoke debug bar)',
"fail bar" => '(invoke fail bar)',
"notice {a => 1}" => "(invoke notice ({} ('a' 1)))",
"notice 1,2,3" => "(invoke notice 1 2 3)",
"notice(1,2,3)" => "(invoke notice 1 2 3)",
}.each do |source, result|
it "should transform #{source} to #{result}" do
astdump(parse(source)).should == result
end
end
{
"foo bar" => '(block foo bar)',
"tag" => 'tag',
}.each do |source, result|
it "should not transform #{source}, and instead produce #{result}" do
astdump(parse(source)).should == result
end
end
end
end
context "When transforming calls as expressions" do
it "$a = foo()" do
astdump(parse("$a = foo()")).should == "(= $a (call foo))"
end
it "$a = foo(bar)" do
astdump(parse("$a = foo()")).should == "(= $a (call foo))"
end
# For egrammar where a bare word can be a "statement"
it "$a = foo bar # assignment followed by bare word is ok in egrammar" do
astdump(parse("$a = foo bar")).should == "(block (= $a foo) bar)"
end
context "in nested scopes" do
it "if true { $a = foo() }" do
astdump(parse("if true { $a = foo()}")).should == "(if true\n (then (= $a (call foo))))"
end
it "if true { $a= foo(bar)}" do
astdump(parse("if true {$a = foo(bar)}")).should == "(if true\n (then (= $a (call foo bar))))"
end
end
end
context "When transforming method calls" do
it "$a.foo" do
astdump(parse("$a.foo")).should == "(call-method (. $a foo))"
end
it "$a.foo || { }" do
astdump(parse("$a.foo || { }")).should == "(call-method (. $a foo) (lambda ()))"
end
it "$a.foo ||{[]} # check transformation to block with empty array" do
astdump(parse("$a.foo || {[]}")).should == "(call-method (. $a foo) (lambda (block ([]))))"
end
it "$a.foo |$x| { }" do
astdump(parse("$a.foo |$x| { }")).should == "(call-method (. $a foo) (lambda (parameters x) ()))"
end
it "$a.foo |$x| { $b = $x}" do
astdump(parse("$a.foo |$x| { $b = $x}")).should ==
"(call-method (. $a foo) (lambda (parameters x) (block (= $b $x))))"
end
end
end
|
