[isidorus-cvs] r140 - trunk/src/unit_tests

Lukas Giessmann lgiessmann at common-lisp.net
Wed Sep 9 07:56:23 UTC 2009


Author: lgiessmann
Date: Wed Sep  9 03:56:23 2009
New Revision: 140

Log:
unit-tests: added functions of the for run-<module-name>-tests to all unit-tests without such a function -> consiteny

Modified:
   trunk/src/unit_tests/atom_test.lisp
   trunk/src/unit_tests/versions_test.lisp

Modified: trunk/src/unit_tests/atom_test.lisp
==============================================================================
--- trunk/src/unit_tests/atom_test.lisp	(original)
+++ trunk/src/unit_tests/atom_test.lisp	Wed Sep  9 03:56:23 2009
@@ -28,7 +28,9 @@
                 duplicate-identifier-error)
   (:export :atom-test
            :test-feed-to-string
-           :test-collection-configuration))
+           :test-collection-configuration
+	   :test-changes-feeds
+	   :run-atom-tests))
 
 ;test configuration
 (in-package :atom-test)
@@ -204,3 +206,8 @@
             (mapcar #'type-of collection-entries)))
           )))
 
+
+(defun run-atom-tests()
+  (it.bese.fiveam:run! 'test-feed-to-string)
+  (it.bese.fiveam:run! 'test-changes-feeds)
+  (it.bese.fiveam:run! 'test-collection-configuration))
\ No newline at end of file

Modified: trunk/src/unit_tests/versions_test.lisp
==============================================================================
--- trunk/src/unit_tests/versions_test.lisp	(original)
+++ trunk/src/unit_tests/versions_test.lisp	Wed Sep  9 03:56:23 2009
@@ -32,7 +32,7 @@
            :test-change-lists
            :test-changed-p
            :versions-test
-           ))
+           :run-versions-tests))
 (declaim (optimize (debug 3)))
 
 (in-package :versions-test)
@@ -363,4 +363,12 @@
                                     :revision (1+ fixtures::revision3))))))
 
 
-            
\ No newline at end of file
+
+(defun run-versions-tests()
+  (it.bese.fiveam:run! 'test-get-item-by-id-t100)
+  (it.bese.fiveam:run! 'test-get-item-by-id-t301)
+  (it.bese.fiveam:run! 'test-norwegian-curriculum-association)
+  (it.bese.fiveam:run! 'test-instance-of-t64)
+  (it.bese.fiveam:run! 'test-change-lists)
+  (it.bese.fiveam:run! 'test-changed-p)
+  (it.bese.fiveam:run! 'test-mark-as-deleted))
\ No newline at end of file




More information about the Isidorus-cvs mailing list