diff --git a/hy_odoo/odoo.hy b/hy_odoo/odoo.hy
index a1eaafb..edaedf0 100644
--- a/hy_odoo/odoo.hy
+++ b/hy_odoo/odoo.hy
@@ -31,9 +31,10 @@
            value (if (string? value) f"'{value}'" value))
     (return f"('{field}', '{op}', {value})")))
 
-(defmacro o-mod [model-name]
-  "Odoo self.env model shortcut"
-  `(. self env [~model-name]))
+(defmacro o-cmod [model-name] `(. cls env [~model-name]))
+(defmacro o-mod [model-name] `(. self env [~model-name]))
+(defmacro o-cref [ref-name] `((. cls env ref) ~ref-name))
+(defmacro o-ref [ref-name] `((. self env ref) ~ref-name))
 
 (defmacro hydm [hy-domain]
   "Generate Odoo domain from Hy like tuple domain"
diff --git a/hy_odoo/test.hy b/hy_odoo/test.hy
index 788f056..bf1c5aa 100644
--- a/hy_odoo/test.hy
+++ b/hy_odoo/test.hy
@@ -18,6 +18,8 @@
 " Hy Odoo Tests Helpers and Macros "
 
 (defmacro o-assert-equal [left right] `(.assertEqual self ~left ~right))
+(defmacro o-assert-true [val] `(.assertTrue self ~val))
+(defmacro o-assert-false [val] `(.assertFalse self ~val))
 (defmacro o-assert-in [left right] `(.assertIn self ~left ~right))
 (defmacro o-assert-raises [Error] `(.assertRaises self ~Error))