spec/augment-emacs.el

   1 ;;; augment.el --- Display metadata about code
   2
   3 ;; Copyright (C) 2007 Phil Hagelberg
   4
   5 ;; Author: Phil Hagelberg <technomancy@gmail.com>
   6 ;; Created: 19 Oct 2007
   7 ;; Version: 0.1
   8 ;; Keywords: augment testing metadata
   9
  10 ;; This file is part of the Augment system:
  11 ;; http://augment.rubyforge.org
  12
  13 (require 'elunit) ;; See http://www.emacswiki.org/cgi-bin/wiki/ElUnit
  14 (require 'augment)
  15
  16 (elunit-clear-suites)
  17 (defsuite augment-suite nil)
  18
  19 (deftest layer-from-json augment-suite
  20   "The layer struct should populated from JSON."
  21   (let ((layer (augment-layer-from-json "{\"message\":\"Found a white\",\"color\":\"white\",\"range\":\"221...226\"}")))
  22     (assert-equal 221 (layer-begin layer))
  23     (assert-equal 226 (layer-end layer))
  24     (assert-equal "white" (layer-color layer))
  25     (assert-equal "Found a white" (layer-message layer))))
  26
  27 ;; (deftest layer-file-load augment-suite
  28 ;;   "Ensure that a whole layer file loads properly."
  29 ;;   (let ((layers (augment-layers-from-file "fixtures/layers.json")))
  30 ;;     (assert-equal 3 (length layers))
  31 ;;     (assert-equal "cons" (layer-message (pop layers)))
  32 ;;     (assert-equal "car" (layer-message (pop layers)))
  33 ;;     (assert-equal "cdr" (layer-message (pop layers)))))
  34
  35 ;; (deftest render-layers augment-suite
  36 ;;   "Rendering layers should create overlays in a buffer."
  37 ;;   (with-output-to-temp-buffer "*augment-test*"
  38 ;;     ;; Fill the buffer with some garbage
  39 ;;     (dotimes (i 5) (princ "hello world.\n"))
  40 ;;     (augment-render-layers (augment-layers-from-file "fixtures/layers.json"))
  41 ;;     (assert-overlay nil)
  42 ;;     (assert-overlay nil)
  43 ;;     (assert-overlay nil)))
  44
  45 ;; (deftest layer-message augment-suite
  46 ;;   "Finding message at point should get the message of the layer the point is in."
  47 ;;   (with-output-to-temp-buffer "*augment-test*"
  48 ;;     ;; Fill the buffer with some garbage
  49 ;;     (dotimes (i 5) (princ "hello world.\n"))
  50 ;;     (augment-render-layers (augment-layers-from-file "fixtures/layers.json"))
  51 ;;     (goto-char 30)
  52 ;;     (assert-equal "cons" (augment-message-at-point))))
  53
  54 ;; (deftest watching augment-suite
  55 ;;   (let ((original-file "fixtures/drinks/lib/drink.rb")
  56 ;;      (layer-file "fixtures/drinks/lib/.augment/drink.rb"))
  57 ;;     (shell-command (concat "../bin/augment color " original-file))))
  58
  59 (elunit "augment-suite")