Kata NumberToLCD en Racket - Pruebas Unitarias

numero-lcd-test.rkt

;; -*- coding:utf-8; mode:Scheme -*-
#lang racket

(require rackunit
         rackunit/text-ui
         "numero-lcd.rkt")

(define-test-suite numero-lcd-suite
  
  (test-case
   "prueba visualiza lcd"
   ;;(fail "prueba no implementada")
   (let ((pruebas '((1 (string-append "   \n"
                                      "  |\n"
                                      "   \n"
                                      "  |\n"
                                      "   \n"))

                    (2 (string-append " - \n"
                                      "  |\n"
                                      " - \n"
                                      "|  \n"
                                      " - \n"))

                    (3 (string-append " - \n"
                                      "  |\n"
                                      " - \n"
                                      "  |\n"
                                      " - \n"))

                    (4 (string-append "   \n"
                                      "| |\n"
                                      " - \n"
                                      "  |\n"
                                      "   \n"))

                    (5 (string-append " - \n"
                                      "|  \n"
                                      " - \n"
                                      "  |\n"
                                      " - \n"))

                    (6 (string-append " - \n"
                                      "|  \n"
                                      " - \n"
                                      "| |\n"
                                      " - \n"))

                    (7 (string-append " - \n"
                                      "  |\n"
                                      "   \n"
                                      "  |\n"
                                      "   \n"))

                    (8 (string-append " - \n"
                                      "| |\n"
                                      " - \n"
                                      "| |\n"
                                      " - \n"))

                    (9 (string-append " - \n"
                                      "| |\n"
                                      " - \n"
                                      "  |\n"
                                      " - \n"))

                    (0 (string-append " - \n"
                                      "| |\n"
                                      "   \n"
                                      "| |\n"
                                      " - \n"))) ))
     (for ((elem pruebas))
          (check-equal? (num->lcd (car elem)) 
                        (eval (cadr elem)) )) ))
)
;--------------------------------------------------------------
(run-tests numero-lcd-suite)