diff --git a/src/main/clojure/jarvis/command.clj b/src/main/clojure/jarvis/command.clj index 94d81f5..5e885d9 100644 --- a/src/main/clojure/jarvis/command.clj +++ b/src/main/clojure/jarvis/command.clj @@ -61,7 +61,7 @@ (message "tags") (filter #(.startsWith % ":user:")) (map #(user->id %))) - (list (str (get-user-id-from-message message))))) + (list (get-user-id-from-message message)))) (defn- user->id [user] - (re-find #"\d+" user)) \ No newline at end of file + (re-find #"\d+" user)) diff --git a/src/test/clojure/jarvis/command_test.clj b/src/test/clojure/jarvis/command_test.clj index 68af7c1..0acc379 100644 --- a/src/test/clojure/jarvis/command_test.clj +++ b/src/test/clojure/jarvis/command_test.clj @@ -30,7 +30,7 @@ (deftest get-user-ids-from-tags (is (= (list "29988" "1234" "35899") (command/get-user-ids-from-tags (test-util/tagged-message)))) - (is (= (list "29983") + (is (= (list :29983) (command/get-user-ids-from-tags (test-util/message "~~help"))))) (deftest get-user-id-from-message @@ -61,4 +61,4 @@ (is (= false (command/private-message? (test-util/flow-add-message)))) (is (= false - (command/private-message? (test-util/flow-user-typing-message))))) \ No newline at end of file + (command/private-message? (test-util/flow-user-typing-message)))))