Merge commit 'ec7ba4f2dbae0901724483de5868127a1cbc38e9'

[gnu-emacs-elpa] / packages / test-simple / example / test-gcd.el

diff --git a/packages/test-simple/example/test-gcd.el b/packages/test-simple/example/test-gcd.el
index ce4ccae2d4dcfbc0a217ea4a08449b88992ab78d..8ffdce8806ea54f5522faa85494e133bc6d5a9dc 100644 (file)
--- a/packages/test-simple/example/test-gcd.el
+++ b/packages/test-simple/example/test-gcd.el
@@ -1,8 +1,29 @@
+;;; test-simple.el --- Simple Unit Test Framework for Emacs Lisp
+;; Copyright (C) 2015 Free Software Foundation, Inc
+
+;; Author: Rocky Bernstein <rocky@gnu.org>
+;; URL: http://github.com/rocky/emacs-test-simple
+;; Keywords: unit-test
+;; Version: 1.0
+
+;; 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 3 of the
+;; License, 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.  If not, see
+;; <http://www.gnu.org/licenses/>.
 (require 'test-simple)
 
 (test-simple-start)
 
-(assert-t (load-file "./gcd.el") 
+(assert-t (load-file "./gcd.el")
          "Can't load gcd.el - are you in the right directory?" )
 
 (note "degenereate cases")
@@ -14,7 +35,7 @@
 (assert-equal 1 (gcd 3 5) "gcd(3,5)")
 (assert-equal 8 (gcd 8 32) "gcd(8,32)")
 
-(assert-raises error (gcd "a" 32) 
+(assert-raises error (gcd "a" 32)
               "Passing a string value should raise an error")
 
 (end-tests)