File: Test15

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-- 323 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
A[] = key

Test(M) =
   public.M = $M
   A.foreach(key) =>
      M = $(M.add $(key), new)
      export M

   new = $(M.find key)
   if $(equal $(new), new)
      println($"export M worked [SUCCESS]")
   else
      eprintln($"export M had no effect [FAILURE]")
      exit 1

X. =
   extends $(Map)
   $|key| = old

Test($X)