Add testing infrastructure

.travis.yml

@@ -0,0 +1,10 @@
+# Sample .travis.yml for R projects
+
+language: r
+warnings_are_errors: true
+sudo: required
+r_packages:
+  - covr
+
+after_success:
+  - Rscript -e 'covr::codecov()'

DESCRIPTION

@@ -1,13 +1,13 @@
 Package: memoise
-Title: Memoise functions
-Version: 0.2.99
+Title: Memoisation of Functions
+Version: 0.2.99.9000
 Author: Hadley Wickham <h.wickham@gmail.com>
 Maintainer: Hadley Wickham <h.wickham@gmail.com>
 Description: Cache the results of a function so that when you call it
     again with the same arguments it returns the pre-computed value.
-URL: http://github.com/hadley/memoise
-BugReports: http://github.com/hadley/memoise/issues
+URL: https://github.com/hadley/memoise
+BugReports: https://github.com/hadley/memoise/issues
 Imports:
     digest
+Suggests: testthat
 License: MIT + file LICENSE
-Roxygen: list(wrap = FALSE)

NAMESPACE

@@ -1,4 +1,4 @@
-# Generated by roxygen2 (4.0.0): do not edit by hand
+# Generated by roxygen2 (4.1.1): do not edit by hand
 
 export(forget)
 export(is.memoised)

NEWS.md

@@ -0,0 +1,18 @@
+# Version 0.2.99.9000
+
+# Version 0.2.1
+
+* Update to fix outstanding R CMD check issues.
+
+# Version 0.2 (2010-11-11)
+
+## New features
+
+* Memoised functions now have an attribute memoised=TRUE, and
+  is.memoised() tests whether a function is memoised. (Contributed by
+  Sietse Brouwer.)
+
+## Improvements
+
+* Documentation is now more elaborate, and hopefully more accessible to
+  newcomers. Thanks to Sietse Brouwer for the verbosity.

README.md

@@ -1,4 +1,5 @@
-# memoise
+# memoise [![Travis-CI Build Status](https://travis-ci.org/hadley/memoise.svg?branch=master)](https://travis-ci.org/hadley/memoise) [![Coverage Status](https://img.shields.io/codecov/c/github/hadley/memoise/master.svg)](https://codecov.io/github/hadley/memoise?branch=master)
+
 
 If a function is called multiple times with the same input, you can
 often speed things up by keeping a cache of known answers that it can

man/forget.Rd

@@ -1,4 +1,5 @@
-% Generated by roxygen2 (4.0.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
+% Please edit documentation in R/memoise.r
 \name{forget}
 \alias{forget}
 \title{Forget past results.

man/is.memoised.Rd

@@ -1,4 +1,5 @@
-% Generated by roxygen2 (4.0.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
+% Please edit documentation in R/memoise.r
 \name{is.memoised}
 \alias{is.memoised}
 \alias{is.memoized}

man/memoise.Rd

@@ -1,4 +1,5 @@
-% Generated by roxygen2 (4.0.0): do not edit by hand
+% Generated by roxygen2 (4.1.1): do not edit by hand
+% Please edit documentation in R/memoise.r
 \name{memoise}
 \alias{memoise}
 \alias{memoize}

tests/testthat.R

@@ -0,0 +1,4 @@
+library(testthat)
+library(memoise)
+
+test_check("memoise")

tests/testthat/test-memoise.R

@@ -0,0 +1,35 @@
+context("memoise")
+
+test_that("memoisation works", {
+  fn <- function() { i <<- i + 1; i }
+  i <- 0
+  fnm <- memoise(fn)
+  expect_equal(fn(), 1)
+  expect_equal(fn(), 2)
+  expect_equal(fnm(), 3)
+  expect_equal(fnm(), 3)
+  expect_equal(fn(), 4)
+  expect_equal(fnm(), 3)
+
+  forget(fnm)
+  expect_equal(fnm(), 5)
+
+  expect_true(is.memoised(fnm))
+  expect_false(is.memoised(fn))
+})
+
+test_that("memoisation depends on argument", {
+  fn <- function(j) { i <<- i + 1; i }
+  i <- 0
+  fnm <- memoise(fn)
+  expect_equal(fn(1), 1)
+  expect_equal(fn(1), 2)
+  expect_equal(fnm(1), 3)
+  expect_equal(fnm(1), 3)
+  expect_equal(fn(1), 4)
+  expect_equal(fnm(1), 3)
+  expect_equal(fnm(2), 5)
+  expect_equal(fnm(2), 5)
+  expect_equal(fnm(1), 3)
+  expect_equal(fn(2), 6)
+})