blob: d13c15d8912e5428605477cf2113410e5dac818a (
plain)
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
#ifexists This_Namespace
if (This_Namespace == "NS3")
{
if (current_namespace () != "NS3")
{
failed ("evalfile in NS3");
}
}
else
implements (This_Namespace);
%vmessage ("Loading ...");
% From this point on, define and variable defaults to static
private variable NS = This_Namespace;
define func ()
{
return NS;
}
#else
variable This_Namespace;
_debug_info = 1; () = evalfile ("inc.sl");
print ("Testing more NameSpace routines ...");
This_Namespace = "NS1";
() = evalfile (__FILE__);
This_Namespace = "NS2";
() = evalfile (__FILE__);
This_Namespace = "NS3";
() = evalfile (__FILE__, "NS3");
use_namespace ("NS1");
if (func () != "NS1")
failed ("use_namespace 1, found %s", func());
use_namespace ("NS2");
if (func () != "NS2")
failed ("use_namespace 2");
use_namespace ("Global");
if (is_defined ("func"))
failed ("use_namespace Global");
if (NS1->func () != "NS1")
failed ("NS1->func");
if (NS2->func () != "NS2")
failed ("NS2->func");
if ("NS1" != eval ("func", "NS1"))
failed ("eval in NS1");
if ("NS2" != eval ("func", "NS2"))
failed ("eval in NS2");
if ("NS3" != eval ("func", "NS3"))
failed ("eval in NS3");
if ("NS4" != eval ("current_namespace()", "NS4"))
failed ("eval in NS4");
implements ("foo");
variable X = "foo";
implements ("bar");
variable X = "bar";
if (foo->X != "foo")
failed ("foo");
if (bar->X != "bar")
failed ("bar");
print ("Ok\n");
exit (0);
#endif
|
