#! /usr/bin/env mzscheme
;; See file postnet.ss for legal info.
;; $Id: test-postnet.ss,v 1.1 2009/03/03 12:34:11 neilpair Exp $

#lang scheme/base

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

(testeez
 "postnet.ss"

 (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 ""
             (postnet->debug-string (string->postnet "12345"))
             "|...||..|.|..||..|..|.|.|..|.|.|"))