diff --git a/hy_odoo/test.hy b/hy_odoo/test.hy new file mode 100644 index 0000000..788f056 --- /dev/null +++ b/hy_odoo/test.hy @@ -0,0 +1,26 @@ +;; -*- coding: utf-8 -*- +;; +;; Copyright 2021 Fabien Bourgeois +;; +;; This program is free software: you can redistribute it and/or modify +;; it under the terms of the GNU Affero General Public License as +;; published by the Free Software Foundation, either version 3 of the +;; License, or (at your option) any later version. +;; +;; 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 +;; GNU Affero General Public License for more details. +;; +;; You should have received a copy of the GNU Affero General Public License +;; along with this program. If not, see . + +" Hy Odoo Tests Helpers and Macros " + +(defmacro o-assert-equal [left right] `(.assertEqual self ~left ~right)) +(defmacro o-assert-in [left right] `(.assertIn self ~left ~right)) +(defmacro o-assert-raises [Error] `(.assertRaises self ~Error)) + +(defmacro odo-assert-raises [Error body] + "Macro to test Error with self.assertRaises and do block" + `(with [err (.assertRaises self ~Error)] ~body))