def test_equal():
check_all(
"(equal? 1 1)",
"(equal? 1.5 (+ 0.5 1))",
"(equal? 1+1i 1+1i)",
"(equal? 'foo 'foo)",
"(equal? '() '())",
"(equal? #f #f)",
"(equal? #t #t)",
"(equal? (cons 1 2) (cons 1 2))",
"(equal? (vector->list (make-vector 10000 5)) (vector->list (make-vector 10000 5)))",
"(equal? #() #())",
"(equal? #(1) #(1))",
"(equal? #(1 2) #(1 2))",
'(equal? "abc" "abc")',
)
check_none(
"(equal? 1 2)",
"(equal? 1 2.2)",
"(equal? 1 1.0)",
"(equal? 1+1i 1.0+0i)",
"(equal? 1+1i 1)",
"(equal? 'foo 'bar)",
"(equal? '() #f)",
"(equal? #f #t)",
"(equal? (cons 1 2) (cons 1 4))",
"(equal? (cons 2 2) (cons 1 2))",
"(equal? (cons 2 (cons 1 2)) (cons 1 (cons 1 (cons 1 6))))",
"(equal? #(1) #())",
"(equal? #(1 2 3 4 5) #(1 2 3 4 6))",
"(equal? #(1 2 3 4 5) #(1 2 3 4 'a))",
'(equal? "abc" "def")',
)
def test_equal():
check_all(
"(equal? 1 1)",
"(equal? 1.5 (+ 0.5 1))",
"(equal? 1+1i 1+1i)",
"(equal? 'foo 'foo)",
"(equal? '() '())",
"(equal? #f #f)",
"(equal? #t #t)",
"(equal? (cons 1 2) (cons 1 2))",
"(equal? (vector->list (make-vector 10000 5)) (vector->list (make-vector 10000 5)))",
"(equal? #() #())",
"(equal? #(1) #(1))",
"(equal? #(1 2) #(1 2))",
'(equal? "abc" "abc")',
)
check_none(
"(equal? 1 2)",
"(equal? 1 2.2)",
"(equal? 1 1.0)",
"(equal? 1+1i 1.0+0i)",
"(equal? 1+1i 1)",
"(equal? 'foo 'bar)",
"(equal? '() #f)",
"(equal? #f #t)",
"(equal? (cons 1 2) (cons 1 4))",
"(equal? (cons 2 2) (cons 1 2))",
"(equal? (cons 2 (cons 1 2)) (cons 1 (cons 1 (cons 1 6))))",
"(equal? #(1) #())",
"(equal? #(1 2 3 4 5) #(1 2 3 4 6))",
"(equal? #(1 2 3 4 5) #(1 2 3 4 'a))",
'(equal? "abc" "def")',
)