Update notes

Author: bradduthie

index.Rmd

@@ -1,7 +1,7 @@
 ---
 title: "Introduction to testing R code"
 author: "Brad Duthie"
-date: "15 APR 2025"
+date: "15 APR 2026"
 output:
   html_document:
     code_folding: show

index.html

@@ -2,7 +2,7 @@ library(testthat);
 context("Temperature function testing");
 source("temp_conversion.R");
 
-test_that("Fahrenheit to Celsius", {
+test_that("Fahrenheit to Celsius function", {
 
   temp_C <- F_to_C(50);
 
@@ -13,7 +13,7 @@ test_that("Fahrenheit to Celsius", {
   expect_that( object = temp_C, condition = equals(10) );
 })
 
-test_that("Celsius to Fahrenheit", {
+test_that("Celsius to Fahrenheit function", {
 
   temp_F <- C_to_F(10);
 

temperature/test-temp_conversion.R

@@ -0,0 +1,16 @@
+library(testthat);
+context("Temperature function testing new");
+source("temp_conversion.R");
+
+test_that("Fahrenheit to Celsius fail", {
+  
+  temp_C <- F_to_C(32);
+  
+  # Test that the result is numeric
+  expect_that( object = is.numeric(temp_C), condition = equals(TRUE) );
+  
+  # Test that the result is the correct value
+  expect_that( object = temp_C, condition = equals(0) );
+})
+
+