module view tsig test was added

deckard.py

@@ -104,6 +104,8 @@ def parse_entry(op, args, file_in):
             out.begin_section(args[0])
         elif op == 'RAW':
             out.begin_raw()
+        elif op == 'TSIG':
+            out.use_tsig(args)
         else:
             out.add_record(op, args)
     return out

pydnstest/scenario.py

@@ -2,6 +2,7 @@ import dns.message
 import dns.rrset
 import dns.rcode
 import dns.dnssec
+import dns.tsigkeyring
 import binascii
 import socket
 import os
@@ -166,6 +167,12 @@ class Entry:
             else:
                 raise Exception('bad section %s' % self.section)
 
+    def use_tsig(self,fields):
+        tsig_keyname = fields[0]
+        tsig_secret  = fields[1]
+        keyring = dns.tsigkeyring.from_text({tsig_keyname : tsig_secret})
+        self.message.use_tsig(keyring=keyring,keyname=tsig_keyname)
+
     def __rr_add(self, section, rr):
     	""" Merge record to existing RRSet, or append to given section. """
 
@@ -226,6 +233,7 @@ class Entry:
         return True
 
 
+
 class Range:
     """
     Range represents a set of scripted queries valid for given step range.

sets/resolver/module_view_tsig.rpl

+; config options
+	stub-addr: 1.2.3.4
+        feature-list: view=view:tsig('\8testkey1\0', policy.suffix(policy.DENY,{"\3com\0"}))
+        feature-list: view=view:tsig('\7testkey\0', policy.suffix(policy.FORWARD('1.2.3.4'),{"\2cz\0"}))
+	val-override-date: "20120420235959"
+CONFIG_END
+
+SCENARIO_BEGIN view:addr test
+
+RANGE_BEGIN 0 110
+	ADDRESS 1.2.3.4
+ENTRY_BEGIN
+MATCH opcode qtype qname
+ADJUST copy_id
+REPLY QR RD RA NOERROR
+SECTION QUESTION
+example.cz. IN A
+SECTION ANSWER
+example.cz. IN A 5.6.7.8
+ENTRY_END
+
+ENTRY_BEGIN
+MATCH opcode qtype qname
+ADJUST copy_id
+REPLY QR RD RA NOERROR
+SECTION QUESTION
+example.com. IN A
+SECTION ANSWER
+example.com. IN A 21.22.23.24
+ENTRY_END
+RANGE_END
+
+; allowed by view 
+STEP 10 QUERY
+ENTRY_BEGIN
+REPLY RD
+TSIG testkey +Cdjlkef9ZTSeixERZ433Q==
+SECTION QUESTION
+example.cz. IN A
+ENTRY_END
+
+STEP 20 CHECK_ANSWER
+ENTRY_BEGIN
+MATCH all
+REPLY QR RD RA NOERROR
+SECTION QUESTION
+example.cz. IN A
+SECTION ANSWER
+example.cz. IN A 5.6.7.8
+ENTRY_END
+
+; blocked by view
+; NXDOMAIN expected
+STEP 30 QUERY
+ENTRY_BEGIN
+REPLY RD
+TSIG testkey1 +Cdjlkef9ZTSeixERZ433Q==
+SECTION QUESTION
+example.com. IN A
+ENTRY_END
+
+STEP 40 CHECK_ANSWER
+ENTRY_BEGIN
+MATCH all
+REPLY QR RD RA NXDOMAIN
+SECTION QUESTION
+example.com. IN A
+SECTION ANSWER
+ENTRY_END
+
+SCENARIO_END