(module pipeline-test-data mzscheme
  
  (require
   (file "base.ss")
   (file "pipeline.ss")
   )
  
  (provide
   (all-defined)
   )
  
  ; Target function
  
  (define (target arg)
    (list 'target arg))
  
  ; Basic pipeline
  
  (define stage-a
    (make-stage 
     'a
     (lambda (continue arg) 
       (cons 'a (cons arg (continue (+ arg 1)))))))
  
  (define stage-b
    (make-stage 
     'b
     (lambda (continue arg) 
       (cons 'b (cons arg (continue (+ arg 2)))))))
  
  (define stage-c
    (make-stage 
     'c
     (lambda (continue arg) 
       (cons 'c (cons arg (continue (+ arg 3)))))))
  
  ; Replacement stages
  
  (define stage-b2
    (make-stage 
     'b
     (lambda (continue arg) 
       (cons 'b (cons arg (continue (+ arg 4)))))))
  
  (define stage-b3
    (make-stage
     'b
     (lambda (continue arg)
       (cons 'b (cons arg null)))))
  
  )