Running ‘test-clip.R’ [2s/3s]
  Running ‘test-paths.R’ [9s/13s]
  Running ‘test-raster.R’ [1s/1s]
  Running ‘test-rect.R’ [1s/2s]
  Running ‘test-symbol.R’ [2s/3s]
Running the tests in ‘tests/test-paths.R’ failed.
Complete output:
  > library(grid)
  > library(grImport2)
  > library(gridSVG)
  
  Attaching package: 'gridSVG'
  
  The following object is masked from 'package:grDevices':
  
      dev.off
  
  > 
  > pic <- readPicture("test-path-simple-input.svg")
  > 
  > gridsvg("test-path-simple-output.svg", width = 6, height = 6, annotate = FALSE)
  > grid.picture(pic, expansion = 0)
  > dev.off()
  > 
  > pic <- readPicture("test-path-complex-input.svg")
  > 
  > gridsvg("test-path-complex-output.svg", width = 6, height = 6, annotate = FALSE)
  > grid.picture(pic, expansion = 0)
  > dev.off()
  > 
  > ## Encoding in SVG file (on line 1) differs by platform
  > model <- readLines("test-path-simple-output.svg.save")[-1]
  Warning message:
  In readLines("test-path-simple-output.svg.save") :
    incomplete final line found on 'test-path-simple-output.svg.save'
  > test <- readLines("test-path-simple-output.svg")[-1]
  Warning message:
  In readLines("test-path-simple-output.svg") :
    incomplete final line found on 'test-path-simple-output.svg'
  > same <- model == test
  > if (! all(same)) {
  +     stop(paste0("path-simple output not equal to expected output",
  +                 "------------------",
  +                 model[!same],
  +                 "------------------",
  +                 test[!same],
  +                 collapse="\n"))
  + }
  > 
  > model <- readLines("test-path-complex-output.svg.save")[-1]
  Warning message:
  In readLines("test-path-complex-output.svg.save") :
    incomplete final line found on 'test-path-complex-output.svg.save'
  > test <- readLines("test-path-complex-output.svg")[-1]
  Warning message:
  In readLines("test-path-complex-output.svg") :
    incomplete final line found on 'test-path-complex-output.svg'
  > same <- model == test
  > if (! all(same)) {
  +     stop(paste0("path-complex output not equal to expected output",
  +                 "------------------",
  +                 model[!same],
  +                 "------------------",
  +                 test[!same],
  +                 collapse="\n"))
  + }
  Error: path-complex output not equal to expected output------------------                  <path id="GRID.picPath.1150.1.1" d="M 210.2 208.1 L 210.2 208.1 L 210.21 208.04 L 210.23 207.98 L 210.26 207.92 L 210.3 207.88 L 210.34 207.85 L 210.34 207.85 L 210.37 207.84 L 210.4 207.83 L 210.43 207.82 L 210.46 207.82 L 210.49 207.82 L 210.49 207.82 L 210.55 207.82 L 210.61 207.84 L 210.67 207.86 L 210.72 207.9 L 210.76 207.94 L 210.76 207.94 L 210.8 208 L 210.83 208.09 L 210.87 208.2 L 210.89 208.33 L 210.91 208.47 L 210.91 208.47 L 210.89 208.43 L 210.85 208.39 L 210.81 208.36 L 210.77 208.33 L 210.74 208.31 L 210.74 208.31 L 210.69 208.29 L 210.65 208.28 L 210.6 208.27 L 210.55 208.27 L 210.51 208.26 L 210.51 208.26 L 210.42 208.27 L 210.33 208.29 L 210.24 208.32 L 210.17 208.37 L 210.11 208.42 L 210.11 208.42 L 210.06 208.48 L 210.02 208.56 L 209.99 208.64 L 209.97 208.73 L 209.96 208.82 L 209.96 208.82 L 209.97 208.91 L 209.99 209 L 210.02 209.09 L 210.06 209.17 L 210.11 209.24 L 210.11
  Execution halted