; $Id$

(load "tests-driver.scm") ; this should come first

(add-tests-with-string-output "booleans"      
  [(pair? ())                    => "#f\n"]
  [(pair? #\A)                   => "#f\n"]
  [(pair? (fx+ 1 2))             => "#f\n"]
  [(pair? (pair? (fx+ 1 2)))     => "#f\n"]
  [(pair? (cons 30 31))          => "#t\n"]
  [(car   (cons 30 31))          => "30\n"]
  [(cdr   (cons 30 31))          => "31\n"]
)

(load "compiler.scm")
(test-all)

; $Id$

(load "tests-driver.scm") ; this should come first

(add-tests-with-string-output "booleans"      
  [(pair? ())                    => "#f\n"]
  [(pair? #\A)                   => "#f\n"]
  [(pair? (fx+ 1 2))             => "#f\n"]
  [(pair? (pair? (fx+ 1 2)))     => "#f\n"]
  [(pair? (cons 30 31))          => "#t\n"]
  ; [(car   (cons 30 31))          => "30\n"]
  ; [(cdr   (cons 30 31))          => "31\n"]
)

(load "compiler.scm")
(test-all)

Support for Pairs seems to be broken. Disable tests for now.
[Eclectus]
Support for Pairs seems to be broken. Disable tests for now.


git-svn-id: 6e74a02f85675cec270f5d931b0f6998666294a3@26369 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
