[project @ 2002-08-21 10:48:02 by simonmar]

Add test for large character values in literals, along with Char.ord.

testsuite/tests/ghc-regress/lib/should_run/all.T

 test('char001', 	normal, compile_and_run, [''])
+test('char002', 	normal, compile_and_run, [''])
+
 test('rand001',		normal, compile_and_run, [''])
 test('show001',		normal, compile_and_run, [''])
 test('text001',		normal, compile_and_run, [''])

testsuite/tests/ghc-regress/lib/should_run/char002.hs

+-- !!! tests for large character values in literals
+import Char
+main = do
+  print (ord '\xffff')
+  print (ord '\o7777')
+  print (ord '\65535')
+  print (map ord "\xffff\o7777\65535")

testsuite/tests/ghc-regress/lib/should_run/char002.stdout

+65535
+4095
+65535
+[65535,4095,65535]