#! /usr/bin/env mzscheme
;; $Id: test-ccnum.ss,v 1.1 2009/03/03 10:48:30 neilpair Exp $
;; See file ccnum.ss for legal info.

#lang scheme/base

(require (planet neil/testeez:1:2)
         "ccnum.ss")

(testeez
 "ccnum"

 ((credit-card-number-seems-ok? "4408 0412 3456 7893") #t)
 ((credit-card-number-seems-ok? "4408041234567893") #t)
 ((credit-card-number-seems-ok? "   4408041234567893  ") #t)
 ((credit-card-number-seems-ok? "5368 2358 9683 1135") #t)
 ((credit-card-number-seems-ok? "4242 4242 4242 4242") #t)

 ((credit-card-number-seems-ok? "0") #f)

 ((credit-card-number-seems-ok? "4408 0412 3456 7890") #f)
 ((credit-card-number-seems-ok? "4408 0412 3456 7891") #f)
 ((credit-card-number-seems-ok? "4408 0412 3456 7892") #f)
 ((credit-card-number-seems-ok? "4408 0412 3456 7894") #f)
 ((credit-card-number-seems-ok? "4408 0412 3456 7895") #f)
 ((credit-card-number-seems-ok? "4408 0412 3456 7896") #f)
 ((credit-card-number-seems-ok? "4408 0412 3456 7897") #f)
 ((credit-card-number-seems-ok? "4408 0412 3456 7898") #f)
 ((credit-card-number-seems-ok? "4408 0412 3456 7899") #f)

 ((credit-card-number-seems-ok? "4403 1234 5678 9012") #f)
 ((credit-card-number-seems-ok? "4000 3456 7890 1234") #f)
 ((credit-card-number-seems-ok? "4544 1234 5678 9123") #f)
 ((credit-card-number-seems-ok? "4417 1234 5678 9112") #f)
 ((credit-card-number-seems-ok? "1234 5678 9012 3456") #f)
 ((credit-card-number-seems-ok? "4417 1234 5678 9112") #f)
 ((credit-card-number-seems-ok? "5490 1234 5678 9123") #f)
 ((credit-card-number-seems-ok? "5410 5678 1234 5678") #f)
 ((credit-card-number-seems-ok? "4104 1600 1234 5678") #f)

 ((credit-card-number-seems-ok? "1") #f)
 ((credit-card-number-seems-ok? "trump") #f)
 ((credit-card-number-seems-ok? "") #f)

 )