Sha256: 8972fedf6d182989e959431ff692a4bde25717299d25dcd6d1054f6f8e631a1b

Contents?: true

Size: 1.97 KB

Versions: 396

Compression:

Stored size: 1.97 KB

Contents

(ns beer-song-test
  (:require [clojure.test :refer [deftest is]]
            beer-song))

(def verse-8
  (str "8 bottles of beer on the wall, 8 bottles of beer.\n"
       "Take one down and pass it around, 7 bottles of beer on the wall.\n"))

(def verse-2
  (str "2 bottles of beer on the wall, 2 bottles of beer.\n"
       "Take one down and pass it around, 1 bottle of beer on the wall.\n"))

(def verse-1
  (str "1 bottle of beer on the wall, 1 bottle of beer.\n"
       "Take it down and pass it around, no more bottles of beer on the wall.\n"))

(def verse-0
  (str "No more bottles of beer on the wall, no more bottles of beer.\n"
       "Go to the store and buy some more, 99 bottles of beer on the wall.\n"))

(def song-8-6
  (str "8 bottles of beer on the wall, 8 bottles of beer.\n"
       "Take one down and pass it around, 7 bottles of beer on the wall.\n\n"
       "7 bottles of beer on the wall, 7 bottles of beer.\n"
       "Take one down and pass it around, 6 bottles of beer on the wall.\n\n"
       "6 bottles of beer on the wall, 6 bottles of beer.\n"
       "Take one down and pass it around, 5 bottles of beer on the wall.\n"))

(def song-3-0
  (str "3 bottles of beer on the wall, 3 bottles of beer.\n"
       "Take one down and pass it around, 2 bottles of beer on the wall.\n\n"
       "2 bottles of beer on the wall, 2 bottles of beer.\n"
       "Take one down and pass it around, 1 bottle of beer on the wall.\n\n"
       "1 bottle of beer on the wall, 1 bottle of beer.\n"
       "Take it down and pass it around, no more bottles of beer on the wall.\n\n"
       "No more bottles of beer on the wall, no more bottles of beer.\n"
       "Go to the store and buy some more, 99 bottles of beer on the wall.\n"))

(deftest test-verse
  (is (= verse-8 (beer-song/verse 8)))
  (is (= verse-2 (beer-song/verse 2)))
  (is (= verse-1 (beer-song/verse 1)))
  (is (= verse-0 (beer-song/verse 0))))

(deftest test-song
  (is (= song-8-6 (beer-song/sing 8 6)))
  (is (= song-3-0 (beer-song/sing 3))))

Version data entries

396 entries across 396 versions & 1 rubygems

Version Path
trackler-2.2.1.139 tracks/clojure/exercises/beer-song/test/beer_song_test.clj
trackler-2.2.1.138 tracks/clojure/exercises/beer-song/test/beer_song_test.clj
trackler-2.2.1.137 tracks/clojure/exercises/beer-song/test/beer_song_test.clj
trackler-2.2.1.136 tracks/clojure/exercises/beer-song/test/beer_song_test.clj
trackler-2.2.1.135 tracks/clojure/exercises/beer-song/test/beer_song_test.clj
trackler-2.2.1.134 tracks/clojure/exercises/beer-song/test/beer_song_test.clj
trackler-2.2.1.133 tracks/clojure/exercises/beer-song/test/beer_song_test.clj
trackler-2.2.1.132 tracks/clojure/exercises/beer-song/test/beer_song_test.clj
trackler-2.2.1.131 tracks/clojure/exercises/beer-song/test/beer_song_test.clj
trackler-2.2.1.130 tracks/clojure/exercises/beer-song/test/beer_song_test.clj
trackler-2.2.1.129 tracks/clojure/exercises/beer-song/test/beer_song_test.clj
trackler-2.2.1.128 tracks/clojure/exercises/beer-song/test/beer_song_test.clj
trackler-2.2.1.127 tracks/clojure/exercises/beer-song/test/beer_song_test.clj
trackler-2.2.1.126 tracks/clojure/exercises/beer-song/test/beer_song_test.clj
trackler-2.2.1.125 tracks/clojure/exercises/beer-song/test/beer_song_test.clj
trackler-2.2.1.124 tracks/clojure/exercises/beer-song/test/beer_song_test.clj
trackler-2.2.1.123 tracks/clojure/exercises/beer-song/test/beer_song_test.clj
trackler-2.2.1.122 tracks/clojure/exercises/beer-song/test/beer_song_test.clj
trackler-2.2.1.121 tracks/clojure/exercises/beer-song/test/beer_song_test.clj
trackler-2.2.1.120 tracks/clojure/exercises/beer-song/test/beer_song_test.clj