* Tests for NAMESPACES directive

tests/test/nt.a.pp

@@ -0,0 +1,15 @@
+unit nt.a;
+
+interface
+
+Function GetIt : String;
+
+implementation
+
+Function GetIt : String;
+
+begin
+  getit:='a1';
+end;
+
+end.

tests/test/nt.nst.pp

@@ -0,0 +1,15 @@
+unit nt.nst;
+
+interface
+
+Procedure HelloThere;
+
+implementation
+
+Procedure HelloThere;
+
+begin
+  Writeln('Hello, there');
+end;
+
+end.

tests/test/nt2.a.pp

@@ -0,0 +1,15 @@
+unit nt2.a;
+
+interface
+
+Function GetIt : String;
+
+implementation
+
+Function GetIt : String;
+
+begin
+  getit:='a2';
+end;
+
+end.

tests/test/nt2.nst2.pp

@@ -0,0 +1,15 @@
+unit nt2.nst2;
+
+interface
+
+Procedure HelloThereToo;
+
+implementation
+
+Procedure HelloThereToo;
+
+begin
+  Writeln('Hello, there too!');
+end;
+
+end.

tests/test/tnamesp.pp

@@ -0,0 +1,7 @@
+{$NAMESPACES nt}
+
+uses nst;
+
+begin
+  hellothere;
+end.

tests/test/tnamesp2.pp

@@ -0,0 +1,8 @@
+{$NAMESPACES nt2,nt}
+
+uses nst,nst2;
+
+begin
+  hellothere;
+  hellothereToo;
+end.

tests/test/tnamesp3.pp

@@ -0,0 +1,15 @@
+// searched from last to first !
+{$NAMESPACES nt2,nt}
+
+uses a;
+
+var
+  which : string;
+begin
+  which:=GetIt;
+  if (which<>'a1') then
+    begin
+    Writeln('Wrong namespace used, expected a1, but got: ',which);
+    Halt(1);
+    end;
+end.