2010-11-16 18:59:12 +03:00
|
|
|
##############################################################################
|
|
|
|
# data validation
|
|
|
|
#
|
2011-01-19 15:32:18 +03:00
|
|
|
# 1. should prompt again for a bad date
|
2010-11-19 20:25:05 +03:00
|
|
|
rm -f add-default-commodity-$$.j; bin/hledger -f add-default-commodity-$$.j add; rm -f add-default-commodity-$$.j
|
2010-11-16 18:59:12 +03:00
|
|
|
<<<
|
|
|
|
2009/1/32
|
|
|
|
>>> /date .*: date .*/
|
|
|
|
#
|
2011-01-19 15:32:18 +03:00
|
|
|
# 2. should accept a blank date
|
2010-11-19 20:25:05 +03:00
|
|
|
rm -f add-default-commodity-$$.j; bin/hledger -f add-default-commodity-$$.j add; rm -f add-default-commodity-$$.j
|
2010-11-16 18:59:12 +03:00
|
|
|
<<<
|
|
|
|
|
|
|
|
>>> /date .*: description/
|
|
|
|
#
|
|
|
|
##############################################################################
|
|
|
|
# precision and commodity handling
|
|
|
|
#
|
2011-01-19 15:32:18 +03:00
|
|
|
# 3. simple add with no existing journal, no commodity entered
|
2010-11-16 18:08:06 +03:00
|
|
|
rm -f add-default-commodity-$$.j; bin/hledger -f add-default-commodity-$$.j add; rm -f add-default-commodity-$$.j
|
|
|
|
<<<
|
|
|
|
|
|
|
|
|
|
|
|
a
|
|
|
|
1000.0
|
|
|
|
b
|
|
|
|
|
|
|
|
.
|
2011-01-19 15:32:18 +03:00
|
|
|
>>> /^date \[.*\]: description \[\]: account 1: amount 1: account 2: amount 2 \[-1000.0\]: account 3: date \[.*\]: $/
|
2010-11-16 18:08:06 +03:00
|
|
|
#
|
2011-01-19 15:32:18 +03:00
|
|
|
# 4. default commodity with greater precision
|
2010-11-16 18:08:06 +03:00
|
|
|
printf 'D $1000.00\n' >add-default-commodity-$$.j; hledger -fadd-default-commodity-$$.j add >/dev/null; cat add-default-commodity-$$.j; rm -f add-default-commodity-$$.j
|
|
|
|
<<<
|
|
|
|
|
|
|
|
|
|
|
|
a
|
|
|
|
$1000.0
|
|
|
|
b
|
|
|
|
|
|
|
|
.
|
|
|
|
>>> /a +\$1000\.0/
|
|
|
|
#
|
2011-01-19 15:32:18 +03:00
|
|
|
# 5. default commodity with less precision
|
2010-11-16 18:08:06 +03:00
|
|
|
printf 'D $1000.0\n' >add-default-commodity-$$.j; hledger -fadd-default-commodity-$$.j add >/dev/null; cat add-default-commodity-$$.j; rm -f add-default-commodity-$$.j
|
|
|
|
<<<
|
|
|
|
|
|
|
|
|
|
|
|
a
|
|
|
|
$1000.00
|
|
|
|
b
|
|
|
|
|
|
|
|
.
|
|
|
|
>>> /a +\$1000\.00/
|
|
|
|
#
|
2011-01-19 15:32:18 +03:00
|
|
|
# 6. existing commodity with greater precision
|
2010-11-16 18:08:06 +03:00
|
|
|
printf '2010/1/1\n a $1000.00\n b\n' >add-default-commodity-$$.j; hledger -fadd-default-commodity-$$.j add >/dev/null; cat add-default-commodity-$$.j; rm -f add-default-commodity-$$.j
|
|
|
|
<<<
|
|
|
|
|
|
|
|
|
|
|
|
a
|
|
|
|
$1000.0
|
|
|
|
b
|
|
|
|
|
|
|
|
.
|
|
|
|
>>> /a +\$1000\.0/
|
|
|
|
#
|
2011-01-19 15:32:18 +03:00
|
|
|
# 7. existing commodity with less precision
|
2010-11-16 18:08:06 +03:00
|
|
|
printf '2010/1/1\n a $1000.0\n b\n' >add-default-commodity-$$.j; hledger -fadd-default-commodity-$$.j add >/dev/null; cat add-default-commodity-$$.j; rm -f add-default-commodity-$$.j
|
|
|
|
<<<
|
|
|
|
|
|
|
|
|
|
|
|
a
|
|
|
|
$1000.00
|
|
|
|
b
|
|
|
|
|
|
|
|
.
|
|
|
|
>>> /a +\$1000\.00/
|
2010-11-13 18:11:45 +03:00
|
|
|
#
|
2011-01-19 15:32:18 +03:00
|
|
|
# 8. no commodity entered, the (most recent) default commodity should be applied
|
2010-11-16 18:08:06 +03:00
|
|
|
printf 'D $1000.0\nD £1,000.00\n' >add-default-commodity-$$.j; hledger -fadd-default-commodity-$$.j add; cat add-default-commodity-$$.j; rm -f add-default-commodity-$$.j
|
|
|
|
<<<
|
|
|
|
2010/1/1
|
2010-11-13 18:11:45 +03:00
|
|
|
|
2010-11-16 18:08:06 +03:00
|
|
|
a
|
|
|
|
1000
|
|
|
|
b
|
2010-11-13 18:11:45 +03:00
|
|
|
|
2010-11-16 18:08:06 +03:00
|
|
|
.
|
2011-01-19 15:32:18 +03:00
|
|
|
>>> /a +£1,000.0/
|
|
|
|
# 9. default amounts should not fail to balance due to precision
|
2010-11-16 18:59:12 +03:00
|
|
|
bin/hledger -f nosuch.journal add
|
|
|
|
<<<
|
|
|
|
2010/1/1
|
|
|
|
x
|
|
|
|
a
|
|
|
|
0.25
|
|
|
|
b
|
|
|
|
0.5
|
|
|
|
c
|
|
|
|
>>> /amount 3 \[-0.75\]/
|