summaryrefslogtreecommitdiff
path: root/test/test_mathn.rb
blob: 2ea049502c2bb5197c5f4562499a629b12c06947 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
# frozen_string_literal: false
require 'test/unit'

# mathn redefines too much. It must be isolated to child processes.
class TestMathn < Test::Unit::TestCase
  def test_power
    stderr = $VERBOSE ? ["lib/mathn.rb is deprecated"] : []
    assert_in_out_err ['-r', 'mathn', '-e', 'a=1**2;!a'], "", [], stderr, '[ruby-core:25740]'
    assert_in_out_err ['-r', 'mathn', '-e', 'a=(1 << 126)**2;!a'], "", [], stderr, '[ruby-core:25740]'
    assert_in_out_err ['-r', 'mathn/complex', '-e', 'a=Complex(0,1)**4;!a'], "", [], [], '[ruby-core:44170]'
    assert_in_out_err ['-r', 'mathn/complex', '-e', 'a=Complex(0,1)**5;!a'], "", [], [], '[ruby-core:44170]'
  end

  def test_quo
    stderr = $VERBOSE ? ["lib/mathn.rb is deprecated"] : []
    assert_in_out_err ['-r', 'mathn'], <<-EOS, %w(OK), stderr, '[ruby-core:41575]'
      1.quo(2); puts :OK
    EOS
  end

  def test_floor
    assert_separately(%w[-rmathn], <<-EOS, ignore_stderr: true)
      assert_equal( 2, ( 13/5).floor)
      assert_equal( 2, (  5/2).floor)
      assert_equal( 2, ( 12/5).floor)
      assert_equal(-3, (-12/5).floor)
      assert_equal(-3, ( -5/2).floor)
      assert_equal(-3, (-13/5).floor)

      assert_equal( 2, ( 13/5).floor(0))
      assert_equal( 2, (  5/2).floor(0))
      assert_equal( 2, ( 12/5).floor(0))
      assert_equal(-3, (-12/5).floor(0))
      assert_equal(-3, ( -5/2).floor(0))
      assert_equal(-3, (-13/5).floor(0))

      assert_equal(( 13/5), ( 13/5).floor(2))
      assert_equal((  5/2), (  5/2).floor(2))
      assert_equal(( 12/5), ( 12/5).floor(2))
      assert_equal((-12/5), (-12/5).floor(2))
      assert_equal(( -5/2), ( -5/2).floor(2))
      assert_equal((-13/5), (-13/5).floor(2))
    EOS
  end

  def test_ceil
    assert_separately(%w[-rmathn], <<-EOS, ignore_stderr: true)
      assert_equal( 3, ( 13/5).ceil)
      assert_equal( 3, (  5/2).ceil)
      assert_equal( 3, ( 12/5).ceil)
      assert_equal(-2, (-12/5).ceil)
      assert_equal(-2, ( -5/2).ceil)
      assert_equal(-2, (-13/5).ceil)

      assert_equal( 3, ( 13/5).ceil(0))
      assert_equal( 3, (  5/2).ceil(0))
      assert_equal( 3, ( 12/5).ceil(0))
      assert_equal(-2, (-12/5).ceil(0))
      assert_equal(-2, ( -5/2).ceil(0))
      assert_equal(-2, (-13/5).ceil(0))

      assert_equal(( 13/5), ( 13/5).ceil(2))
      assert_equal((  5/2), (  5/2).ceil(2))
      assert_equal(( 12/5), ( 12/5).ceil(2))
      assert_equal((-12/5), (-12/5).ceil(2))
      assert_equal(( -5/2), ( -5/2).ceil(2))
      assert_equal((-13/5), (-13/5).ceil(2))
    EOS
  end

  def test_truncate
    assert_separately(%w[-rmathn], <<-EOS, ignore_stderr: true)
      assert_equal( 2, ( 13/5).truncate)
      assert_equal( 2, (  5/2).truncate)
      assert_equal( 2, ( 12/5).truncate)
      assert_equal(-2, (-12/5).truncate)
      assert_equal(-2, ( -5/2).truncate)
      assert_equal(-2, (-13/5).truncate)

      assert_equal( 2, ( 13/5).truncate(0))
      assert_equal( 2, (  5/2).truncate(0))
      assert_equal( 2, ( 12/5).truncate(0))
      assert_equal(-2, (-12/5).truncate(0))
      assert_equal(-2, ( -5/2).truncate(0))
      assert_equal(-2, (-13/5).truncate(0))

      assert_equal(( 13/5), ( 13/5).truncate(2))
      assert_equal((  5/2), (  5/2).truncate(2))
      assert_equal(( 12/5), ( 12/5).truncate(2))
      assert_equal((-12/5), (-12/5).truncate(2))
      assert_equal(( -5/2), ( -5/2).truncate(2))
      assert_equal((-13/5), (-13/5).truncate(2))
    EOS
  end

  def test_round
    assert_separately(%w[-rmathn], <<-EOS, ignore_stderr: true)
      assert_equal( 3, ( 13/5).round)
      assert_equal( 2, (  5/2).round)
      assert_equal( 2, ( 12/5).round)
      assert_equal(-2, (-12/5).round)
      assert_equal(-2, ( -5/2).round)
      assert_equal(-3, (-13/5).round)

      assert_equal( 3, ( 13/5).round(0))
      assert_equal( 2, (  5/2).round(0))
      assert_equal( 2, ( 12/5).round(0))
      assert_equal(-2, (-12/5).round(0))
      assert_equal(-2, ( -5/2).round(0))
      assert_equal(-3, (-13/5).round(0))

      assert_equal(( 13/5), ( 13/5).round(2))
      assert_equal((  5/2), (  5/2).round(2))
      assert_equal(( 12/5), ( 12/5).round(2))
      assert_equal((-12/5), (-12/5).round(2))
      assert_equal(( -5/2), ( -5/2).round(2))
      assert_equal((-13/5), (-13/5).round(2))

      assert_equal( 3, ( 13/5).round(half: :even))
      assert_equal( 2, (  5/2).round(half: :even))
      assert_equal( 2, ( 12/5).round(half: :even))
      assert_equal(-2, (-12/5).round(half: :even))
      assert_equal(-2, ( -5/2).round(half: :even))
      assert_equal(-3, (-13/5).round(half: :even))

      assert_equal( 3, ( 13/5).round(0, half: :even))
      assert_equal( 2, (  5/2).round(0, half: :even))
      assert_equal( 2, ( 12/5).round(0, half: :even))
      assert_equal(-2, (-12/5).round(0, half: :even))
      assert_equal(-2, ( -5/2).round(0, half: :even))
      assert_equal(-3, (-13/5).round(0, half: :even))

      assert_equal(( 13/5), ( 13/5).round(2, half: :even))
      assert_equal((  5/2), (  5/2).round(2, half: :even))
      assert_equal(( 12/5), ( 12/5).round(2, half: :even))
      assert_equal((-12/5), (-12/5).round(2, half: :even))
      assert_equal(( -5/2), ( -5/2).round(2, half: :even))
      assert_equal((-13/5), (-13/5).round(2, half: :even))

      assert_equal( 3, ( 13/5).round(half: :up))
      assert_equal( 3, (  5/2).round(half: :up))
      assert_equal( 2, ( 12/5).round(half: :up))
      assert_equal(-2, (-12/5).round(half: :up))
      assert_equal(-3, ( -5/2).round(half: :up))
      assert_equal(-3, (-13/5).round(half: :up))

      assert_equal( 3, ( 13/5).round(0, half: :up))
      assert_equal( 3, (  5/2).round(0, half: :up))
      assert_equal( 2, ( 12/5).round(0, half: :up))
      assert_equal(-2, (-12/5).round(0, half: :up))
      assert_equal(-3, ( -5/2).round(0, half: :up))
      assert_equal(-3, (-13/5).round(0, half: :up))

      assert_equal(( 13/5), ( 13/5).round(2, half: :up))
      assert_equal((  5/2), (  5/2).round(2, half: :up))
      assert_equal(( 12/5), ( 12/5).round(2, half: :up))
      assert_equal((-12/5), (-12/5).round(2, half: :up))
      assert_equal(( -5/2), ( -5/2).round(2, half: :up))
      assert_equal((-13/5), (-13/5).round(2, half: :up))
    EOS
  end
end