From 59041dcce3340b95e100be8b6ad2bc52d7d2bc05 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Mon, 15 May 2000 09:00:39 +0000
Subject: [PATCH]   + testcase.pp

---
 tests/test/readme.txt  |  2 ++
 tests/test/testcase.pp | 56 ++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 58 insertions(+)
 create mode 100644 tests/test/testcase.pp

diff --git a/tests/test/readme.txt b/tests/test/readme.txt
index 28d2ae3154..83144698ce 100644
--- a/tests/test/readme.txt
+++ b/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
\ No newline at end of file
diff --git a/tests/test/testcase.pp b/tests/test/testcase.pp
new file mode 100644
index 0000000000..7ab8ab8854
--- /dev/null
+++ b/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.
\ No newline at end of file