From f82a3051a9b76a0ca000889245753dc997d917f6 Mon Sep 17 00:00:00 2001 From: Marco Wahl Date: Sun, 23 Sep 2018 17:03:00 +0200 Subject: [PATCH] test-org-bbdb.el: new tests * testing/lisp/test-org-bbdb.el (test-org-bbdb-anniv-extract-date): Test function `org-bbdb-anniv-extract-date'. --- testing/lisp/test-org-bbdb.el | 36 +++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 testing/lisp/test-org-bbdb.el diff --git a/testing/lisp/test-org-bbdb.el b/testing/lisp/test-org-bbdb.el new file mode 100644 index 000000000..ce93d3cd8 --- /dev/null +++ b/testing/lisp/test-org-bbdb.el @@ -0,0 +1,36 @@ +;;; test-org-bbdb.el --- tests for org-bbdb.el -*- lexical-binding: t; -*- + +;; Copyright (C) 2018 Marco Wahl + +;; Author: +;; Keywords: calendar + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU 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 General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + +;;; Commentary: + +;; Test some of org-bbdb.el. + +;;; Code: + +(require 'org-bbdb) + +(ert-deftest test-org-bbdb-anniv-extract-date () + (should (equal nil (org-bbdb-anniv-extract-date "foo"))) + (should (equal '(9 22 2018) (org-bbdb-anniv-extract-date "2018-09-22"))) + (should (equal '(9 22 nil) (org-bbdb-anniv-extract-date "09-22")))) + +(provide 'test-org-bbdb) + +;;; test-org-bbdb.el ends here