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

> # 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

> # FP differences
> 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.00000000 2.00000000 3.00000000
`y`: 0.99999990 2.00000000 3.00000010

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

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

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

> # zero tolerance
> compare_numeric(x, x + c(-1, 0, 1) * 1e-08, tolerance = 0)
`x`: 1.000000000 2.000000000 3.000000000
`y`: 0.999999990 2.000000000 3.000000010

> compare_numeric(x, x + c(-1, 0, 1) * 1e-09, tolerance = 0)
`x`: 1.0000000000 2.0000000000 3.0000000000
`y`: 0.9999999990 2.0000000000 3.0000000010

> 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

