diff options
Diffstat (limited to 'test/ruby/test_marshal.rb')
-rw-r--r-- | test/ruby/test_marshal.rb | 32 |
1 files changed, 32 insertions, 0 deletions
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 |