diff --git a/.gitattributes b/.gitattributes
index 7931d5823b1df8bf23570198233ab49e7b9e08b4..03ec7fe3a6a66fe9efc8351b1d13aec227783533 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 0000000000000000000000000000000000000000..3564babf5cdc76d3b7a7cff256219a565031c6bc
--- /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