[rkward-cvs] SF.net SVN: rkward:[3069] trunk/rkward

[tfry at users.sourceforge.net]

Revision: 3069
          http://rkward.svn.sourceforge.net/rkward/?rev=3069&view=rev
Author:   tfry
Date:     2010-09-23 07:33:53 +0000 (Thu, 23 Sep 2010)

Log Message:
-----------
suppress noise in R 2.12.0

Modified Paths:
--------------
    trunk/rkward/ChangeLog
    trunk/rkward/tests/test_framework.R

Modified: trunk/rkward/ChangeLog
===================================================================
--- trunk/rkward/ChangeLog	2010-09-23 07:32:42 UTC (rev 3068)
+++ trunk/rkward/ChangeLog	2010-09-23 07:33:53 UTC (rev 3069)
@@ -1,3 +1,4 @@
+- Fixed: Running user commands would crash with R 2.12.0
 - Added full-featured plot history for the onscreen graphics device
 - Fixed: Potential crash when editing data-frame with duplicate column names
 - Added option to specify default onscreen graphics dimensions		TODO: test on windows

Modified: trunk/rkward/tests/test_framework.R
===================================================================
--- trunk/rkward/tests/test_framework.R	2010-09-23 07:32:42 UTC (rev 3068)
+++ trunk/rkward/tests/test_framework.R	2010-09-23 07:33:53 UTC (rev 3069)
@@ -85,7 +85,7 @@
 		if (!file.exists (standard_file)) return ("match (empty)")
 	}
 
-	output.diff <- system(paste("diff", shQuote(file), shQuote(standard_file), "--strip-trailing-cr", "--new-file"), intern=TRUE)
+	output.diff <- suppressWarnings (system(paste("diff", shQuote(file), shQuote(standard_file), "--strip-trailing-cr", "--new-file"), intern=TRUE))
 	if (!length (output.diff)) return ("match")
 	if ((length (output.diff) == 1) && (!nzchar (output.diff))) return ("match")
 


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