(import pipes simple-tests)

(define-test (pipes?)
  "FLIP"
  (null? ((flip* list)))
  (equal? ((flip* list) 1) '(1))
  (equal? ((flip* list) 1 2) '(2 1))
  (equal? ((flip* list) 1 2 3 4) '(2 3 4 1))
  (equal? ((flip* map) '(0 1 2) add1) '(1 2 3))

  "PIPE"
  (= (pipe 5) 5)
  (= (pipe 5 (+ 1)) 6)
  (not (pipe 5 (- 10) (positive?)))
  (pipe 5 (- 10) (negative?))
  (equal? (pipe 10 ((flip* list) 1 2 3 4))
          '(1 2 3 4 10))
  (equal? (pipe 10 (list 1 2 3 4))
          '(10 1 2 3 4))
  (equal? (pipe '(0 1 2) ((flip* map) add1))
          '(1 2 3))
  (equal? (pipe 0 (list 1 2 3))
          '(0 1 2 3)) 
  (equal? (pipe 0 ((flip* list) 1 2 3))
          '(1 2 3 0)) 
  ((pipe* (null?) (not)) '(1 2))
  )
    
(compound-test (PIPES)
  (pipes?)
  )