Red Nose Hacker

#kata #tdd #testdrivendevelopment #guile #scheme #emacs #screencast

Objectif de cette session : Continuer de s'exercer avec String rotations.
Illustrer un ré-usinage des tests et utiliser un peu plus les outils à disposition dans Emacs !

Bon screencast !

Je place le code à la suite pour ceux que ça intéresse :

(define-module (kata-3)
  #:use-module (srfi srfi-64))

(module-define! (resolve-module '(srfi srfi-64))
		'test-log-to-file #t)

(define EMPTY_STRING "")
(define DUMMY_1CHAR_STRING "a")

(define (rotations str)
  `(,str))

(test-begin "test-suite")

(define test-case-descriptions
  `(["empty-string" (,EMPTY_STRING) ,EMPTY_STRING]
    ["one-char-string" (,DUMMY_1CHAR_STRING) ,DUMMY_1CHAR_STRING]
    ["two-char-string" ("ab" "ba") "ab"]))

(define (test-equal-batch triples)
  (map (lambda (triple)
	 (let ([test-name (car triple)]
	       [expected-value (car (cdr triple))]
	       [effective-value (car (cddr triple))])
	   (test-equal test-name
	     expected-value
	     (rotations effective-value))))
       triples))

(test-equal-batch test-case-descriptions)

(test-end "test-suite")

Merci beaucoup d'avoir regardé ce screencast !

N'hésites pas à me donner ton avis, proposer une idée d'amélioration, laisser un commentaire, ou poser une question via : – E-mail: jeremy AT korwin-zmijowski DOT fr – Mastodon: @jeko@framapiaf.org – Peertube: @jeko@video.tedomum.net – Twitter: @JeremyKorwin

Abonnes-toi pour ne pas manquer les prochains articles et épisodes: – blog via Mastodon @jeko@write.as et RSS – screencast via Peertube @jeko@video.tedomum.net et RSS

Et encore plus important, partages le screencast et dis à tes amis que c'est le meilleur screencast de l'histoire du logiciel libre ! Sans dec'