From aaf5d9c03cd41818edb34a154ac570b7fe61687c Mon Sep 17 00:00:00 2001
From: nahi <nahi@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Thu, 4 Sep 2003 16:18:59 +0000
Subject: * test/ruby: tests for ruby itself.

* test/ruby/test_*.rb: split sample/test.rb into 28 test/unit testcases.  some
  tests could not be translates...  search '!!' mark to see it.

* test/csv/test_csv.rb: should require 'csv', not '../lib/csv'.  test runner
  should set load path correctly.


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

(limited to 'test/ruby/test_exception.rb')

diff --git a/test/ruby/test_exception.rb b/test/ruby/test_exception.rb
new file mode 100644
index 0000000000..e22b3b37bb
--- /dev/null
+++ b/test/ruby/test_exception.rb
@@ -0,0 +1,96 @@
+require 'test/unit'
+
+$KCODE = 'none'
+
+class TestException < Test::Unit::TestCase
+  def test_exception
+    begin
+      raise "this must be handled"
+      assert(false)
+    rescue
+      assert(true)
+    end
+    
+    $bad = true
+    begin
+      raise "this must be handled no.2"
+    rescue
+      if $bad
+        $bad = false
+        retry
+        assert(false)
+      end
+    end
+    assert(true)
+    
+    # exception in rescue clause
+    $string = "this must be handled no.3"
+    begin
+      begin
+        raise "exception in rescue clause"
+      rescue 
+        raise $string
+      end
+      assert(false)
+    rescue
+      assert(true) if $! == $string
+    end
+      
+    # exception in ensure clause
+    begin
+      begin
+        raise "this must be handled no.4"
+      ensure 
+        raise "exception in ensure clause"
+      end
+      assert(false)
+    rescue
+      assert(true)
+    end
+    
+    $bad = true
+    begin
+      begin
+        raise "this must be handled no.5"
+      ensure
+        $bad = false
+      end
+    rescue
+    end
+    assert(!$bad)
+    
+    $bad = true
+    begin
+      begin
+        raise "this must be handled no.6"
+      ensure
+        $bad = false
+      end
+    rescue
+    end
+    assert(!$bad)
+    
+    $bad = true
+    while true
+      begin
+        break
+      ensure
+        $bad = false
+      end
+    end
+    assert(!$bad)
+    
+    assert(catch(:foo) {
+         loop do
+           loop do
+    	 throw :foo, true
+    	 break
+           end
+           break
+           assert(false)			# should no reach here
+         end
+         false
+       })
+    
+  end
+end
-- 
cgit v1.2.3