> # no difference
> compare_numeric(1:3, 1:3)
v No differences

> compare_numeric(c(1, NA), c(1, NA))
v No differences

> compare_numeric(c(NA, 1), c(1, NA))
`x`: NA 1   
`y`:    1 NA

> # simple change
> compare_numeric(c(1, 2, 3), c(1, 2))
`x`: 1 2 3
`y`: 1 2  

> compare_numeric(c(1, 2), c(1, 2, 3))
`x`: 1 2  
`y`: 1 2 3

> compare_numeric(c(1, 10, 3), c(1, 2, 3))
`x`: 1 10 3
`y`: 1  2 3

> # equal length
> x <- c(1, 2, 3)
> compare_numeric(x, x + c(-1, 0, 1) * 0.001)
`x`: 1.000 2.000 3.000
`y`: 0.999 2.000 3.001

> compare_numeric(x, x + c(-1, 0, 1) * 1e-04)
`x`: 1.0000 2.0000 3.0000
`y`: 0.9999 2.0000 3.0001

> compare_numeric(x, x + c(-1, 0, 1) * 1e-05)
`x`: 1.00000 2.00000 3.00000
`y`: 0.99999 2.00000 3.00001

> compare_numeric(x, x + c(-1, 0, 1) * 1e-06)
`x`: 1.000000 2.000000 3.000000
`y`: 0.999999 2.000000 3.000001

> compare_numeric(x, x + c(-1, 0, 1) * 1e-07)
`x`: 1.0000000 2.0000000 3.0000000
`y`: 0.9999999 2.0000000 3.0000001

> compare_numeric(x, x + c(-1, 0, 1) * 1e-08)
v No differences

> compare_numeric(x, x + c(-1, 0, 1) * 1e-08, tolerance = 0)
`x`: 1.00000000 2.00000000 3.00000000
`y`: 0.99999999 2.00000000 3.00000001

> compare_numeric(x, x + c(-1, 0, 1) * 1e-09, tolerance = 0)
`x`: 1.000000000 2.000000000 3.000000000
`y`: 0.999999999 2.000000000 3.000000001

> compare_numeric(x, x + c(-1, 0, 1) * 1e-10, tolerance = 0)
`x`: 1.0000000000 2.0000000000 3.0000000000
`y`: 0.9999999999 2.0000000000 3.0000000001

> # unequal length
> compare_numeric(c(1, 2, NA), c(1, 2 + 1e-07, NA, 3))
`x`: 1         2   
`y`: 1 2.0000001  3

