#! /usr/bin/env mzscheme
#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"))
"|...||..|.|..||..|..|.|.|..|.|.|"))