initial import

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@1 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 37 insertions, 0 deletions

diff --git a/tests/tbs/tb0311.pp b/tests/tbs/tb0311.pp
new file mode 100644
index 0000000000..7aec067fc1
--- /dev/null
+++ b/tests/tbs/tb0311.pp
@@ -0,0 +1,37 @@
+{ problem of conversion between
+  smallsets and long sets }
+type
+
+{ Command sets }
+
+  PCommandSet = ^TCommandSet;
+  TCommandSet = set of Byte;
+
+Const
+  cmValid   = 0;
+  cmQuit    = 1;
+  cmError   = 2;
+  cmMenu    = 3;
+  cmClose   = 4;
+  cmZoom    = 5;
+  cmResize  = 6;
+  cmNext    = 7;
+  cmPrev    = 8;
+  cmHelp    = 9;
+
+{ Application command codes }
+
+  cmCut     = 20;
+  cmCopy    = 21;
+  cmPaste   = 22;
+  cmUndo    = 23;
+  cmClear   = 24;
+  cmTile    = 25;
+  cmCascade = 26;
+
+  CurCommandSet: TCommandSet =
+    [0..255] - [cmZoom, cmClose, cmResize, cmNext, cmPrev];
+
+
+  begin
+  end.