File: test-readtokens.sh

package info (click to toggle)
gnulib 20120404%2Bstable-1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 61,868 kB
  • sloc: ansic: 236,709; sh: 21,911; cpp: 1,533; yacc: 1,251; perl: 776; makefile: 296; lisp: 271; java: 5
file content (23 lines) | stat: -rwxr-xr-x 544 bytes parent folder | download | duplicates (7)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#!/bin/sh
. "${srcdir=.}/init.sh"; path_prepend_ .

fail=0

test-readtokens || fail=1

# Simplest case.
echo a:b:c: > exp || fail=1
printf a:b:c | test-readtokens : > out 2>&1 || fail=1
compare exp out || fail=1

# Use NUL as the delimiter.
echo a:b:c: > exp || fail=1
printf 'a\0b\0c' | test-readtokens '\0' > out 2>&1 || fail=1
compare exp out || fail=1

# Two delimiter bytes, and adjacent delimiters in the input.
echo a:b:c: > exp || fail=1
printf a:-:b-:c:: | test-readtokens :- > out 2>&1 || fail=1
compare exp out || fail=1

Exit $fail