diff --git a/DESCRIPTION b/DESCRIPTION index 1c9f7fd..33e8714 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,10 +1,14 @@ Package: runthat Type: Package -Title: What the package does (short line) +Title: This is GUI test runner based on shiny and testthat. Version: 1.0 Date: 2013-11-14 -Author: Who wrote it +Authors@R: c(person("Amine", "Gassem", role = c("aut", "cre"), + email = "contact@ag-study.com"), + person("Najmeddine", "Nouri", role = c("aut", "cre"), + email = "najm.no@gmail.com")) +Author: Amine GASSEM and Najmeddine NOURI Imports: shiny,testthat -Maintainer: Who to complain to +Maintainer: Amine GASSEM and Najmeddine NOURI Description: More about what it does (maybe more than one line) -License: What license is it under? +License: GPL + file LICENSE diff --git a/NAMESPACE b/NAMESPACE index fddb88c..d0d4da4 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -1,5 +1,5 @@ import(shiny) import(testthat) -export(test_launcher) +export(runthat) export(HtmlReporter) exportClasses(HtmlReporter) diff --git a/R/launcher.R b/R/launcher.R index f942ead..83f86bf 100644 --- a/R/launcher.R +++ b/R/launcher.R @@ -1,4 +1,4 @@ -test_launcher <- function () +runthat <- function () shiny::runApp(system.file('shinyapp', package='runthat')) \ No newline at end of file diff --git a/R/reporter-html.R b/R/reporter-html.R index f146ee9..b0de21a 100644 --- a/R/reporter-html.R +++ b/R/reporter-html.R @@ -30,7 +30,7 @@ HtmlReporter <- setRefClass("HtmlReporter", contains = "Reporter", output <- "" lapply(results[[context]],function(result){ - output <<- paste(output,paste('' , + output <- paste(output,paste('' , '', '', '',sep='\n'),sep='\n') @@ -38,19 +38,6 @@ HtmlReporter <- setRefClass("HtmlReporter", contains = "Reporter", }) output <- paste(output,"
',result$test,' ',ifelse(result$passed,"OK","NO"),'
",sep="\n") render <<- function()output -# lapply(results[[context]],function(result){ -# if (result$passed) { -# cat(colourise(".", fg = "light green")) -# } else { -# failed <<- TRUE -# cat(paste0("labels: ",length(labels), '\n')) -# cat(paste0("test: ",test, '\n')) -# cat(paste0("passed: ",result$passed, ', ')) -# cat(paste0("error: ",result$error, '\n')) -# cat(paste0("message:\n", result$message ,'\n')) -# cat(paste0("elapsed time :", result$time,' seconds\n')) -# -# } } ) ) diff --git a/man/runthat-package.Rd b/man/runthat-package.Rd new file mode 100644 index 0000000..1f0b670 --- /dev/null +++ b/man/runthat-package.Rd @@ -0,0 +1,35 @@ +\name{runthat-package} +\alias{runthat-package} +\alias{runthat} +\docType{package} +\title{ +This is GUI test runner based on shiny and testthat. +} +\description{ +runthat make tests more handy and visual. +} +\details{ +\tabular{ll}{ +Package: \tab runthat\cr +Type: \tab Package\cr +Version: \tab 1.0\cr +Date: \tab 2013-11-14\cr +License: \tab GPL + file LICENSE\cr +} +You need just to install runthat and call runthat(). + +This will launch the main GUI interface. +You can give it : +your files, directory or packages for tests. +You can also chosse some tests to run. +} +\author{ +Amine GASSEM +and Najmeddine NOURI +} + + +\examples{ +library(runthat) +runthat() +} diff --git a/man/visualtest-package.Rd b/man/visualtest-package.Rd deleted file mode 100644 index a2a4dc6..0000000 --- a/man/visualtest-package.Rd +++ /dev/null @@ -1,41 +0,0 @@ -\name{visualtest-package} -\alias{visualtest-package} -\alias{visualtest} -\docType{package} -\title{ -What the package does (short line) -~~ package title ~~ -} -\description{ -More about what it does (maybe more than one line) -~~ A concise (1-5 lines) description of the package ~~ -} -\details{ -\tabular{ll}{ -Package: \tab visualtest\cr -Type: \tab Package\cr -Version: \tab 1.0\cr -Date: \tab 2013-11-14\cr -License: \tab What license is it under?\cr -} -~~ An overview of how to use the package, including the most important functions ~~ -} -\author{ -Who wrote it - -Maintainer: Who to complain to -~~ The author and/or maintainer of the package ~~ -} -\references{ -~~ Literature or other references for background information ~~ -} -~~ Optionally other standard keywords, one per line, from file KEYWORDS in the R ~~ -~~ documentation directory ~~ -\keyword{ package } -\seealso{ -~~ Optional links to other man pages, e.g. ~~ -~~ \code{\link[:-package]{}} ~~ -} -\examples{ -~~ simple examples of the most important functions ~~ -}