Lines Matching full:class
14 my $class = 'Math::BigInt::Scalar'; # pass classname to sub's
18 my $x = $class->_new("123");
19 my $y = $class->_new("321");
21 is($class->_str($x), 123, "$class->_str(\$x)");
22 is($class->_str($y), 321, "$class->_str(\$y)");
26 is($class->_str($class->_add($x, $y)), 444,
27 "$class->_str($class->_add(\$x, \$y)");
28 is($class->_str($class->_sub($x, $y)), 123,
29 "$class->_str($class->_sub(\$x, \$y)");
30 is($class->_str($class->_mul($x, $y)), 39483,
31 "$class->_str($class->_mul(\$x, \$y))");
32 is($class->_str($class->_div($x, $y)), 123,
33 "$class->_str($class->_div(\$x, \$y)");
35 $class->_mul($x, $y);
36 is($class->_str($x), 39483, "$class->_str(\$x)");
37 is($class->_str($y), 321, "$class->_str(\$y)");
39 my $z = $class->_new("2");
40 is($class->_str($class->_add($x, $z)), 39485,
41 "$class->_str($class->_add(\$x, \$z)");
43 my ($re, $rr) = $class->_div($x, $y);
44 is($class->_str($re), 123, "$class->_str(\$re)");
45 is($class->_str($rr), 2, "$class->_str(\$rr)");
49 is($class->_is_zero($x), 0, "$class->_is_zero($x)");
50 is($class->_is_one($x), 0, "$class->_is_one($x)");
52 is($class->_is_one($class->_one()), 1,
53 "$class->_is_one($class->_one())");
54 is($class->_is_one($class->_zero()), 0,
55 "$class->_is_one($class->_zero())");
56 is($class->_is_zero($class->_zero()), 1,
57 "$class->_is_zero($class->_zero())");
58 is($class->_is_zero($class->_one()), 0,
59 "$class->_is_zero($class->_one())");
63 is($class->_is_odd($class->_one()), 1,
64 "$class->_is_odd($class->_one())");
65 is($class->_is_odd($class->_zero()), 0,
66 "$class->_is_odd($class->_zero())");
67 is($class->_is_even($class->_one()), 0,
68 "$class->_is_even($class->_one())");
69 is($class->_is_even($class->_zero()), 1,
70 "$class->_is_even($class->_zero())");
74 $x = $class->_new("123456789");
75 is($class->_digit($x, 0), 9, "$class->_digit(\$x, 0)");
76 is($class->_digit($x, 1), 8, "$class->_digit(\$x, 1)");
77 is($class->_digit($x, 2), 7, "$class->_digit(\$x, 2)");
78 is($class->_digit($x, -1), 1, "$class->_digit(\$x, -1)");
79 is($class->_digit($x, -2), 2, "$class->_digit(\$x, -2)");
80 is($class->_digit($x, -3), 3, "$class->_digit(\$x, -3)");
84 $x = $class->_new("12356");
85 is($class->_str($class->_copy($x)), 12356,
86 "$class->_str($class->_copy(\$x))");
90 $x = $class->_new("123456789");
91 $y = $class->_new("987654321");
92 is($class->_acmp($x, $y), -1, "$class->_acmp(\$x, \$y)");
93 is($class->_acmp($y, $x), 1, "$class->_acmp(\$y, \$x)");
94 is($class->_acmp($x, $x), 0, "$class->_acmp(\$x, \$x)");
95 is($class->_acmp($y, $y), 0, "$class->_acmp(\$y, \$y)");
99 $x = $class->_new("3333");
100 $y = $class->_new("1111");
101 is($class->_str(scalar $class->_div($x, $y)), 3,
102 "$class->_str(scalar $class->_div(\$x, \$y))");
104 $x = $class->_new("33333");
105 $y = $class->_new("1111");
106 ($x, $y) = $class->_div($x, $y);
107 is($class->_str($x), 30, "$class->_str(\$x)");
108 is($class->_str($y), 3, "$class->_str(\$y)");
110 $x = $class->_new("123");
111 $y = $class->_new("1111");
112 ($x, $y) = $class->_div($x, $y);
113 is($class->_str($x), 0, "$class->_str(\$x)");
114 is($class->_str($y), 123, "$class->_str(\$y)");
118 $x = $class->_new("12345");
119 $x = $class->_num($x);
125 $x = $class->_new("12345");
126 $x = $class->_len($x);
132 $x = $class->_new("3");
133 $y = $class->_new("4");
134 is($class->_str($class->_or($x, $y)), 7,
135 "$class->_str($class->_or($x, $y))");
137 $x = $class->_new("1");
138 $y = $class->_new("4");
139 is($class->_str($class->_xor($x, $y)), 5,
140 "$class->_str($class->_xor($x, $y))");
142 $x = $class->_new("7");
143 $y = $class->_new("3");
144 is($class->_str($class->_and($x, $y)), 3,
145 "$class->_str($class->_and($x, $y))");
149 $x = $class->_new("2");
150 $y = $class->_new("4");
151 is($class->_str($class->_pow($x, $y)), 16,
152 "$class->_str($class->_pow($x, $y))");
154 $x = $class->_new("2");
155 $y = $class->_new("5");
156 is($class->_str($class->_pow($x, $y)), 32,
157 "$class->_str($class->_pow($x, $y))");
159 $x = $class->_new("3");
160 $y = $class->_new("3");
161 is($class->_str($class->_pow($x, $y)), 27,
162 "$class->_str($class->_pow($x, $y))");
166 $x = $class->_new("123456789");
167 is($class->_check($x), 0,
168 "$class->_check(\$x)");
169 is($class->_check(123), '123 is not a reference',
170 "$class->_check(123)");