1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
#!/bin/sh
# PCP QA Test No. 1013
# Test QmcMetric::formatNumber
#
seq=`basename $0`
echo "QA output created by $seq"
status=1 # failure is the default!
. ./common.qt
trap "_cleanup_qt; exit \$status" 0 1 2 3 15
[ -x qt/qmc_format/qmc_format ] || _notrun "qmc_format not built or installed"
for i in \
0 \
0.00001 0.0001 0.001 0.01 0.1 1.0 10.0 100.0 1000.0 10000.0 \
1000000.0 10000000.0 100000000.0 1000000000.0 10000000000.0 \
100000000000.0 1000000000000.0 10000000000000.0 \
0.005 0.0051 9.995 9.9951 99.95 99.951 99950.0 99951.0 \
99950000.0 99951000.0 99950000000.0 99951000000.0 \
99950000000000.0 99951000000000.0
do
echo $i | $PCP_AWK_PROG '{printf("%17s = ", $1); }'
qt/qmc_format/qmc_format $i
echo -$i | $PCP_AWK_PROG '{printf("%17s = ", $1); }'
qt/qmc_format/qmc_format -$i
done
# success, all done
status=0
exit
|
