From 32b1d6c502d1abf1bf20922d1c73bdc7db4b9c86 Mon Sep 17 00:00:00 2001 From: zappo Date: Sat, 26 Dec 2009 22:36:16 +0000 Subject: [PATCH] First pass of creating a distribution. --- test/manual/cedet/cit-dist.el | 59 +++++++++++++++++++++++++++++++++++ 1 file changed, 59 insertions(+) create mode 100644 test/manual/cedet/cit-dist.el diff --git a/test/manual/cedet/cit-dist.el b/test/manual/cedet/cit-dist.el new file mode 100644 index 00000000000..3d844d28505 --- /dev/null +++ b/test/manual/cedet/cit-dist.el @@ -0,0 +1,59 @@ +;;; cit-dist.el --- +;; +;; Copyright (C) 2009 Eric M. Ludlam +;; +;; Author: Eric M. Ludlam +;; X-RCS: $Id: cit-dist.el,v 1.1 2009-12-26 22:36:16 zappo Exp $ +;; +;; 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 2, 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; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + +;;; Commentary: +;; +;; Create a distribution, unpack it, and compile it somewhere. + +;;; Code: + +(defun cit-make-dist () + "Create a distribution, and test that it exists." + (cit-update-version) + + ;; 6.a) Create the distribution + (ede-make-dist) + (cit-wait-for-compilation) + + ;; Get the version number, then check for that file to exist. + (when (not (file-exists-p "CEDET_Integ_Test_Project-2.1.tar.gz")) + (error "Failed to create expected .tar.gz file.")) + + ;; @TODO - test extraction and build somewhere else. + + ) + + +(defun cit-update-version () + "Update the version number of the project. Verify code changes." + ;; 6.b) update the version number. + (ede-update-version "2.1") + + ;; Check it. + (let ((ver (oref (ede-toplevel) :version))) + (when (not (string= "2.1" ver)) + (error "Version number did not update correctly."))) + ) + +(provide 'cit-dist) + +;;; cit-dist.el ends here -- 2.39.5