(import checks simple-tests)

(define x 5)

(define-test (checks?)
  (= (>> x) 5)
  (= (<< x) 5)
  ;(= (<<  integer? odd? (named-lambda (5<= x) (<= 5 x))) 5)
  (= (<<< 'foo x integer? odd?) 5)
  (= (>>> 'foo x integer? odd?) 5)
  (= (>>> 'foo x integer? odd?) 5)
  (not (condition-case
         (>> x integer? even?)
         ((exn) #f))) 
  (not (<< ((lambda () #f)) boolean?))
  )

(compound-test (CHECKS)
  (checks?)
  )