From 189bc7a40961ab6c20d24837d340ab33f2ec2b1e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= Date: Sat, 1 Nov 2014 22:11:48 +0100 Subject: [PATCH] FUEL: unit tests for fuel, only 2 so far but the number is expected to grow --- misc/fuel/fuel-tests.el | 35 +++++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 misc/fuel/fuel-tests.el diff --git a/misc/fuel/fuel-tests.el b/misc/fuel/fuel-tests.el new file mode 100644 index 0000000000..9d60a5e041 --- /dev/null +++ b/misc/fuel/fuel-tests.el @@ -0,0 +1,35 @@ +;;; fuel-tests.el -- unit tests for fuel + +;; Copyright (C) 2014 Björn Lindqvist +;; See http://factorcode.org/license.txt for BSD license. + +;; Author: Björn Lindqvist +;; Keywords: languages, fuel, factor +;; Start date: Sat Nov 01, 2014 + +;;; Commentary: + +;; Run the test suite using M-x ert RET t RET or: +;; +;; emacs -batch -l ert -l misc/fuel/fuel-tests.el \ +;; -f ert-run-tests-batch-and-exit + +;;; Code: + +;; Load fuel from the same directory the tests are in. +(add-to-list 'load-path (file-name-directory load-file-name)) + +(require 'ert) +(require 'fuel-markup) + +;; fuel-markup +(ert-deftest print-str () + (should (equal (fuel-markup--print-str "hello") "hello"))) + +(ert-deftest quotation () + (let ((quot '($quotation (effect ("args" "kw") ("ret") nil nil nil)))) + (should (equal + (with-temp-buffer + (fuel-markup--quotation quot) + (buffer-string)) + "a quotation with stack effect ( args kw -- ret )"))))