Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

mods in cdbRemoveDB, test infrastructure

        deleted:    log/cdb.html
        modified:   tests/RUNIT_MAIN.R
        modified:   tests/runit.cdbMakeDB.R
        modified:   tests/runit.cdbRemoveDB.R
        modified:   log/cdb.check.html
        modified:   log/results/con1.html
        modified:   log/results/con2.html
        modified:   log/results/con2.png
        modified:   log/results/con3.html
        modified:   log/results/con3.png
        modified:   log/results/con4.html
        modified:   log/results/con4.png
        modified:   log/results/con5.html
        modified:   log/results/con5.png
        modified:   log/results/con6.html
        modified:   log/results/con6.png
        modified:   log/results/con7.html
        modified:   log/results/con7.png
        modified:   log/results/index.html
        modified:   log/results/result1.html
        modified:   log/results/result2.html
        modified:   log/results/result3.html
        modified:   log/results/result4.html
        modified:   log/results/result5.html
        modified:   log/results/result6.html
        modified:   log/results/result7.html
        modified:   tests/.Rhistory
        deleted:    tests/runit.main.R
  • Loading branch information...
commit ebf87233004c67c5199a400a14b253b3538c33db 1 parent 4e44d9d
@wactbprot authored
View
78 log/cdb.html
@@ -1,78 +0,0 @@
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
-"http://www.w3.org/TR/html4/transitional.dtd">
-<html><head><title>RUNIT TEST PROTOCOL--Thu Sep 17 22:55:26 2009</title>
-</head>
-<body><h1 TRUE>RUNIT TEST PROTOCOL--Thu Sep 17 22:55:26 2009</h1>
-<p>Number of test functions: 0</p>
-<p>Number of errors: 0</p>
-<p>Number of failures: 0</p>
-<hr>
-<h3 TRUE>1 Test suite</h3>
-<table border="1" width="60%" >
-<tr><th width="30%">Name</th>
-<th width="30%">Test functions</th>
-<th width="20%">Errors</th>
-<th width="20%">Failures</th>
-</tr>
-<tr><td><a href="#cdb">cdb</a></td>
-<td>0</td>
-<td>0</td>
-<td>0</td>
-</tr>
-</table>
-<hr>
-<h3 TRUE>Details</h3>
-<p><a name="cdb"><h5 TRUE>Test Suite: cdb</h5>
-</a>Test function regexp: ^test.+<br/>Test file regexp: ^runit.+\.[rR]$<br/>Involved directory:<br/>../R4CouchDB/R/<br/> no test files<br/><hr>
-<table border="0" width="80%" >
-<tr><th>Name</th>
-<th>Value</th>
-</tr>
-<tr><td>platform</td>
-<td>i686-pc-linux-gnu</td>
-</tr>
-<tr><td>arch</td>
-<td>i686</td>
-</tr>
-<tr><td>os</td>
-<td>linux-gnu</td>
-</tr>
-<tr><td>system</td>
-<td>i686, linux-gnu</td>
-</tr>
-<tr><td>status</td>
-<td></td>
-</tr>
-<tr><td>major</td>
-<td>2</td>
-</tr>
-<tr><td>minor</td>
-<td>9.1</td>
-</tr>
-<tr><td>year</td>
-<td>2009</td>
-</tr>
-<tr><td>month</td>
-<td>06</td>
-</tr>
-<tr><td>day</td>
-<td>26</td>
-</tr>
-<tr><td>svn rev</td>
-<td>48839</td>
-</tr>
-<tr><td>language</td>
-<td>R</td>
-</tr>
-<tr><td>version.string</td>
-<td>R version 2.9.1 (2009-06-26)</td>
-</tr>
-<tr><td>host</td>
-<td>linux-kwnr</td>
-</tr>
-<tr><td>compiler</td>
-<td>g++</td>
-</tr>
-</table>
-</body>
-</html>
View
10 tests/RUNIT_MAIN.R
@@ -1,9 +1,11 @@
library(RUnit)
## library(R4CouchDB)
+## loading the src files here ...
srcPath <- "../R4CouchDB/R/"
fn <- list.files(srcPath, pattern="R$")
for (k in 1:length(fn)) source(paste(srcPath,fn[k],sep=""))
+##... no need to build packages
logPath <- "../log/"
if(TRUE){
@@ -41,6 +43,14 @@ ccc <- inspect(
ccc$serverName <- "localhost"
+ccc$newDBName <- "runit_test_db"
+ccc$removeDBName <- ccc$newDBName
+
+ccc <- inspect(
+ cdbRemoveDB(ccc)
+ , track = track)
+ccc$error <- ""
+
ccc <- inspect(
cdbListDB(ccc)
, track = track)
View
4 tests/runit.cdbMakeDB.R
@@ -3,8 +3,6 @@ test.cdbMakeDB <- function(){
ccc$serverName <- "localhost"
ccc$DBName <- "runit_test_db"
- checkException(cdbMakeDB(ccc))
- checkException(cdbMakeDB(ccc))
- checkException(cdbMakeDB(ccc))
+ checkTrue(cdbRemoveDB(ccc)$error != "")
}
View
8 tests/runit.cdbRemoveDB.R
@@ -1,5 +1,11 @@
test.cdbRemoveDB <- function(){
+ ccc <- cdbIni()
+ ccc$serverName <- "localhost"
+ ccc$removeDBName <- "runit_test_db"
+ ccc$newDBName <- ccc$removeDBName
-
+ checkTrue(cdbRemoveDB(ccc)$error != "")
+ checkTrue(cdbMakeDB(ccc)$error == "" )
+ checkTrue(cdbRemoveDB(ccc)$error =="")
}
Please sign in to comment.
Something went wrong with that request. Please try again.