Add isptest (active) and In.Mod (not yet used).

src/test/confidence/isptest/isptest.mod

@@ -0,0 +1,27 @@
+MODULE isptest;
+
+IMPORT Files, Texts, Out, Platform;
+
+CONST path="isptest.mod";
+
+VAR
+  T: Texts.Text;
+  R: Texts.Reader;
+  ch: CHAR;
+  i, j, k : LONGINT;
+BEGIN
+  NEW(T);
+  IF Files.Old(path) # NIL THEN
+    Texts.Open(T, path);
+    Texts.OpenReader(R, T, 0); Texts.Read(R, ch);
+    WHILE ~R.eot DO
+       Texts.Read(R, ch);
+       i := Texts.Pos(R);
+       Out.String("pos="); Out.Int(i,0); Out.String(" char="); Out.Char(ch); Out.Ln;
+       IF i = 21906 THEN
+         Out.String("21906"); Out.Ln;
+         (*Platform.Delay(10000);*)
+       END;
+    END;
+  END
+END isptest.

src/test/confidence/isptest/test.sh

@@ -0,0 +1,13 @@
+#!/bin/sh
+. ../testenv.sh
+$OBECOMP isptest.mod -m -O2
+./isptest >result-O2
+$OBECOMP isptest.mod -m -OC
+./isptest >result-OC
+echo --- Testing with Oberon 2 variable model --- >result
+cat result-O2 >>result
+echo "" >>result
+echo "" >>result
+echo --- Testing with Component Pascal variable model --- >>result
+cat result-OC >>result
+. ../testresult.sh