File: Test04

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 (17 lines) | stat: -rw-r--r-- 324 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
A. =
   extends $(Map)
   $|1| = 1
   $|2| = 2
   $|3| = 3

B = $(empty-map)

A.foreach(k, v) =>
   B = $(B.add $k, $v)
   export

if $(not $(equal $(A.keys), $(B.keys)))
   eprintln($"Bug: the Map.foreach function does not preserve exports!")
   eprintln($"Expected: $(A.keys)")
   eprintln($"Actual: $(B.keys)")
   exit 1