From 921dc633e20f711eb86017e5e848e40c9d3162f0 Mon Sep 17 00:00:00 2001
From: Martin Nilsson <mani@lysator.liu.se>
Date: Tue, 28 Jan 2003 23:59:30 +0100
Subject: [PATCH] Tests
Rev: lib/modules/Standards.pmod/ASN1.pmod/testsuite.in:1.1
---
.gitattributes | 1 +
.../Standards.pmod/ASN1.pmod/testsuite.in | 21 +++++++++++++++++++
2 files changed, 22 insertions(+)
create mode 100644 lib/modules/Standards.pmod/ASN1.pmod/testsuite.in
diff --git a/.gitattributes b/.gitattributes
index 7931d5823b..03ec7fe3a6 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -190,6 +190,7 @@ testfont binary
/lib/modules/Sql.pmod/sybase.pike foreign_ident
/lib/modules/Standards.pmod/ASN1.pmod/Decode.pmod foreign_ident
/lib/modules/Standards.pmod/ASN1.pmod/Types.pmod foreign_ident
+/lib/modules/Standards.pmod/ASN1.pmod/testsuite.in foreign_ident
/lib/modules/Standards.pmod/EXIF.pmod foreign_ident
/lib/modules/Standards.pmod/FIPS10_4.pmod foreign_ident
/lib/modules/Standards.pmod/ID3.pmod foreign_ident
diff --git a/lib/modules/Standards.pmod/ASN1.pmod/testsuite.in b/lib/modules/Standards.pmod/ASN1.pmod/testsuite.in
new file mode 100644
index 0000000000..3564babf5c
--- /dev/null
+++ b/lib/modules/Standards.pmod/ASN1.pmod/testsuite.in
@@ -0,0 +1,21 @@
+dnl $Id: testsuite.in,v 1.1 2003/01/28 22:59:30 nilsson Exp $
+
+dnl Tests from ITU-T Rec.X690 (07/2002)
+
+dnl �8.8
+test_eq( Standards.ASN1.Types.Null()->get_der(), "\5\0" )
+
+dnl �8.9
+test_any([[
+ import Standards.ASN1.Types;
+ return Sequence( ({ IA5String("Smith"), Boolean(17) }) )->get_der();
+]], "0\n\26\5Smith\1\1�")
+
+dnl �8.19
+dnl BUG?
+dnl test_eq(Standards.ASN1.Types.Identifier(2,100,3)->get_der(),
+dnl "\6\3\201""4\3")
+
+dnl �8.21
+test_eq( Standards.ASN1.Types.VisibleString("Jones")->get_der(),
+ "\32\5Jones" )
\ No newline at end of file
--
GitLab