(module cards-test mzscheme
  (require "cards.scm")
  (require "testing.scm")
  
  ;; --- cards
  
  (check-expect (card<=? (make-victory "image") (make-keepem "image" 1))
                #t)
  (check-expect (card<=? (make-keepem "image" 1) (make-victory "image"))
                #f)
  (check-expect (card<=? (make-keepem "image" 1) (make-keepem "image" 2))
                #t)
  (check-expect (card<=? (make-keepem "image" 2) (make-keepem "image" 1))
                #f)
  (check-expect (card<=? (make-aircraft "image" "a" 2 FIGHTER ALLIES)
                         (make-aircraft "image" "a" 1 FIGHTER ALLIES))
                #f)
  (check-expect (card<=? (make-aircraft "image" "a" 1 FIGHTER ALLIES)
                         (make-aircraft "image" "a" 2 FIGHTER ALLIES))
                #t)
  (check-expect (card<=? (make-aircraft "image" "a" 1 FIGHTER ALLIES)
                         (make-aircraft "image" "b" 2 FIGHTER ALLIES))
                #t)
  (check-expect (card<=? (make-aircraft "image" "a" 1 FIGHTER ALLIES)
                         (make-victory "image"))
                #f)
  
  ;; --- card-same-name
  
  (check-expect 
   (card-same-name? (make-aircraft "image" "a" 1 FIGHTER ALLIES)
                    (make-aircraft "image" "a" 1 FIGHTER ALLIES))
   #t)
  
  (check-expect 
   (card-same-name? (make-aircraft "image" "a" 1 FIGHTER ALLIES)
                    (make-aircraft "image" "b" 1 FIGHTER ALLIES))
   #f)
  
  (check-expect 
   (card-same-name? (make-keepem "image" 1) (make-keepem "image" 1))
   #t)
  
  (check-expect 
   (card-same-name? (make-keepem "image" 1) (make-victory "image"))
   #t)
  
  (generate-report)
  )