slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

test labels

Browse Source
This commit is contained in:
Simon Michael 2008-10-10 11:12:54 +00:00
parent d172cd0d6e
commit 19fbe17ff4
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Tests.hs
View File

@ -39,8 +39,9 @@ alltests = concattests [
tests = tests =
TestList TestList
[ [
show (dollars 1) ~?= "$1.00" "display dollar amount" ~: show (dollars 1) ~?= "$1.00"
,show (hours 1) ~?= "h1.00" -- should be 1.0h
,"display time amount" ~: show (hours 1) ~?= "1.0h"
,"amount precision" ~: do ,"amount precision" ~: do
let a1 = Amount (getcurrency "$") 1.23 1 let a1 = Amount (getcurrency "$") 1.23 1