compatibility with testthat

[appling]

expect_more_than loses the units of one of the two objects. For example:

> expect_more_than(u(1,"ho"),u(2,"ho"))
 Error in unitted_Ops(.Generic, e1, unitted(e2, NA)) : 
  Units mismatch in comparison 'e1 (ho) < e2 ()'