Lines Matching refs:class
105 for my $class (@classes)
107 $x = $class->new($args[0]);
108 $y = $class->new($args[1]);
112 print "# x $class $args[0] + $args[1] should be $args[2] but is $x\n",
114 print "# r $class $args[0] + $args[1] should be $args[2] but is $r\n",
171 for my $class (@classes)
173 $x = $class->new($args[0]);
174 $y = $class->new($args[1]);
178 print "# x $class $args[0] - $args[1] should be $args[2] but is $x\n"
180 print "# r $class $args[0] - $args[1] should be $args[2] but is $r\n"
237 for my $class (@classes)
239 $x = $class->new($args[0]);
240 $y = $class->new($args[1]);
245 print "# x $class $args[0] * $args[1] should be $args[2] but is $x\n"
247 print "# r $class $args[0] * $args[1] should be $args[2] but is $r\n"
304 for my $class (@classes)
306 $x = $class->new($args[0]);
307 $y = $class->new($args[1]);
315 print "# x $class $args[0] / $args[1] should be $args[2] but is $x\n"
317 print "# r $class $args[0] / $args[1] should be $args[2] but is $r\n"
324 print "# t $class $args[0] / $args[1] should be $args[2] but is $t\n"
326 print "# d $class $args[0] / $args[1] should be $args[2] but is $d\n"
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"