* test/ruby/test_env.rb (test_has_value, test_index): condition for

aboves.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@5053 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

ChangeLog

@@ -1,7 +1,10 @@
-Fri Nov 28 19:28:18 2003  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+Fri Nov 28 19:37:56 2003  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* hash.c (env_has_value, env_index): must match exactly.
 
+	* test/ruby/test_env.rb (test_has_value, test_index): condition for
+	  aboves.
+
 Fri Nov 28 17:59:20 2003  NAKAMURA Usaku <usa@ruby-lang.org>
 
 	* test/ruby/test_env.rb: add tests for ENV.

test/ruby/test_env.rb

@@ -49,6 +49,7 @@ class TestEnv < Test::Unit::TestCase
   def test_has_value
     val = 'a'
     val.succ! while ENV.has_value?(val) && ENV.has_value?(val.upcase)
+    ENV['test'] = val[0...-1]
 
     assert_equal(false, ENV.has_value?(val))
     assert_equal(false, ENV.has_value?(val.upcase))
@@ -63,6 +64,7 @@ class TestEnv < Test::Unit::TestCase
   def test_index
     val = 'a'
     val.succ! while ENV.has_value?(val) && ENV.has_value?(val.upcase)
+    ENV['test'] = val[0...-1]
 
     assert_nil(ENV.index(val))
     assert_nil(ENV.index(val.upcase))