Lines Matching refs:args
56 @args = split(/:/,$_,99); $ans = pop(@args);
62 $try = "\$x = $class->new(\"$args[0]\");";
65 $try = "\$x = $class->bnorm(\"$args[0]\");";
70 $try .= "\$x->is_inf('$args[1]');";
72 $try .= "\$x->binf('$args[1]');";
74 $try .= "\$x->bone('$args[1]');";
94 $try .= "\$y = $class->new('$args[1]');";
122 if (defined $args[2])
124 $try .= " \$z = $class->new('$args[2]'); ";
127 $try .= ", \$z" if (defined $args[2]);
132 if (defined $args[2])
134 $try .= " \$z = $class->new('$args[2]'); ";
137 $try .= ", \$z" if (defined $args[2]);
140 if (defined $args[2])
142 $try .= "\$x->blsft(\$y,$args[2]);";
149 if (defined $args[2])
151 $try .= "\$x->brsft(\$y,$args[2]);";
174 $try .= "\$z = $class->new(\"$args[2]\");";
224 # test whether op destroys args or not (should better not)
355 @args = Math::BigInt::objectify(2,4,5);
356 ok (scalar @args,3); # $class, 4, 5
357 ok ($args[0] =~ /^Math::BigInt/);
358 ok ($args[1],4);
359 ok ($args[2],5);
361 @args = Math::BigInt::objectify(0,4,5);
362 ok (scalar @args,3); # $class, 4, 5
363 ok ($args[0] =~ /^Math::BigInt/);
364 ok ($args[1],4);
365 ok ($args[2],5);
367 @args = Math::BigInt::objectify(2,4,5);
368 ok (scalar @args,3); # $class, 4, 5
369 ok ($args[0] =~ /^Math::BigInt/);
370 ok ($args[1],4);
371 ok ($args[2],5);
373 @args = Math::BigInt::objectify(2,4,5,6,7);
374 ok (scalar @args,5); # $class, 4, 5, 6, 7
375 ok ($args[0] =~ /^Math::BigInt/);
376 ok ($args[1],4); ok (ref($args[1]),$args[0]);
377 ok ($args[2],5); ok (ref($args[2]),$args[0]);
378 ok ($args[3],6); ok (ref($args[3]),'');
379 ok ($args[4],7); ok (ref($args[4]),'');
381 @args = Math::BigInt::objectify(2,$class,4,5,6,7);
382 ok (scalar @args,5); # $class, 4, 5, 6, 7
383 ok ($args[0],$class);
384 ok ($args[1],4); ok (ref($args[1]),$args[0]);
385 ok ($args[2],5); ok (ref($args[2]),$args[0]);
386 ok ($args[3],6); ok (ref($args[3]),'');
387 ok ($args[4],7); ok (ref($args[4]),'');