1
  
2
  
3
  
4
  
5
  
6
  
7
  
8
  
9
  
10
  
11
  
12
  
13
  
14
  
15
  
16
  
17
  
18
  
19
  
20
  
21
  
22
  
23
  
24
  
25
  
26
  
27
  
28
  
29
  
30
  
31
  
32
  
33
  
34
  
35
  
36
  
37
  
38
  
test_true([["$Id: testsuite.in,v 1.2 2002/08/02 23:24:24 nilsson Exp $"]]); 
 
dnl ADT.Stack 
 
test_any([[ 
  object s = ADT.Stack(); 
  s->push(1); 
  return s->pop(); 
]], 1) 
 
test_any([[ 
  object s = ADT.Stack(); 
  s->push(2); 
  s->push(3); 
  s->push(4); 
  s->pop(2); 
  return s->pop(); 
]], 2) 
 
test_any([[ 
  object s = ADT.Stack(); 
  s->push(5); 
  return s->top(); 
]], 5) 
 
 
dnl ADT.Table 
 
test_true(ADT.Table.table( 
 ({ ({ "a", "b", 42 }), 
    ({ "c", "b", 41 }), 
    ({ "a", "a", 76 }) }), 
 ({ "X", "Y", "z" }))->select("x", 2)->sum("Z")->distinct(0)->rsort("X") 
 ->rename(0, "fOo")->sort("foO")->cast("array"), 
 ({ ({ "a", 118 }), 
    ({ "c", 41 }) }))