tests/testthat/test-parse_gcode.R

library('testthat')

context("parse_gcode")
gcode_file_path = "extdata/raw_gcode.NC"
gcode_parsed = parse_gcode(system.file(gcode_file_path, package = "mtconnectR"))
gcode_parsed = gcode_parsed[1:50,]
data("example_gcode_parsed")
expect_equal(gcode_parsed,example_gcode_parsed)
systeminsights/mtconnectR documentation built on July 3, 2019, 1:37 p.m.