[rkward-cvs] SF.net SVN: rkward-code:[4868] trunk/rkward/tests/rkward_application_tests. R

[tfry at users.sf.net]

Revision: 4868
          http://sourceforge.net/p/rkward/code/4868
Author:   tfry
Date:     2014-10-02 14:21:53 +0000 (Thu, 02 Oct 2014)
Log Message:
-----------
Fix x11-capturing stress test, and add stress test for RK device

Modified Paths:
--------------
    trunk/rkward/tests/rkward_application_tests.R

Modified: trunk/rkward/tests/rkward_application_tests.R
===================================================================
--- trunk/rkward/tests/rkward_application_tests.R	2014-10-02 13:39:58 UTC (rev 4867)
+++ trunk/rkward/tests/rkward_application_tests.R	2014-10-02 14:21:53 UTC (rev 4868)
@@ -246,11 +246,20 @@
 			# Since the error only appeared occasionally, we try 100 times to produce it. Unfortunately, that does make the test run annoyingly long...
 			graphics.off()
 			for (i in 1:100) {
-				rk.screen.device ()
+				rk.embed.device (grDevices::x11())
 				plot (rnorm (100), main=paste (i, "/ 100"))
 				dev.off ()
 			}
 		}),
+		new ("RKTest", id="rk_device_stress_test", call=function () {
+			# Somewhat less annyoingly long test for the RK()-device. Stress testing esp. the open/close operations has revealed at least one race-condition bug, previously.
+			graphics.off()
+			for (i in 1:25) {
+				RK ()
+				plot (rnorm (100), main=paste (i, "/ 100"))
+				dev.off ()
+			}
+		}),
 		new ("RKTest", id="output_capture_interleaving_test", call=function () {
 			rk.call.plugin ("rkward::testing_run_code", codetorun.text='
 				for (i in 1:20) {