home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 2 / 2611 / op.ical < prev    next >
Encoding:
Text File  |  1991-01-25  |  472 b   |  27 lines
  1. #!./iperl
  2.  
  3. while (<DATA>)
  4. {
  5.     ($testno, $expr, $ans) = split(/ /);
  6.     if (($got = eval($expr)) == $ans)
  7.     {
  8.         print "ok " . $testno . "\n";
  9.     }
  10.     else
  11.     {
  12.         print "not ok " . $testno . "\n";
  13.         print "# $testno $expr wanted $ans got $got\n";
  14.     }
  15. }
  16. __END__
  17. 1 &mingle(65535,0) 2863311530
  18. 2 &mingle(0,65535) 1431655765
  19. 3 &mingle(255,255) 65535
  20. 4 &select(179,201) 9
  21. 5 &select(201,179) 17
  22. 6 &select(179,179) 31
  23. 7 &select(201,201) 15
  24. 8 &and16(77) 4
  25. 9 &or16(77) 32879
  26. 10 &xor16(77) 32875
  27.