inst/R-projects-test-example.ipynb

{
 "cells": [
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Checking Projects with testthat\n",
    "-----------------------------\n",
    "\n",
    "In this notebook, a testthat reporter sends test output to the jupyter client.\n",
    "To see this in action, paste this javascript into your console:\n",
    "\n",
    "```\n",
    "Jupyter.notebook.events.on(\n",
    "    \"finished_execute.CodeCell\",\n",
    "    (event, { cell } ) => console.log(cell)\n",
    ")\n",
    "```"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": null,
   "metadata": {
    "tags": [
     "tests"
    ]
   },
   "outputs": [],
   "source": [
    "# TODO: load testthat funcs into an envir, or make parent?\n",
    "library(testthat)\n",
    "IRkernel.testthat::run_tests({\n",
    "    test_that(\"a passing test\", {\n",
    "        expect_equal(2, 2)\n",
    "        expect_equal(3, 3)\n",
    "    })\n",
    "\n",
    "    test_that(\"a failing test\", {\n",
    "        expect_equal(2, 3)\n",
    "        expect_equal(3, 4)\n",
    "    })\n",
    "    \n",
    "    test_that(\"an erroring test\", {\n",
    "        stopifnot(FALSE)\n",
    "        expect_equat(2, 2)\n",
    "    })\n",
    "})"
   ]
  }
 ],
 "metadata": {
  "celltoolbar": "Edit Metadata",
  "kernelspec": {
   "display_name": "R",
   "language": "R",
   "name": "ir"
  },
  "language_info": {
   "codemirror_mode": "r",
   "file_extension": ".r",
   "mimetype": "text/x-r-source",
   "name": "R",
   "pygments_lexer": "r",
   "version": "3.3.1"
  }
 },
 "nbformat": 4,
 "nbformat_minor": 2
}