www

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | Submodules | README | LICENSE

test-fixnum.rkt (335B)

      1 #lang typed/racket
      2 (require "../typed-untyped.rkt")
      3 (define-typed/untyped-test-module
      4   (require-typed/untyped phc-toolkit/fixnum)
      5   (check-equal? (fxxor2 13206 23715) 28469)
      6   (check-equal? (fxxor 0) 0)
      7   (check-equal? (fxxor 13206) 13206)
      8   (check-equal? (fxxor 13206 23715) 28469)
      9   (check-equal? (fxxor 13206 23715 314576) 304101))