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

[tfry at users.sourceforge.net]

Revision: 3022
          http://rkward.svn.sourceforge.net/rkward/?rev=3022&view=rev
Author:   tfry
Date:     2010-09-12 17:41:17 +0000 (Sun, 12 Sep 2010)

Log Message:
-----------
Add a few dummy messages, to make it easier to identify, where exactly any test failures occur

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

Modified: trunk/rkward/tests/rkward_application_tests.R
===================================================================
--- trunk/rkward/tests/rkward_application_tests.R	2010-09-12 17:41:04 UTC (rev 3021)
+++ trunk/rkward/tests/rkward_application_tests.R	2010-09-12 17:41:17 UTC (rev 3022)
@@ -104,6 +104,7 @@
 			stopifnot (dev.cur() == 3)
 
 			## Navigation
+			message ("mark 1")
 			rk.previous.plot (2)
 			stopifnot (dev.cur() == 3)
 			dev.set (2)
@@ -122,13 +123,16 @@
 			stopifnot (identical (recordPlot(), plots[[1]]))
 
 			## Removing
+			message ("mark 2")
 			# The plot should be removed in device 3, too
 			rk.removethis.plot (2)
 			stopifnot (identical (recordPlot(), plots[[2]]))
+			message ("mark 3")
 			dev.set (3)
 			rk.first.plot (3)
 			stopifnot (identical (recordPlot(), plots[[2]]))
 
+			message ("mark 4")
 			# this time, the plot was shown in both devices. It should not have be removed in the other!
 			rk.removethis.plot (3)
 			stopifnot (identical (recordPlot(), plots[[3]]))
@@ -136,6 +140,7 @@
 			stopifnot (identical (recordPlot(), plots[[2]]))
 
 			## Reaching the history limit
+			message ("mark 5")
 			# three plots in history at this time, and one pending in device 2
 			dev.set (3)
 			rk.first.plot ()


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.