From 00101f0a72fb969ea746b48e2b7787631cc0091b Mon Sep 17 00:00:00 2001
From: Guillaume Valadon <guillaume.valadon@ssi.gouv.fr>
Date: Thu, 26 Jan 2017 14:21:06 +0100
Subject: [PATCH] Tests for scapy/asn1/*

---
 test/regression.uts | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

diff --git a/test/regression.uts b/test/regression.uts
index da127a399..942ecae01 100644
--- a/test/regression.uts
+++ b/test/regression.uts
@@ -7807,3 +7807,30 @@ Dot11(type=0, subtype=1).answers(query) == True
 
 = Dot11 - misc
 Dot11Elt(info="scapy").summary() == "SSID='scapy'"
+
+
+############
+############
++ ASN.1
+
+= MIB
+
+import tempfile
+fd, fname = tempfile.mkstemp()
+os.write(fd, "-- MIB test\nscapy       OBJECT IDENTIFIER ::= {test 2807}\n")
+os.close(fd)
+
+load_mib(fname)
+len([k for k in conf.mib.iterkeys() if "scapy" in k]) == 1
+
+= BER tests
+
+BER_id_enc(42) == '*'
+BER_id_enc(2807) == '\xbfw'
+
+b = BERcodec_IPADDRESS()
+r1 = b.enc("8.8.8.8")
+r1 == '@\x04\x08\x08\x08\x08'
+
+r2 = b.dec(r1)[0]
+r2.val == '8.8.8.8'