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

[tfry at users.sourceforge.net]

Revision: 2779
          http://rkward.svn.sourceforge.net/rkward/?rev=2779&view=rev
Author:   tfry
Date:     2010-03-09 11:49:54 +0000 (Tue, 09 Mar 2010)

Log Message:
-----------
Add test for output format options

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

Added Paths:
-----------
    trunk/rkward/tests/rkward_application_tests/RKTestStandard.output_graphics_formats.rkout

Added: trunk/rkward/tests/rkward_application_tests/RKTestStandard.output_graphics_formats.rkout
===================================================================
--- trunk/rkward/tests/rkward_application_tests/RKTestStandard.output_graphics_formats.rkout	                        (rev 0)
+++ trunk/rkward/tests/rkward_application_tests/RKTestStandard.output_graphics_formats.rkout	2010-03-09 11:49:54 UTC (rev 2779)
@@ -0,0 +1,5 @@
+<img src="graph.png" width="480" height="480"><br>
+<img src="graph.jpg" width="500" height="500"><br>
+<object data="graph.svg" type="image/svg+xml" width="300" height="480">
+<param name="src" value="graph.svg">
+This browser appears incapable of displaying SVG object. The SVG source is at: graph.svg</object>

Modified: trunk/rkward/tests/rkward_application_tests.R
===================================================================
--- trunk/rkward/tests/rkward_application_tests.R	2010-03-09 11:35:30 UTC (rev 2778)
+++ trunk/rkward/tests/rkward_application_tests.R	2010-03-09 11:49:54 UTC (rev 2779)
@@ -44,6 +44,15 @@
 			# promise should not be evaluated again
 			.GlobalEnv$promised.value <- 245
 			stopifnot (.GlobalEnv$promise.symbol == 123)
+		}),
+		new ("RKTest", id="output_graphics_formats", call=function () {
+			rk.graph.on(); plot (1, 1); rk.graph.off()	# should produce PNG, 480*480
+
+			options (rk.graphics.type="JPG", rk.graphics.width=500, rk.graphics.height=500, rk.graphics.jpg.quality=34)
+			rk.graph.on(); plot (1, 1); rk.graph.off()
+			rktest.initializeEnvironment ()	# restore options
+
+			rk.graph.on (device.type="SVG", width=300); plot (1, 1); rk.graph.off ()
 		})
 	# postCalls are run *after* all tests. Use this to clean up
 	), postCalls = list (


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