#! /usr/bin/env mzscheme
;; See file postnet.rkt for legal info.
;; $Id: test-postnet.rkt,v 1.4 2011/03/04 07:52:42 neilpair Exp $

#lang racket/base

(require (planet neil/testeez:1:2)
         "postnet.rkt")

(testeez
 "postnet.rkt"

 (test/equal ""
             (digit-list->postnet '(1 2 3 4 5))
             '(#t #f #f #f #t #t #f #f #t #f #t #f #f #t #t #f
                  #f #t #f #f #t #f #t #f #t #f #f #t #f #t #f #t))

 (test/equal ""
             (char-list->postnet '(#\1 #\2 #\3 #\4 #\5))
             '(#t #f #f #f #t #t #f #f #t #f #t #f #f #t #t #f
                  #f #t #f #f #t #f #t #f #t #f #f #t #f #t #f #t))

 (test/equal ""
             (string->postnet "12345-6789 01")
             '(#t #f #f #f #t #t #f #f #t #f #t #f #f #t #t #f
                  #f #t #f #f #t #f #t #f #t #f #f #t #t #f #f #t
                  #f #f #f #t #t #f #f #t #f #t #f #t #f #f #t #t
                  #f #f #f #f #f #f #t #t #f #t #f #f #t #t))

 (test/equal ""
             (string->postnet "55555-1237")
             '(#t #f #t #f #t #f #f #t #f #t #f #f #t #f #t #f
                  #f #t #f #t #f #f #t #f #t #f #f #f #f #t #t #f
                  #f #t #f #t #f #f #t #t #f #t #f #f #f #t #f #f
                  #t #f #t #t))
 
 (test/equal ""
             (postnet->debug-string (string->postnet "12345"))
             "|...||..|.|..||..|..|.|.|..|.|.|"))