[Robast-commits] r597 - in branches/robast-0.9/pkg/RobExtremes: inst inst/unitTests tests tests/TestSuite
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Tue Feb 12 12:00:21 CET 2013
Author: kroisand
Date: 2013-02-12 12:00:20 +0100 (Tue, 12 Feb 2013)
New Revision: 597
Added:
branches/robast-0.9/pkg/RobExtremes/inst/unitTests/
branches/robast-0.9/pkg/RobExtremes/inst/unitTests/runit.expectation.R
Removed:
branches/robast-0.9/pkg/RobExtremes/tests/TestSuite/TestExpectation.R
Modified:
branches/robast-0.9/pkg/RobExtremes/tests/testResult.html
branches/robast-0.9/pkg/RobExtremes/tests/testResult.txt
Log:
Tests etwas umorganisiert, sodass sie in der Installation mit dabei sind
Copied: branches/robast-0.9/pkg/RobExtremes/inst/unitTests/runit.expectation.R (from rev 596, branches/robast-0.9/pkg/RobExtremes/tests/TestSuite/TestExpectation.R)
===================================================================
--- branches/robast-0.9/pkg/RobExtremes/inst/unitTests/runit.expectation.R (rev 0)
+++ branches/robast-0.9/pkg/RobExtremes/inst/unitTests/runit.expectation.R 2013-02-12 11:00:20 UTC (rev 597)
@@ -0,0 +1,28 @@
+##########################################
+## ##
+## Tests for Expectation.R ##
+## ##
+##########################################
+
+# .setUp(), .tearDown():
+# Either one or both functions have to be provided by the test case
+# author, take precedence over the dummy definitions provided by the
+# RUnit package and are called once for every test case identified.
+
+# we construct different objects for testing the expectation operator
+.setUp <- function() {
+ # expectation of Pareto distributed random variable
+ expectation.Pareto <<- function(shape0=1,Min0=1){
+ X = Pareto(shape=shape0,Min=Min0)
+ return(E(X))
+ }
+}
+
+# test for the expectation of the pareto-distribution
+test.expectationPareto1 <- function() {
+ checkEquals(expectation.Pareto(1, 1), Inf)
+}
+
+test.expectationPareto2 <- function() {
+ checkEquals(expectation.Pareto(2, 1), 0)
+}
Deleted: branches/robast-0.9/pkg/RobExtremes/tests/TestSuite/TestExpectation.R
===================================================================
--- branches/robast-0.9/pkg/RobExtremes/tests/TestSuite/TestExpectation.R 2013-02-08 18:43:54 UTC (rev 596)
+++ branches/robast-0.9/pkg/RobExtremes/tests/TestSuite/TestExpectation.R 2013-02-12 11:00:20 UTC (rev 597)
@@ -1,28 +0,0 @@
-##########################################
-## ##
-## Tests for Expectation.R ##
-## ##
-##########################################
-
-# .setUp(), .tearDown():
-# Either one or both functions have to be provided by the test case
-# author, take precedence over the dummy definitions provided by the
-# RUnit package and are called once for every test case identified.
-
-# we construct different objects for testing the expectation operator
-.setUp{
- # expectation of Pareto distributed random variable
- expectation.Pareto = function(shape0=1,Min0=1){
- X = Pareto(shape=shape0,Min=Min0)
- return(E(X))
- }
-}
-
-# test for the expectation of the pareto-distribution
-test.expectationPareto1 <- function() {
- checkEquals(expectation.Pareto(1, 1), Inf)
-}
-
-test.expectationPareto2 <- function() {
- checkEquals(expectation.Pareto(2, 1), 0)
-}
Modified: branches/robast-0.9/pkg/RobExtremes/tests/testResult.html
===================================================================
--- branches/robast-0.9/pkg/RobExtremes/tests/testResult.html 2013-02-08 18:43:54 UTC (rev 596)
+++ branches/robast-0.9/pkg/RobExtremes/tests/testResult.html 2013-02-12 11:00:20 UTC (rev 597)
@@ -1,9 +1,9 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/transitional.dtd">
-<html><head><title>RUNIT TEST PROTOCOL--Tue Sep 18 10:02:30 2012</title>
+<html><head><title>RUNIT TEST PROTOCOL--Tue Feb 12 11:55:11 2013</title>
</head>
-<body><h1 TRUE>RUNIT TEST PROTOCOL--Tue Sep 18 10:02:30 2012</h1>
-<p>Number of test functions: 1</p>
+<body><h1 TRUE>RUNIT TEST PROTOCOL--Tue Feb 12 11:55:11 2013</h1>
+<p>Number of test functions: 2</p>
<p>Number of errors: 0</p>
<p style=color:red>Number of failures: 1</p>
<hr>
@@ -15,7 +15,7 @@
<th width="20%">Failures</th>
</tr>
<tr><td><a href="#RUnit Tests for RobExtremes">RUnit Tests for RobExtremes</a></td>
-<td>1</td>
+<td>2</td>
<td>0</td>
<td bgcolor="red">1</td>
</tr>
@@ -26,7 +26,7 @@
<tr><th width="30%">Test suite : test function</th>
<th width="70%">message</th>
</tr>
-<tr><td><a href="#RUnit Tests for RobExtremes_._TestSuite_TestExpectation.R_test.expectationPareto">RUnit Tests for RobExtremes : test.expectationPareto</a></td>
+<tr><td><a href="#RUnit Tests for RobExtremes_._TestSuite_TestExpectationNeu.R_test.expectationPareto2">RUnit Tests for RobExtremes : test.expectationPareto2</a></td>
<td>Error in checkEquals(expectation.Pareto(2, 1), 0) :
Mean relative difference: 1
</td>
@@ -35,7 +35,7 @@
<hr>
<h3 TRUE>Details</h3>
<p><a name="RUnit Tests for RobExtremes"><h5 TRUE>Test Suite: RUnit Tests for RobExtremes</h5>
-</a>Test function regexp: ^test.+<br/>Test file regexp: ^Test.+R$<br/>Involved directory:<br/>./TestSuite<br/><ul><li><a href="./TestSuite/TestExpectation.R">Test file: TestExpectation.R</a><ul><li><a name="RUnit Tests for RobExtremes_._TestSuite_TestExpectation.R_test.expectationPareto"><u style=color:red>test.expectationPareto: FAILURE !! (check number 2) </u></a>Error in checkEquals(expectation.Pareto(2, 1), 0) :
+</a>Test function regexp: ^test.+<br/>Test file regexp: ^Test.+\.R$<br/>Involved directory:<br/>./TestSuite<br/><ul><li><a href="./TestSuite/TestExpectationNeu.R">Test file: TestExpectationNeu.R</a><ul><li><a name="RUnit Tests for RobExtremes_._TestSuite_TestExpectationNeu.R_test.expectationPareto1">test.expectationPareto1: (1 checks) ... OK (0.01 seconds)<br/></a></li><li><a name="RUnit Tests for RobExtremes_._TestSuite_TestExpectationNeu.R_test.expectationPareto2"><u style=color:red>test.expectationPareto2: FAILURE !! (check number 1) </u></a>Error in checkEquals(expectation.Pareto(2, 1), 0) :
Mean relative difference: 1
<br/></li></ul></li></li></li></li></li></li></li></li></li></li></li></li></li></ul><hr>
<table border="0" width="80%" >
@@ -43,7 +43,7 @@
<th>Value</th>
</tr>
<tr><td>platform</td>
-<td>x86_64-unknown-linux-gnu</td>
+<td>x86_64-suse-linux-gnu</td>
</tr>
<tr><td>arch</td>
<td>x86_64</td>
@@ -61,28 +61,31 @@
<td>2</td>
</tr>
<tr><td>minor</td>
-<td>14.1</td>
+<td>15.2</td>
</tr>
<tr><td>year</td>
-<td>2011</td>
+<td>2012</td>
</tr>
<tr><td>month</td>
-<td>12</td>
+<td>10</td>
</tr>
<tr><td>day</td>
-<td>22</td>
+<td>26</td>
</tr>
<tr><td>svn rev</td>
-<td>57956</td>
+<td>61015</td>
</tr>
<tr><td>language</td>
<td>R</td>
</tr>
<tr><td>version.string</td>
-<td>R version 2.14.1 (2011-12-22)</td>
+<td>R version 2.15.2 (2012-10-26)</td>
</tr>
+<tr><td>nickname</td>
+<td>Trick or Treat</td>
+</tr>
<tr><td>host</td>
-<td>linux-1lfc</td>
+<td>linus</td>
</tr>
<tr><td>compiler</td>
<td>g++</td>
Modified: branches/robast-0.9/pkg/RobExtremes/tests/testResult.txt
===================================================================
--- branches/robast-0.9/pkg/RobExtremes/tests/testResult.txt 2013-02-08 18:43:54 UTC (rev 596)
+++ branches/robast-0.9/pkg/RobExtremes/tests/testResult.txt 2013-02-12 11:00:20 UTC (rev 597)
@@ -1,13 +1,13 @@
-RUNIT TEST PROTOCOL -- Tue Sep 18 10:02:30 2012
+RUNIT TEST PROTOCOL -- Tue Feb 12 11:55:11 2013
***********************************************
-Number of test functions: 1
+Number of test functions: 2
Number of errors: 0
Number of failures: 1
1 Test Suite :
-RUnit Tests for RobExtremes - 1 test function, 0 errors, 1 failure
-FAILURE in test.expectationPareto: Error in checkEquals(expectation.Pareto(2, 1), 0) :
+RUnit Tests for RobExtremes - 2 test functions, 0 errors, 1 failure
+FAILURE in test.expectationPareto2: Error in checkEquals(expectation.Pareto(2, 1), 0) :
Mean relative difference: 1
@@ -16,11 +16,12 @@
***************************
Test Suite: RUnit Tests for RobExtremes
Test function regexp: ^test.+
-Test file regexp: ^Test.+R$
+Test file regexp: ^Test.+\.R$
Involved directory:
./TestSuite
---------------------------
-Test file: ./TestSuite/TestExpectation.R
-test.expectationPareto: FAILURE !! (check number 2)
+Test file: ./TestSuite/TestExpectationNeu.R
+test.expectationPareto1: (1 checks) ... OK (0.01 seconds)
+test.expectationPareto2: FAILURE !! (check number 1)
Error in checkEquals(expectation.Pareto(2, 1), 0) :
Mean relative difference: 1
More information about the Robast-commits
mailing list