[rkward-cvs] SF.net SVN: rkward:[3533] trunk/rkward/rkward/rbackend/rpackages/ rkwardtests/R/rktest.setSuiteStandards.R

[tfry at users.sourceforge.net]

Revision: 3533
          http://rkward.svn.sourceforge.net/rkward/?rev=3533&view=rev
Author:   tfry
Date:     2011-04-27 18:09:23 +0000 (Wed, 27 Apr 2011)

Log Message:
-----------
Be somewhat less pedantic, and use rk.show.question for the 'are you sure' question.

Modified Paths:
--------------
    trunk/rkward/rkward/rbackend/rpackages/rkwardtests/R/rktest.setSuiteStandards.R

Modified: trunk/rkward/rkward/rbackend/rpackages/rkwardtests/R/rktest.setSuiteStandards.R
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkwardtests/R/rktest.setSuiteStandards.R	2011-04-27 18:02:07 UTC (rev 3532)
+++ trunk/rkward/rkward/rbackend/rpackages/rkwardtests/R/rktest.setSuiteStandards.R	2011-04-27 18:09:23 UTC (rev 3533)
@@ -28,8 +28,8 @@
 	if (!inherits (suite, "RKTestSuite")) return (result)
 	if (!validObject (suite)) return (result)
 
-	ok <- readline ("You are about to set new standards for this suite. This means you are certain that ALL tests in this suite have produced the expected/correct result on the last run. If you are absolutely sure, enter \"I am sure\" to proceed.");
-	if (ok != "I am sure") stop ("Aborted")
+	ok <- rk.show.question ("You are about to set new standards for this suite. This means you are certain that ALL tests in this suite have produced the expected/correct result on the last run. Are you absolutely sure, that you want to proceed?", caption="Really set new standards?");
+	if (!isTRUE (ok)) stop ("Aborted")
 
 	oldwd = getwd ()
 	on.exit (setwd (oldwd))


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