Math-MPC-1.13/t/mpc_overload.t

59 if(Math::MPC::overload_string($num) eq '(2e2 4e1)') {print "ok 2\n"}
61   warn "\nTest 2 got: ", Math::MPC::overload_string($num), "\n";
105 if(Math::MPC::overload_string($mpc5) eq
106    Math::MPC::overload_string($mpc3)) {$ok .= 'j'}
120 if(Math::MPC::overload_string($mpc5) eq
121    Math::MPC::overload_string($mpc3)) {$ok .= 'b'}
127 if(Math::MPC::overload_string($mpc5) eq
128    Math::MPC::overload_string($mpc3)) {$ok .= 'd'}
134 if(Math::MPC::overload_string($mpc5) eq
135    Math::MPC::overload_string($mpc3)) {$ok .= 'f'}
141 if(Math::MPC::overload_string($mpc5) eq
142    Math::MPC::overload_string($mpc3)) {$ok .= 'h'}
150 if(Math::MPC::overload_string($mpc5) eq
151    Math::MPC::overload_string($mpc3)) {$ok .= 'j'}
157 if(Math::MPC::overload_string($mpc5) eq
158    Math::MPC::overload_string($mpc3)) {$ok .= 'l'}
164 if(Math::MPC::overload_string($mpc5) eq
165    Math::MPC::overload_string($mpc3)) {$ok .= 'n'}
171 if(Math::MPC::overload_string($mpc5) eq
172    Math::MPC::overload_string($mpc3)) {$ok .= 'p'}
180 if(Math::MPC::overload_string($mpc5) eq
181    Math::MPC::overload_string($mpc3)) {$ok .= 'r'}
187 if(Math::MPC::overload_string($mpc5) eq
188    Math::MPC::overload_string($mpc3)) {$ok .= 't'}
194 if(Math::MPC::overload_string($mpc5) eq
195    Math::MPC::overload_string($mpc3)) {$ok .= 'v'}
201 if(Math::MPC::overload_string($mpc5) eq
202    Math::MPC::overload_string($mpc3)) {$ok .= 'x'}
210 if(Math::MPC::overload_string($mpc5) eq
211    Math::MPC::overload_string($mpc3)) {$ok .= 'z'}
217 if(Math::MPC::overload_string($mpc5) eq
218    Math::MPC::overload_string($mpc3)) {$ok .= 'B'}
224 if(Math::MPC::overload_string($mpc5) eq
225    Math::MPC::overload_string($mpc3)) {$ok .= 'D'}
231 if(Math::MPC::overload_string($mpc5) eq
232    Math::MPC::overload_string($mpc3)) {$ok .= 'F'}
240 if(Math::MPC::overload_string($mpc5) eq
241    Math::MPC::overload_string($mpc3)) {$ok .= 'H'}
247 if(Math::MPC::overload_string($mpc5) eq
248    Math::MPC::overload_string($mpc3)) {$ok .= 'J'}
254 if(Math::MPC::overload_string($mpc5) eq
255    Math::MPC::overload_string($mpc3)) {$ok .= 'L'}
263 if(Math::MPC::overload_string($mpc5) eq
264    Math::MPC::overload_string($mpc3)) {$ok .= 'N'}