hledger/tests/add.test

##############################################################################
# data validation
#
# 1. should prompt again for a bad date
 rm -f t$$.j; bin/hledger -f t$$.j add; rm -f t$$.j
<<<
2009/1/32
>>> /date, or \. to end.*: date, or \. to end.*/
>>>=0

# 2. should accept a blank date
 rm -f t$$.j; bin/hledger -f t$$.j add; rm -f t$$.j
<<<

>>> /date,.*: description/
>>>=0

##############################################################################
# precision and commodity handling
#
# 3. simple add with no existing journal, no commodity entered
 rm -f t$$.j; bin/hledger -f t$$.j add; rm -f t$$.j
<<<


a
1000.0
b

.
>>> /^date, or \. to end \[.*\]: description \[\]: account 1: amount  1: account 2: amount  2 \[-1000.0\]: account 3, or \. to record: date, or \. to end \[.*\]: $/
>>>=0

# 4. default commodity with greater precision
 printf 'D $1000.00\n' >t$$.j; bin/hledger -f t$$.j add >/dev/null; cat t$$.j; rm -f t$$.j
<<<


a
$1000.0
b

.
>>> /a  +\$1000\.0/
>>>=0

# 5. default commodity with less precision
 printf 'D $1000.0\n' >t$$.j; bin/hledger -f t$$.j add >/dev/null; cat t$$.j; rm -f t$$.j
<<<


a
$1000.00
b

.
>>> /a  +\$1000\.00/
>>>=0

# 6. existing commodity with greater precision
 printf '2010/1/1\n a  $1000.00\n b\n' >t$$.j; bin/hledger -f t$$.j add >/dev/null; cat t$$.j; rm -f t$$.j
<<<


a
$1000.0
b

.
>>> /a  +\$1000\.0/
>>>=0

# 7. existing commodity with less precision
 printf '2010/1/1\n a  $1000.0\n b\n' >t$$.j; bin/hledger -f t$$.j add >/dev/null; cat t$$.j; rm -f t$$.j
<<<


a
$1000.00
b

.
>>> /a  +\$1000\.00/
>>>=0

# 8. no commodity entered, the (most recent) default commodity should be applied
 printf 'D $1000.0\nD £1,000.00\n' >t$$.j; bin/hledger -f t$$.j add; cat t$$.j; rm -f t$$.j
<<<
2010/1/1

a
1000
b

.
>>> /a  +£1,000.00/
>>>=0

# 9. default amounts should not fail to balance due to precision
rm -f nosuch.journal; bin/hledger -f nosuch.journal add; rm -f nosuch.journal
<<<
2010/1/1
x
a
0.25
b
0.5
c
>>> /amount  3 \[-0.75\]/
>>>=0