tests/cit-load.el

   1 ;;; cit-load.el --- Configuration when running the integration tests.
   2
   3 ;; Copyright (C) 2008, 2009, 2012, 2013 Eric M. Ludlam
   4
   5 ;; Author: Eric M. Ludlam <eric@siege-engine.com>
   6
   7 ;; This program is free software; you can redistribute it and/or
   8 ;; modify it under the terms of the GNU General Public License as
   9 ;; published by the Free Software Foundation; either version 2, or (at
  10 ;; your option) any later version.
  11
  12 ;; This program is distributed in the hope that it will be useful, but
  13 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15 ;; General Public License for more details.
  16
  17 ;; You should have received a copy of the GNU General Public License
  18 ;; along with this program; see the file COPYING.  If not, write to
  19 ;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  20 ;; Boston, MA 02110-1301, USA.
  21
  22 ;;; Commentary:
  23 ;;
  24 ;; Do a setup for running the integration tests.
  25 ;;
  26 ;; Disable various caches as needed to mimic a CEDET install that
  27 ;; is bootstrapping up for the first time.
  28
  29 ;;; Code:
  30
  31 (defvar cit-src-dir
  32   (let ((dir (file-name-directory
  33               (or load-file-name (buffer-file-name)))))
  34     (add-to-list 'load-path dir)
  35     dir)
  36   "Src dir to CIT testing suite.")
  37
  38 (setq inhibit-splash-screen t)
  39
  40 ;; Disable saving EDE's cache file.
  41 (setq ede-project-placeholder-cache-file nil)
  42
  43 ;; Disables all caches related to semantic DB so all
  44 ;; tests run as if we have bootstrapped CEDET for the
  45 ;; first time.
  46 (setq-default semanticdb-new-database-class 'semanticdb-project-database)
  47 (message "Disabling existing Semantic Database Caches.")
  48
  49 ;; Disabling the srecoder map, we won't load a pre-existing one
  50 ;; and will be forced to bootstrap a new one.
  51 (setq srecode-map-save-file nil)
  52
  53 ;; Turn on Semantic
  54 (semantic-mode 1)
  55
  56 ;; Disable asking lots of questions while the tests are running.
  57 (setq ede-project-directories t)
  58
  59 (require 'cedet-integ-test)
  60
  61 (provide 'cit-load)
  62 ;;; cit-load.el ends here