1 files changed, 35 insertions, 0 deletions
diff --git a/lib/puppet/parser/functions/kwalify.rb b/lib/puppet/parser/functions/kwalify.rb
new file mode 100644
index 0000000..7238f84
--- /dev/null
+++ b/lib/puppet/parser/functions/kwalify.rb
@@ -0,0 +1,35 @@
+#
+# kwalify.rb
+#
+
+require 'kwalify'
+
+module Puppet::Parser::Functions
+  newfunction(:kwalify, :type => :statement, :doc => <<-EOS
+This function uses kwalify to validate Puppet data structures against Kwalify
+schemas.
+    EOS
+  ) do |args|
+
+    raise(Puppet::ParseError, "kwalify(): Wrong number of arguments " +
+      "given (#{args.size} for 2)") if args.size != 2
+
+    schema = args[0]
+    document = args[1]
+
+    validator = Kwalify::Validator.new(schema)
+
+    errors = validator.validate(document)
+
+    if errors && !errors.empty?
+      error_out = []
+      for e in errors
+        error_out << "[#{e.path}] #{e.message}"
+      end
+      raise(Puppet::ParseError, "Failed kwalify schema validation:\n" + error_out.join("\n"))
+    end
+
+  end
+end
+
+# vim: set ts=2 sw=2 et :