From e85862939e5024d4ecb5856af548429017363ba8 Mon Sep 17 00:00:00 2001
From: Steve Kemp <steve@steve.org.uk>
Date: Mon, 2 Mar 2015 12:23:19 +0000
Subject: Added named-test.

THis tests that a server is listening on :53.
---
 lib/custodian/protocoltest/named.rb | 100 ++++++++++++++++++++++++++++++++++++
 1 file changed, 100 insertions(+)
 create mode 100644 lib/custodian/protocoltest/named.rb

diff --git a/lib/custodian/protocoltest/named.rb b/lib/custodian/protocoltest/named.rb
new file mode 100644
index 0000000..94e214a
--- /dev/null
+++ b/lib/custodian/protocoltest/named.rb
@@ -0,0 +1,100 @@
+require 'custodian/protocoltest/tcp'
+
+
+#
+#  The dns-protocol test.
+#
+#  This object is instantiated if the parser sees a line such as:
+#
+###
+### foo.vm.bytemark.co.uk must run named otherwise 'dns-server failure'.
+###
+#
+#  The specification of the port is optional, and defaults to 53.
+#
+module Custodian
+
+  module ProtocolTest
+
+    class NamedTest < TCPTest
+
+
+      #
+      # Constructor
+      #
+      def initialize( line )
+
+        #
+        # Save the line
+        #
+        @line = line
+
+        #
+        # Save the host
+        #
+        @host  = line.split( /\s+/)[0]
+
+        #
+        # Is this test inverted?
+        #
+        if ( line =~ /must\s+not\s+run\s+/ )
+          @inverted = true
+        else
+          @inverted = false
+        end
+
+        #
+        # Save the port
+        #
+        if ( line =~ /on\s+([0-9]+)/ )
+          @port = $1.dup
+        else
+          @port = 53
+        end
+      end
+
+
+
+
+      #
+      # Allow this test to be serialized.
+      #
+      def to_s
+        @line
+      end
+
+
+
+
+      #
+      # Run the test.
+      #
+      def run_test
+
+        # reset the error, in case we were previously executed.
+        @error = nil
+
+        run_test_internal( @host, @port, nil, false )
+      end
+
+
+
+
+      #
+      # If the test fails then report the error.
+      #
+      def error
+        @error
+      end
+
+
+
+
+      register_test_type "named"
+
+
+
+
+    end
+  end
+end
-- 
cgit v1.2.1