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_marshal.rb | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 test/ruby/test_marshal.rb

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

diff --git a/test/ruby/test_marshal.rb b/test/ruby/test_marshal.rb
new file mode 100644
index 0000000000..5564fd1e7b
--- /dev/null
+++ b/test/ruby/test_marshal.rb
@@ -0,0 +1,32 @@
+require 'test/unit'
+
+$KCODE = 'none'
+
+class TestMarshal < Test::Unit::TestCase
+  def fact(n)
+    return 1 if n == 0
+    f = 1
+    while n>0
+      f *= n
+      n -= 1
+    end
+    return f
+  end
+
+  StrClone=String.clone;
+
+  def test_marshal
+    $x = [1,2,3,[4,5,"foo"],{1=>"bar"},2.5,fact(30)]
+    $y = Marshal.dump($x)
+    assert($x == Marshal.load($y))
+
+    assert(Marshal.load(Marshal.dump(StrClone.new("abc"))).class == StrClone)
+
+    [[1,2,3,4], [81, 2, 118, 3146]].each { |w,x,y,z|
+      a = (x.to_f + y.to_f / z.to_f) * Math.exp(w.to_f / (x.to_f + y.to_f / z.to_f))
+      ma = Marshal.dump(a)
+      b = Marshal.load(ma)
+      assert(a == b)
+    }
+  end
+end
-- 
cgit v1.2.3