robotwar/test/hs_robotwar/core_test.clj

(ns hs-robotwar.core-test
  (:require [clojure.test :refer :all]
            [hs-robotwar.core :refer :all]))

(def line1 "IF DAMAGE # D GOTO MOVE")
(def line2 "AIM-17 TO AIM")
(def line3 "IF X<-5 GOTO SCAN")

(def tokens1 [{:token-str "IF", :pos 0} 
              {:token-str "DAMAGE", :pos 3} 
              {:token-str "#", :pos 10} 
              {:token-str "D", :pos 12} 
              {:token-str "GOTO", :pos 14} 
              {:token-str "MOVE", :pos 19}])

(def tokens2 [{:token-str "AIM", :pos 0} 
              {:token-str "-", :pos 3} 
              {:token-str "17", :pos 4} 
              {:token-str "TO", :pos 7} 
              {:token-str "AIM", :pos 10}])

(def tokens3 [{:token-str "IF", :pos 0} 
              {:token-str "X", :pos 3} 
              {:token-str "<", :pos 4} 
              {:token-str "-", :pos 5} 
              {:token-str "5", :pos 6} 
              {:token-str "GOTO", :pos 8} 
              {:token-str "SCAN", :pos 13}])

(deftest lex-simple
  (testing "lexing of simple line"
    (is (= (lex-line line1) 
           tokens1))))

(deftest lex-scrunched-chars
  (testing "lexing with no whitespace between operators and operands"
    (is (= (lex-line line2)
           tokens2)))) 

(deftest lex-negative-numbers
  (testing "lexing with unary negative operator"
    (is (= (lex-line line3)
           tokens3))))

(deftest lex-multi-line
  (testing "lexing multiple lines"
    (is (= (lex (clojure.string/join "\n" [line1 line2 line3]))
           (concat tokens1 tokens2 tokens3)))))