## Not run:
# # Example 1
# TRUE & FALSE
#
# # SCT option 1
# test_student_typed(c("TRUE & FALSE", "FALSE & TRUE"))
#
# # SCT option 2
# ex() %>% check_code(c("TRUE & FALSE", "FALSE & TRUE"), fixed = TRUE)
#
# # Example 2:
# "Hello, world!"
#
# # SCT option 1, robust to small typos
# test_student_typed("[H|h]ello,*\\s*[W|w]orld\\!*", fixed = FALSE)
#
# # SCT option 2, robust to small typos
# ex() %>% check_code("[H|h]ello,*\\s*[W|w]orld\\!*")
# ## End(Not run)
Run the code above in your browser using DataLab