Index: openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl,v
diff -u -r1.28.2.4 -r1.28.2.5
--- openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl	25 Mar 2019 14:16:36 -0000	1.28.2.4
+++ openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl	8 Apr 2019 13:24:37 -0000	1.28.2.5
@@ -353,6 +353,18 @@
                     -package_key $package_key \
                     -message_key $message_key \
                     -locale $locale
+                # Test undelete after deleting for the first time
+                aa_log "Undeleting message $message_key"
+                lang::message::undelete \
+                    -package_key $package_key \
+                    -message_key $message_key \
+                    -locale $locale
+                # Delete the message again
+                aa_log "Deleting message $message_key definitively"
+                lang::message::delete \
+                    -package_key $package_key \
+                    -message_key $message_key \
+                    -locale $locale
             }
         } else {
             # Message is supposed to exist in DB