diff --git a/t/cmd_flush.t b/t/cmd_flush.t
index 7892c0f..e9d2a4f 100755
--- a/t/cmd_flush.t
+++ b/t/cmd_flush.t
@@ -22,5 +22,3 @@ eval_is {flush the monkeys} \
 eval_is {flush toilet} \
   {can not find channel named "toilet"} \
   {invalid channel name}
-
-# RT#40627: test actual flushing.
diff --git a/t/cmd_string.t b/t/cmd_string.t
index 80a21a5..afba478 100755
--- a/t/cmd_string.t
+++ b/t/cmd_string.t
@@ -287,8 +287,6 @@ eval_is {string wordend} \
   {wordend too few args}
 
 # [string is]
-# # RT#40629: - many of the classes are NOT tested here, and we rely
-# on the cvs tests from tcl for that.
 is [string is double 2.1] 1 {string is double}
 is [string is double 7.0] 1 {string is double}
 is [string is double 7]   1 {string is double}
diff --git a/t/cmd_switch.t b/t/cmd_switch.t
index 8ad86c3..794943f 100755
--- a/t/cmd_switch.t
+++ b/t/cmd_switch.t
@@ -188,8 +188,6 @@ eval_is {switch -glob a {a 1 b}} \
   {extra switch pattern with no body} \
   {-glob, pattern with no body}
 
-# RT#40619: Need -regexp tests
-
 eval_is {switch -regexp a {a 1 b}} \
   {extra switch pattern with no body} \
   {-regexp, pattern with no body}