1565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org;;; gyp-tests.el - unit tests for gyp-mode. 2565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org 3565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org;; Copyright (c) 2012 Google Inc. All rights reserved. 4565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org;; Use of this source code is governed by a BSD-style license that can be 5565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org;; found in the LICENSE file. 6565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org 7565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org;; The recommended way to run these tests is to run them from the command-line, 8565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org;; with the run-unit-tests.sh script. 9565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org 10565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org(require 'cl) 11565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org(require 'ert) 12565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org(require 'gyp) 13565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org 14565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org(defconst samples (directory-files "testdata" t ".gyp$") 15565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org "List of golden samples to check") 16565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org 17565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org(defun fontify (filename) 18565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org (with-temp-buffer 19565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org (insert-file-contents-literally filename) 20565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org (gyp-mode) 21565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org (font-lock-fontify-buffer) 22565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org (buffer-string))) 23565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org 24565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org(defun read-golden-sample (filename) 25565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org (with-temp-buffer 26565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org (insert-file-contents-literally (concat filename ".fontified")) 27565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org (read (current-buffer)))) 28565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org 297ab1ab090dfda4d004430d2f579edfc154158aa1tony@chromium.org(defun equivalent-face (face) 307ab1ab090dfda4d004430d2f579edfc154158aa1tony@chromium.org "For the purposes of face comparison, we're not interested in the 317ab1ab090dfda4d004430d2f579edfc154158aa1tony@chromium.org differences between certain faces. For example, the difference between 327ab1ab090dfda4d004430d2f579edfc154158aa1tony@chromium.org font-lock-comment-delimiter and font-lock-comment-face." 337ab1ab090dfda4d004430d2f579edfc154158aa1tony@chromium.org (case face 347ab1ab090dfda4d004430d2f579edfc154158aa1tony@chromium.org ((font-lock-comment-delimiter-face) font-lock-comment-face) 357ab1ab090dfda4d004430d2f579edfc154158aa1tony@chromium.org (t face))) 367ab1ab090dfda4d004430d2f579edfc154158aa1tony@chromium.org 37565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org(defun text-face-properties (s) 38565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org "Extract the text properties from s" 39565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org (let ((result (list t))) 40565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org (dotimes (i (length s)) 417ab1ab090dfda4d004430d2f579edfc154158aa1tony@chromium.org (setq result (cons (equivalent-face (get-text-property i 'face s)) 427ab1ab090dfda4d004430d2f579edfc154158aa1tony@chromium.org result))) 43565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org (nreverse result))) 44565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org 45565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org(ert-deftest test-golden-samples () 46565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org "Check that fontification produces the same results as the golden samples" 47565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org (dolist (sample samples) 48565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org (let ((golden (read-golden-sample sample)) 49565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org (fontified (fontify sample))) 50565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org (should (equal golden fontified)) 51565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org (should (equal (text-face-properties golden) 52565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org (text-face-properties fontified)))))) 53565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org 54565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org(defun create-golden-sample (filename) 55565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org "Create a golden sample by fontifying filename and writing out the printable 56565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org representation of the fontified buffer (with text properties) to the 57565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org FILENAME.fontified" 58565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org (with-temp-file (concat filename ".fontified") 59565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org (print (fontify filename) (current-buffer)))) 60565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org 61565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org(defun create-golden-samples () 62565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org "Recreate the golden samples" 63565fc074670ca3a171c2a7eb9e934b5080a153e2thakis@chromium.org (dolist (sample samples) (create-golden-sample sample))) 64