From 275d6a57758b3b33628e3584c959b66c34110188 Mon Sep 17 00:00:00 2001
From: usa <usa@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Fri, 28 Nov 2003 09:00:48 +0000
Subject: * test/ruby/test_env.rb: add tests for ENV.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@5051 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 test/ruby/test_env.rb | 84 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 84 insertions(+)
 create mode 100644 test/ruby/test_env.rb

(limited to 'test')

diff --git a/test/ruby/test_env.rb b/test/ruby/test_env.rb
new file mode 100644
index 0000000000..6a7fd97c23
--- /dev/null
+++ b/test/ruby/test_env.rb
@@ -0,0 +1,84 @@
+require 'test/unit'
+
+$KCODE = 'none'
+
+class TestEnv < Test::Unit::TestCase
+  IGNORE_CASE = /djgpp|bccwin|mswin|mingw|emx/ =~ RUBY_PLATFORM
+
+  def setup
+    @backup = ENV['test']
+    @BACKUP = ENV['TEST']
+    ENV['test'] = nil
+    ENV['TEST'] = nil
+  end
+
+  def teardown
+    ENV['test'] = @backup
+    ENV['TEST'] = @BACKUP
+  end
+
+  def test_bracket
+    assert_nil(ENV['test'])
+    assert_nil(ENV['TEST'])
+    ENV['test'] = 'foo'
+    assert_equal('foo', ENV['test'])
+    if IGNORE_CASE
+      assert_equal('foo', ENV['TEST'])
+    else
+      assert_nil(ENV['TEST'])
+    end
+    ENV['TEST'] = 'bar'
+    assert_equal('bar', ENV['TEST'])
+    if IGNORE_CASE
+      assert_equal('bar', ENV['test'])
+    else
+      assert_equal('foo', ENV['test'])
+    end
+
+    assert_raises(TypeError) {
+      tmp = ENV[1]
+    }
+    assert_raises(TypeError) {
+      ENV[1] = 'foo'
+    }
+    assert_raises(TypeError) {
+      ENV['test'] = 0
+    }
+  end
+
+  def test_has_value
+    val = 'a'
+    val.succ! while ENV.has_value?(val) && ENV.has_value?(val.upcase)
+
+    assert_equal(false, ENV.has_value?(val))
+    assert_equal(false, ENV.has_value?(val.upcase))
+    ENV['test'] = val
+    assert_equal(true, ENV.has_value?(val))
+    assert_equal(false, ENV.has_value?(val.upcase))
+    ENV['test'] = val.upcase
+    assert_equal(false, ENV.has_value?(val))
+    assert_equal(true, ENV.has_value?(val.upcase))
+  end
+
+  def test_index
+    val = 'a'
+    val.succ! while ENV.has_value?(val) && ENV.has_value?(val.upcase)
+
+    assert_nil(ENV.index(val))
+    assert_nil(ENV.index(val.upcase))
+    ENV['test'] = val
+    if IGNORE_CASE
+      assert_equal('TEST', ENV.index(val).upcase)
+    else
+      assert_equal('test', ENV.index(val))
+    end
+    assert_nil(ENV.index(val.upcase))
+    ENV['test'] = val.upcase
+    assert_nil(ENV.index(val))
+    if IGNORE_CASE
+      assert_equal('TEST', ENV.index(val.upcase).upcase)
+    else
+      assert_equal('test', ENV.index(val.upcase))
+    end
+  end
+end
-- 
cgit v1.2.3