Merge branch 'jc/test-seq'
Test fix. * jc/test-seq: test-lib-functions.sh: rewrite test_seq without Perl test-lib-functions.sh: remove misleading comment on test_seq
This commit is contained in:
commit
8648eacc1d
@ -718,20 +718,13 @@ test_cmp_rev () {
|
|||||||
test_cmp expect.rev actual.rev
|
test_cmp expect.rev actual.rev
|
||||||
}
|
}
|
||||||
|
|
||||||
# Print a sequence of numbers or letters in increasing order. This is
|
# Print a sequence of integers in increasing order, either with
|
||||||
# similar to GNU seq(1), but the latter might not be available
|
# two arguments (start and end):
|
||||||
# everywhere (and does not do letters). It may be used like:
|
|
||||||
#
|
#
|
||||||
# for i in $(test_seq 100)
|
# test_seq 1 5 -- outputs 1 2 3 4 5 one line at a time
|
||||||
# do
|
#
|
||||||
# for j in $(test_seq 10 20)
|
# or with one argument (end), in which case it starts counting
|
||||||
# do
|
# from 1.
|
||||||
# for k in $(test_seq a z)
|
|
||||||
# do
|
|
||||||
# echo $i-$j-$k
|
|
||||||
# done
|
|
||||||
# done
|
|
||||||
# done
|
|
||||||
|
|
||||||
test_seq () {
|
test_seq () {
|
||||||
case $# in
|
case $# in
|
||||||
@ -739,7 +732,12 @@ test_seq () {
|
|||||||
2) ;;
|
2) ;;
|
||||||
*) error "bug in the test script: not 1 or 2 parameters to test_seq" ;;
|
*) error "bug in the test script: not 1 or 2 parameters to test_seq" ;;
|
||||||
esac
|
esac
|
||||||
perl -le 'print for $ARGV[0]..$ARGV[1]' -- "$@"
|
test_seq_counter__=$1
|
||||||
|
while test "$test_seq_counter__" -le "$2"
|
||||||
|
do
|
||||||
|
echo "$test_seq_counter__"
|
||||||
|
test_seq_counter__=$(( $test_seq_counter__ + 1 ))
|
||||||
|
done
|
||||||
}
|
}
|
||||||
|
|
||||||
# This function can be used to schedule some commands to be run
|
# This function can be used to schedule some commands to be run
|
||||||
|
Loading…
Reference in New Issue
Block a user