+ testcase.pp

tests/test/readme.txt

@@ -24,3 +24,5 @@ Units ................. testu1.pp      tests init. & finalization and halt
                         testu3.pp      a type redefining problem
                         testu4.pp
                         testu5.pp
+case .................. testcase.pp    tests case statements with byte and word
+                                       sized decision variables

tests/test/testcase.pp

@@ -0,0 +1,56 @@
+program test_case;
+function case1(Val : byte) : char;
+begin
+  case Val of
+    0..25 : case1:=chr(Val + ord('A'));
+    26..51: case1:=chr(Val + ord('a') - 26);
+    52..61: case1:=chr(Val + ord('0') - 52);
+    62    : case1:='+';
+    63    : case1:='/';
+  else
+    case1:='$';
+  end;
+end;
+
+function case2(Val : integer) : integer;
+begin
+  case Val of
+    -1      : case2:=1;
+    32765..
+    32767   : case2:=2;
+  else
+    case2:=-1;
+  end;
+end;
+
+function case3(Val : integer) : integer;
+begin
+  case Val of
+    -32768..
+    -32766 : case3:=1;
+    0..10  : case3:=2;
+  else
+    case3:=-1;
+  end;
+end;
+
+var
+  error: boolean;
+
+begin
+  { The correct outputs should be:
+    F $
+    2 2
+    1 2 2
+  }
+  error := false;
+  writeln(case1(5), ' ', case1(255),' (should be: F $)');
+  error := (case1(5) <> 'F') or (case1(255) <> '$');
+  writeln(case2(32765), ' ', case2(32767),' (should be: 2 2)');
+  error := error or (case2(32765) <> 2) or (case2(32767) <> 2);
+  writeln(case3(-32768),' ',case3(0), ' ',case3(5),' (should be: 1 2 2)');
+  error := error or (case3(-32768) <> 1) or (case3(0) <> 2) or
+           (case3(5) <> 2);
+  if error then
+    halt(1);
+end.