2_65.test.rkt

#lang racket

(require rackunit/text-ui)
(require rackunit "custom-checks.rkt")
(require rackunit "../solutions/2_63.rkt")
(require rackunit "../solutions/2_64.rkt")
(require rackunit "../solutions/2_65.rkt")


(define test-set (list->tree'(1 4 5 6 9)))
(define test-set-2 (list->tree '(3 5 7 9)))

(define tests
  (test-suite
    "Test for exercise 2_59 (Sets)"
    (test-case
      "Intersection set"
      (define test-instersection-set (instersection-set test-set-2 test-set))
      (check-true (element-of-set? 5 test-instersection-set))
      (check-false (element-of-set? 1 test-instersection-set)))
    (test-case
      "union set"
      (define test-union-set (union-set test-set-2 test-set))
      (check-true (element-of-set? 6 test-union-set))
      (check-true (element-of-set? 7 test-union-set)))))

(run-tests tests 'verbose)