First basic function & test

Closes #18

NAMESPACE

@@ -1,2 +1,3 @@
 # Generated by roxygen2: do not edit by hand
 
+export(integer_addition)

R/integer-addition.R

@@ -0,0 +1,12 @@
+#' @name integer_addition
+#' @export
+#' @title adds two integers
+#' @description Adding two numbers
+#' @param a first integer
+#' @param b second integer
+
+integer_addition <- function( a, b )
+{
+  c <- a + b
+  return( c )
+}

tests/testthat/test-all.R

@@ -0,0 +1,5 @@
+#Modeled after the R6 testing structure: https://github.com/wch/R6/blob/master/tests/testthat.R
+library(testthat)
+library(rpackageskeleton)
+
+testthat::test_check("rpackageskeleton")

tests/testthat/test-integer-addition.R

@@ -0,0 +1,15 @@
+library(testthat)
+context("Integer addition")
+
+test_that("smoke-test", {
+  returned <- integer_addition(3,5)
+  expect_true(!is.null(returned))
+})
+
+test_that("vector-test", {
+  a <- 5:10
+  b <- -16:-11
+  expected <- -1L
+  returned <- integer_addition(3:6)
+  expect_equal(returned, expected)
+})