Adding "fail" function, which will raise a ParseError if it is encountered.

git-svn-id: https://reductivelabs.com/svn/puppet/trunk@1322 980ebf18-57e1-0310-9a29-db15c13687c0

2 files changed, 24 insertions, 0 deletions

diff --git a/lib/puppet/parser/functions.rb b/lib/puppet/parser/functions.rb
index b60d94b0a..569d70c52 100644
--- a/lib/puppet/parser/functions.rb
+++ b/lib/puppet/parser/functions.rb
@@ -115,6 +115,11 @@ module Functions
 
         return retval
     end
+
+    newfunction(:fail, :statement) do |vals|
+        vals = vals.join(" ") if vals.is_a? Array
+        raise Puppet::ParseError, vals
+    end
 end
 end
 
diff --git a/test/language/functions.rb b/test/language/functions.rb
index e39e23df7..ca941c248 100755
--- a/test/language/functions.rb
+++ b/test/language/functions.rb
@@ -68,6 +68,25 @@ class TestLangFunctions < Test::Unit::TestCase
             assert_equal(retval, val, "'tagged' returned %s for %s" % [val, tag])
         end
     end
+
+    def test_failfunction
+        func = nil
+        assert_nothing_raised do
+            func = Puppet::Parser::AST::Function.new(
+                :name => "fail",
+                :ftype => :statement,
+                :arguments => AST::ASTArray.new(
+                    :children => [stringobj("this is a failure")]
+                )
+            )
+        end
+
+        scope = Puppet::Parser::Scope.new()
+        val = nil
+        assert_raise(Puppet::ParseError) do
+            val = func.evaluate(:scope => scope)
+        end
+    end
 end
 
 # $Id$