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

[tfry at users.sf.net]

Revision: 4737
          http://sourceforge.net/p/rkward/code/4737
Author:   tfry
Date:     2013-05-01 17:55:53 +0000 (Wed, 01 May 2013)
Log Message:
-----------
This test is about embedded x11() device, not necassrily the configured device (probably RK())

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

Modified: trunk/rkward/tests/rkward_application_tests.R
===================================================================
--- trunk/rkward/tests/rkward_application_tests.R	2013-05-01 17:46:58 UTC (rev 4736)
+++ trunk/rkward/tests/rkward_application_tests.R	2013-05-01 17:55:53 UTC (rev 4737)
@@ -69,7 +69,7 @@
 			graphics.off()
 			stopifnot (is.null (dev.list ()))
 
-			plot (1, 1); x11(); plot (2, 2)
+			plot (1, 1); rk.embed.device (grDevices::x11()); plot (2, 2)
 
 			stopifnot (all.equal (as.numeric (dev.list ()), c (2, 3)))
 			dev.off (2)