(module predicate-tests mzscheme

  (require (planet "test.ss" ("schematics" "schemeunit.plt" 2)))
  (require (lib "predicates.ss" "srfi" "43"))

  (provide predicate-tests)

  (define predicate-tests
    (test-suite
     "All tests for predicate"
     (test-case
      "vector-empty?"
      (check-false
       (vector-empty? '#(a)))
      (check-false
       (vector-empty? '#(())))
      (check-false
       (vector-empty? '#(#())))
      (check-true
       (vector-empty? '#())))

     (test-case
      "vector="
      (check-true
       (vector= eq? '#(a b c d) '#(a b c d)))
      (check-false
       (vector= eq? '#(a b c d) '#(a b d c)))
      (check-false
       (vector= = '#(1 2 3 4 5) '#(1 2 3 4)))
      (check-true
       (vector= = '#(1 2 3 4) '#(1 2 3 4) '#(1 2 3 4)))
      (check-true
       (vector= eq?))
      (check-true
       (vector= eq? '#(a)))
      (check-false
       (vector= eq? '#(a b c d) '#(a b c d) '#(a b d c)))
      (check-false
       (vector= eq? '#(a b c d e) '#(a b c d) '#(a b c d))))
     ))
  )