File: Test7

package info (click to toggle)
omake 0.10.7-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 14,076 kB
  • sloc: ml: 49,729; ansic: 5,163; makefile: 688; sh: 110
file content (20 lines) | stat: -rw-r--r-- 327 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#
# Produce a long string of 16-character lines
#
S[] =
i = 0
while $(lt $i, 500)
    S[] += $(sprintf %15d, $i)
    i = $(add $i, 1)
S = $(concat $(nl), $S)

#
# sprintf might truncate it
#
X1 = $(sprintf %s%s, $S, $S)
X2 = $S$S

if $(not $(equal $(X1), $(X2)))
    eprintln(sprintf truncation)
    eprintln($(X1))
    exit 1