Index: openacs-4/packages/acs-tcl/tcl/test/naviserver-api-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/Attic/naviserver-api-procs.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-tcl/tcl/test/naviserver-api-procs.tcl	4 Sep 2019 11:51:58 -0000	1.1.2.1
@@ -0,0 +1,27 @@
+ad_library {
+    Tcl helper procedures for the acs-automated-testing tests of
+    the acs-tcl package.
+
+    @author Peter Marklund (peter@collaboraid.biz)
+    @creation-date 22 January 2003
+}
+
+aa_register_case \
+    -cats {api smoke} \
+    base64__tcl_vs_ns_decode {
+        Tests that decoding of md5 string using tcl base64 package
+        behaves the same as Naviserver implementation.
+    } {
+        package require base64
+        set md5 {iVBORw0KGgoAAAANSUhEUgAAAAUA
+            AAAFCAYAAACNbyblAAAAHElEQVQI12P4//8/w38GIAXDIBKE0DHxgljNBAAO
+            9TXL0Y4OHwAAAABJRU5ErkJggg==}
+        aa_true "Decoding of md5 string is identical" \
+            {[base64::decode $md5] eq [ns_base64decode $md5]}
+    }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: