[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