fix(xanthous): Fix display of square/cubic units

Previously this'd display `5 m m³`, because it'd show the underlying
value then add the unit suffix on at the end

Change-Id: Idd240ddfebc212460f9fb529eff72732a5dafe2a
Reviewed-on: https://cl.tvl.fyi/c/depot/+/3241
Reviewed-by: grfn <grfn@gws.fyi>
Tested-by: BuildkiteCI
This commit is contained in:
Griffin Smith 2021-06-29 20:35:43 -04:00 committed by grfn
parent e62f578687
commit ad8d38c64c
2 changed files with 11 additions and 4 deletions

View file

@ -99,8 +99,11 @@ test = testGroup "Xanthous.Data"
, testGroup "units"
[ testGroup "unit suffixes"
[ testCase "density"
$ tshow (10000 :: Grams `Per` Cubic Meters)
@?= "10000.0 g/m³"
$ tshow (10000 :: Grams `Per` Cubic Meters) @?= "10000.0 g/m³"
, testCase "volume"
$ tshow (5 :: Cubic Meters) @?= "5.0 m³"
, testCase "area"
$ tshow (5 :: Square Meters) @?= "5.0 m²"
]
]
]