Permalink
Fetching contributors…
Cannot retrieve contributors at this time
32 lines (28 sloc) 1.38 KB
;; Copyright (c) 2013 The Finnish National Board of Education - Opetushallitus
;;
;; This program is free software: Licensed under the EUPL, Version 1.1 or - as
;; soon as they will be approved by the European Commission - subsequent versions
;; of the EUPL (the "Licence");
;;
;; You may not use this work except in compliance with the Licence.
;; You may obtain a copy of the Licence at: http://www.osor.eu/eupl/
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; European Union Public Licence for more details.
(ns aitu.source-test
"Tarkistuksia lähdekoodille."
(:require [clojure.test :refer [deftest testing is]]
[oph.source-util :refer :all]
[oph.source-test :refer :all]))
(deftest clj-debug-test
(is (empty? (vastaavat-rivit "src/clj"
#".*\.clj"
[#"println"]
;; palvelin.clj tulostaa käynnistyksen
;; poikkeukset login lisäksi stderr:iin.
:ohita ["src/clj/aitu/palvelin.clj"]))))
(deftest clj-testapi-auditlog-test
(is (empty? (vastaavat-muodot "src/clj/aitu/infra" audit-log-kutsu-puuttuu?
:polku-re #".*arkisto\.clj"))))