diff --git a/ChangeLog b/ChangeLog
index a9ae827e37..4fdf455df9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Tue Aug 12 15:03:43 2008  TAKAO Kouji  <kouji@takao7.net>
+
+	* test/readline/test_readline.rb (TestReadline#test_safe_level_4):
+	  tested Readline.vi_editing_mode? and Readline.emacs_editing_mode?.
+
 Tue Aug 12 14:25:09 2008  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* enc/Makefile.in (.SUFFIXES): renamed to .trans.
diff --git a/test/readline/test_readline.rb b/test/readline/test_readline.rb
index 578b0396eb..071accf68b 100644
--- a/test/readline/test_readline.rb
+++ b/test/readline/test_readline.rb
@@ -46,7 +46,9 @@ class TestReadline < Test::Unit::TestCase
        ["completion_case_fold=", true],
        ["completion_case_fold"],
        ["vi_editing_mode"],
+       ["vi_editing_mode?"],
        ["emacs_editing_mode"],
+       ["emacs_editing_mode?"],
        ["completion_append_character=", "s"],
        ["completion_append_character"],
        ["basic_word_break_characters=", "s"],