Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigInt/t/inf

Lines Matching refs:args
51 my (@args,$x,$y,$z);
104   @args = split /:/,$_;
107     $x = $class->new($args[0]);
108     $y = $class->new($args[1]);
109     $args[2] = '0' if $args[2] eq '-0';		# BigInt/Float hasn't got -0
112     print "# x $class $args[0] + $args[1] should be $args[2] but is $x\n",
113       if !ok ($x->bstr(),$args[2]);
114     print "# r $class $args[0] + $args[1] should be $args[2] but is $r\n",
115       if !ok ($x->bstr(),$args[2]);
170   @args = split /:/,$_;
173     $x = $class->new($args[0]);
174     $y = $class->new($args[1]);
175     $args[2] = '0' if $args[2] eq '-0';		# BigInt/Float hasn't got -0
178     print "# x $class $args[0] - $args[1] should be $args[2] but is $x\n"
179       if !ok ($x->bstr(),$args[2]);
180     print "# r $class $args[0] - $args[1] should be $args[2] but is $r\n"
181       if !ok ($r->bstr(),$args[2]);
236   @args = split /:/,$_;
239     $x = $class->new($args[0]);
240     $y = $class->new($args[1]);
241     $args[2] = '0' if $args[2] eq '-0';		# BigInt/Float hasn't got -0
242     $args[2] = '0' if $args[2] eq '-0';	# BigInt hasn't got -0
245     print "# x $class $args[0] * $args[1] should be $args[2] but is $x\n"
246       if !ok ($x->bstr(),$args[2]);
247     print "# r $class $args[0] * $args[1] should be $args[2] but is $r\n"
248       if !ok ($r->bstr(),$args[2]);
303   @args = split /:/,$_;
306     $x = $class->new($args[0]);
307     $y = $class->new($args[1]);
308     $args[2] = '0' if $args[2] eq '-0';		# BigInt/Float hasn't got -0
315     print "# x $class $args[0] / $args[1] should be $args[2] but is $x\n"
316       if !ok ($x->bstr(),$args[2]);
317     print "# r $class $args[0] / $args[1] should be $args[2] but is $r\n"
318       if !ok ($r->bstr(),$args[2]);
324     print "# t $class $args[0] / $args[1] should be $args[2] but is $t\n"
325       if !ok ($t->bstr(),$args[2]);
326     print "# d $class $args[0] / $args[1] should be $args[2] but is $d\n"
327       if !ok ($d->bstr(),$args[2]);
333     print "# m $class $args[0] % $args[1] should be $rem but is $m\n"
336     print "# o $class $args[0] % $args[1] should be $m ($rem) but is $tmod\n"