summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2011-12-20 14:42:43 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2011-12-20 14:42:43 +0000
commitae9ca1e2640b2a90c0dbb695f95bc6c3d36d42e2 (patch)
treef3514c83f8aa921eece2825fafe48196d8904a5b
parent5da58d536ebfbdf0ee8fc3bf0a0999a9098e2bb2 (diff)
ovp2ovf & Co: Bug fix and new test case
git-svn-id: svn://tug.org/texlive/trunk@24887 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Build/source/texk/web2c/Makefile.in14
-rw-r--r--Build/source/texk/web2c/omegafonts/ChangeLog9
-rw-r--r--Build/source/texk/web2c/omegafonts/Makefile.am7
-rw-r--r--Build/source/texk/web2c/omegafonts/Makefile.in10
-rw-r--r--Build/source/texk/web2c/omegafonts/font_routines.c10
-rwxr-xr-xBuild/source/texk/web2c/omegafonts/selectfont.test25
-rw-r--r--Build/source/texk/web2c/omegafonts/tests/sample.out51
-rw-r--r--Build/source/texk/web2c/omegafonts/tests/sample.ovp51
-rw-r--r--Build/source/texk/web2c/omegafonts/tests/sample0-h.opl26
-rw-r--r--Build/source/texk/web2c/omegaware/ChangeLog6
-rw-r--r--Build/source/texk/web2c/omegaware/am/omegaware.am9
-rwxr-xr-xBuild/source/texk/web2c/omegaware/selectfont.test27
-rw-r--r--Build/source/texk/web2c/omegaware/tests/sample.out36
-rw-r--r--Build/source/texk/web2c/omegaware/tests/sample.ovp36
-rw-r--r--Build/source/texk/web2c/omegaware/tests/sample0-h.opl11
15 files changed, 314 insertions, 14 deletions
diff --git a/Build/source/texk/web2c/Makefile.in b/Build/source/texk/web2c/Makefile.in
index ac3d66f2310..5341b1257d4 100644
--- a/Build/source/texk/web2c/Makefile.in
+++ b/Build/source/texk/web2c/Makefile.in
@@ -1562,10 +1562,12 @@ EXTRA_DIST = PROJECTS cftests cpascal.h help.h w2c/config.h \
omegaware/tests/ofontv6.opl omegaware/tests/ofontv6.ovp \
omegaware/tests/Cherokee.pl omegaware/tests/OCherokee.ovp \
omegaware/tests/repeat.opl omegaware/tests/repeated.opl \
- omegaware/tests/specialhex.ovp $(aleph_web_srcs) \
- $(aleph_ch_srcs) alephdir/ChangeLog alephdir/aleph.defines \
- alephdir/aleph.version $(aleph_tests) synctexdir/ChangeLog \
- synctexdir/README.txt synctexdir/synctex_parser_readme.txt \
+ omegaware/tests/sample.out omegaware/tests/sample.ovp \
+ omegaware/tests/sample0-h.opl omegaware/tests/specialhex.ovp \
+ $(aleph_web_srcs) $(aleph_ch_srcs) alephdir/ChangeLog \
+ alephdir/aleph.defines alephdir/aleph.version $(aleph_tests) \
+ synctexdir/ChangeLog synctexdir/README.txt \
+ synctexdir/synctex_parser_readme.txt \
synctexdir/synctex_parser_version.txt synctexdir/tests \
synctexdir/synctex-common.h synctexdir/synctex.c \
synctexdir/synctex.defines synctexdir/synctex.h \
@@ -1635,6 +1637,8 @@ DISTCLEANFILES = $(EXTRA_LIBRARIES) CXXLD.sh tangle.c tangle.h \
omegaware/tests/OCherokee.opl omegaware/tests/OCherokee.ovf \
omegaware/tests/xCherokee.* omegaware/tests/xOCherokee.* \
cftest.p omegaware/tests/xrepeated.* \
+ omegaware/tests/sample*.ofm omegaware/tests/sample.ovf \
+ omegaware/tests/sample1-h.opl omegaware/tests/xsample.out \
omegaware/tests/specialhex.ofm omegaware/tests/specialhex.opl \
omegaware/tests/specialhex.ovf omegaware/tests/xspecialhex.* \
$(nodist_aleph_SOURCES) aleph.web aleph.ch aleph-web2c aleph.p \
@@ -2612,7 +2616,7 @@ OTANGLE_tests = omegaware/odvicopy.test omegaware/odvitype.test \
OMFONTS_tests = omegaware/level1.test omegaware/ofonts.test \
omegaware/omfonts.test omegaware/repeat.test \
- omegaware/specialhex.test
+ omegaware/selectfont.test omegaware/specialhex.test
# With --enable-ipc, Aleph may need to link with -lsocket.
diff --git a/Build/source/texk/web2c/omegafonts/ChangeLog b/Build/source/texk/web2c/omegafonts/ChangeLog
index 6770ecec9af..a424611a4b3 100644
--- a/Build/source/texk/web2c/omegafonts/ChangeLog
+++ b/Build/source/texk/web2c/omegafonts/ChangeLog
@@ -1,3 +1,12 @@
+2011-12-20 Peter Breitenlohner <peb@mppmu.mpg.de>
+
+ * font_routines.c (set_select_font): Select the correct MAPFONT.
+ Reported by Saito Shuzaburo via Akira Kakuto, 20 Dec 2011 08:49:10.
+
+ * selectfont.test, tests/sample.out, tests/sample.ovp,
+ tests/sample0-h.opl (new): Shell script and data for a new test.
+ * Makefile.am: Add the new test.
+
2011-05-30 Peter Breitenlohner <peb@mppmu.mpg.de>
* Makefile.am: Use ../../am/bin_links.am for $(bindir) links.
diff --git a/Build/source/texk/web2c/omegafonts/Makefile.am b/Build/source/texk/web2c/omegafonts/Makefile.am
index 421354c1eec..d770627dd89 100644
--- a/Build/source/texk/web2c/omegafonts/Makefile.am
+++ b/Build/source/texk/web2c/omegafonts/Makefile.am
@@ -1,6 +1,6 @@
## Makefile.am for the TeX Live subdirectory texk/web2c/omegafonts/
##
-## Copyright (C) 2009 - 2011 Peter Breitenlohner <tex-live@tug.org>
+## Copyright (C) 2009-2011 Peter Breitenlohner <tex-live@tug.org>
## You may freely use, modify and/or distribute this file.
##
AM_CPPFLAGS = -I$(top_builddir)/.. -I$(top_srcdir) $(KPATHSEA_INCLUDES) -DNOT_WEB2C
@@ -102,7 +102,7 @@ endif OTANGLE
## Tests
##
-OMFONTS_tests = charwd.test level1.test omfonts.test repeat.test specialhex.test
+OMFONTS_tests = charwd.test level1.test omfonts.test repeat.test selectfont.test specialhex.test
if OTANGLE
if OMFONTS
TESTS = $(OMFONTS_tests)
@@ -125,6 +125,9 @@ DISTCLEANFILES += tests/Cherokee.tfm tests/OCherokee.ofm \
## repeat.test
EXTRA_DIST += tests/repeat.opl tests/repeated.opl
DISTCLEANFILES += tests/xrepeated.*
+## selectfont.test
+EXTRA_DIST += tests/sample.out tests/sample.ovp tests/sample0-h.opl
+DISTCLEANFILES += tests/sample*.ofm tests/sample.ovf tests/sample1-h.opl tests/xsample.out
## specialhex.test
EXTRA_DIST += tests/specialhex.ovp
DISTCLEANFILES += tests/specialhex.ofm tests/specialhex.opl \
diff --git a/Build/source/texk/web2c/omegafonts/Makefile.in b/Build/source/texk/web2c/omegafonts/Makefile.in
index f02ddb56a89..fe71848de41 100644
--- a/Build/source/texk/web2c/omegafonts/Makefile.in
+++ b/Build/source/texk/web2c/omegafonts/Makefile.in
@@ -369,8 +369,9 @@ DISTCLEANFILES = pl-parser.output tests/charwdr.* tests/charwdv.* \
tests/xlevel1.ofm tests/xlevel1.opl tests/Cherokee.tfm \
tests/OCherokee.ofm tests/OCherokee.opl tests/OCherokee.ovf \
tests/xCherokee.* tests/xOCherokee.* tests/xrepeated.* \
- tests/specialhex.ofm tests/specialhex.opl tests/specialhex.ovf \
- tests/xspecialhex.*
+ tests/sample*.ofm tests/sample.ovf tests/sample1-h.opl \
+ tests/xsample.out tests/specialhex.ofm tests/specialhex.opl \
+ tests/specialhex.ovf tests/xspecialhex.*
linked_programs = ofm2opl opl2ofm ovf2ovp ovp2ovf
bin_links = \
omfonts$(EXEEXT):ofm2opl \
@@ -378,11 +379,12 @@ bin_links = \
omfonts$(EXEEXT):ovf2ovp \
omfonts$(EXEEXT):ovp2ovf
-OMFONTS_tests = charwd.test level1.test omfonts.test repeat.test specialhex.test
+OMFONTS_tests = charwd.test level1.test omfonts.test repeat.test selectfont.test specialhex.test
@OMFONTS_TRUE@@OTANGLE_TRUE@TESTS = $(OMFONTS_tests)
EXTRA_DIST = $(OMFONTS_tests) tests/charwd-r.pl tests/charwd-v.vpl \
tests/level1.opl tests/Cherokee.pl tests/OCherokee.ovp \
- tests/repeat.opl tests/repeated.opl tests/specialhex.ovp
+ tests/repeat.opl tests/repeated.opl tests/sample.out \
+ tests/sample.ovp tests/sample0-h.opl tests/specialhex.ovp
all: all-am
.SUFFIXES:
diff --git a/Build/source/texk/web2c/omegafonts/font_routines.c b/Build/source/texk/web2c/omegafonts/font_routines.c
index c8557bd0a67..a7966590b28 100644
--- a/Build/source/texk/web2c/omegafonts/font_routines.c
+++ b/Build/source/texk/web2c/omegafonts/font_routines.c
@@ -446,7 +446,15 @@ get_hex(unsigned char c)
void
set_select_font(unsigned f)
{
- append_command_2(DVI_FNT_NUM_0, DVI_FNT_NUM_63, DVI_FNT_1, f);
+ unsigned i;
+
+ for (i = 0; i < no_fonts; i++)
+ if (f == font_table[i].font_number) {
+ append_command_2(DVI_FNT_NUM_0, DVI_FNT_NUM_63, DVI_FNT_1, i);
+ return;
+ }
+
+ internal_error_1("undefined MAPFONT %d cannot be selected", f);
}
void
diff --git a/Build/source/texk/web2c/omegafonts/selectfont.test b/Build/source/texk/web2c/omegafonts/selectfont.test
new file mode 100755
index 00000000000..ddabe3de870
--- /dev/null
+++ b/Build/source/texk/web2c/omegafonts/selectfont.test
@@ -0,0 +1,25 @@
+#! /bin/sh
+
+# Copyright (C) 2011 Peter Breitenlohner <tex-live@tug.org>
+# You may freely use, modify and/or distribute this file.
+
+test -d tests || mkdir -p tests
+
+TEXMFCNF=$srcdir/../../kpathsea
+OFMFONTS=tests
+export TEXMFCNF OFMFONTS
+
+./omfonts -opl2ofm -verbose $srcdir/tests/sample0-h tests/sample0-h || exit 1
+
+./omfonts -opl2ofm -verbose $srcdir/tests/sample0-h tests/sample1-h || exit 1
+
+./omfonts -ofm2opl -verbose sample1-h tests/sample1-h || exit 1
+
+diff $srcdir/tests/sample0-h.opl tests/sample1-h.opl || exit 1
+
+./omfonts -ovp2ovf -verbose $srcdir/tests/sample tests/sample tests/sample || exit 1
+
+./omfonts -ovf2ovp -verbose tests/sample sample tests/xsample.out || exit 1
+
+diff $srcdir/tests/sample.out tests/xsample.out || exit 1
+
diff --git a/Build/source/texk/web2c/omegafonts/tests/sample.out b/Build/source/texk/web2c/omegafonts/tests/sample.out
new file mode 100644
index 00000000000..1f697187483
--- /dev/null
+++ b/Build/source/texk/web2c/omegafonts/tests/sample.out
@@ -0,0 +1,51 @@
+(VTITLE JVF for SAMPLE)
+(OFMLEVEL D 0)
+(FONTDIR TL)
+(FAMILY UNSPECIFIED)
+(FACE F MRR)
+(CODINGSCHEME UNSPECIFIED)
+(DESIGNSIZE R 10.0)
+(COMMENT DESIGNSIZE IS IN POINTS)
+(COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE)
+(CHECKSUM H 0)
+(SEVENBITSAFEFLAG FALSE)
+(FONTDIMEN
+ )
+(MAPFONT D 0
+ (FONTNAME sample0-h)
+ (FONTCHECKSUM H 0)
+ (FONTAT R 1.0)
+ (FONTDSIZE R 10.0)
+ )
+(MAPFONT D 1
+ (FONTNAME sample1-h)
+ (FONTCHECKSUM H 0)
+ (FONTAT R 1.0)
+ (FONTDSIZE R 10.0)
+ )
+(COMMENT
+ (CHARWD_ENTRY D 0 R 0.0)
+ (CHARWD_ENTRY D 1 R 1.0)
+ )
+(COMMENT
+ (CHARHT_ENTRY D 0 R 0.0)
+ )
+(COMMENT
+ (CHARDP_ENTRY D 0 R 0.0)
+ )
+(COMMENT
+ (CHARIC_ENTRY D 0 R 0.0)
+ )
+(CHARACTER H 2121
+ (CHARWD R 1.0)
+ (MAP
+ (SETCHAR H 0)
+ )
+ )
+(CHARACTER H 2122
+ (CHARWD R 1.0)
+ (MAP
+ (SELECTFONT D 1)
+ (SETCHAR H 0)
+ )
+ )
diff --git a/Build/source/texk/web2c/omegafonts/tests/sample.ovp b/Build/source/texk/web2c/omegafonts/tests/sample.ovp
new file mode 100644
index 00000000000..d83bd6f2ed6
--- /dev/null
+++ b/Build/source/texk/web2c/omegafonts/tests/sample.ovp
@@ -0,0 +1,51 @@
+(VTITLE JVF for SAMPLE)
+(OFMLEVEL D 0)
+(FONTDIR TL)
+(FAMILY UNSPECIFIED)
+(FACE F MRR)
+(CODINGSCHEME UNSPECIFIED)
+(DESIGNSIZE R 10.0)
+(COMMENT DESIGNSIZE IS IN POINTS)
+(COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE)
+(CHECKSUM H 0)
+(SEVENBITSAFEFLAG FALSE)
+(FONTDIMEN
+ )
+(MAPFONT D 0
+ (FONTNAME sample0-h)
+ (FONTCHECKSUM H 0)
+ (FONTAT R 1.0)
+ (FONTDSIZE R 10.0)
+ )
+(MAPFONT D 2
+ (FONTNAME sample1-h)
+ (FONTCHECKSUM H 0)
+ (FONTAT R 1.0)
+ (FONTDSIZE R 10.0)
+ )
+(COMMENT
+ (CHARWD_ENTRY D 0 R 0.0)
+ (CHARWD_ENTRY D 1 R 1.0)
+ )
+(COMMENT
+ (CHARHT_ENTRY D 0 R 0.0)
+ )
+(COMMENT
+ (CHARDP_ENTRY D 0 R 0.0)
+ )
+(COMMENT
+ (CHARIC_ENTRY D 0 R 0.0)
+ )
+(CHARACTER H 2121
+ (CHARWD R 1.0)
+ (MAP
+ (SETCHAR H 0)
+ )
+ )
+(CHARACTER H 2122
+ (CHARWD R 1.0)
+ (MAP
+ (SELECTFONT D 2)
+ (SETCHAR H 0)
+ )
+ )
diff --git a/Build/source/texk/web2c/omegafonts/tests/sample0-h.opl b/Build/source/texk/web2c/omegafonts/tests/sample0-h.opl
new file mode 100644
index 00000000000..e0b4e8a8c96
--- /dev/null
+++ b/Build/source/texk/web2c/omegafonts/tests/sample0-h.opl
@@ -0,0 +1,26 @@
+(FAMILY UNSPECIFIED)
+(FACE F MRR)
+(CODINGSCHEME UNSPECIFIED)
+(DESIGNSIZE R 10.0)
+(COMMENT DESIGNSIZE IS IN POINTS)
+(COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE)
+(CHECKSUM H 11AB1731)
+(SEVENBITSAFEFLAG TRUE)
+(FONTDIMEN
+ )
+(COMMENT
+ (CHARWD_ENTRY D 0 R 0.0)
+ (CHARWD_ENTRY D 1 R 1.0)
+ )
+(COMMENT
+ (CHARHT_ENTRY D 0 R 0.0)
+ )
+(COMMENT
+ (CHARDP_ENTRY D 0 R 0.0)
+ )
+(COMMENT
+ (CHARIC_ENTRY D 0 R 0.0)
+ )
+(CHARACTER H 0
+ (CHARWD R 1.0)
+ )
diff --git a/Build/source/texk/web2c/omegaware/ChangeLog b/Build/source/texk/web2c/omegaware/ChangeLog
index 324ffe226e3..42838ba68f3 100644
--- a/Build/source/texk/web2c/omegaware/ChangeLog
+++ b/Build/source/texk/web2c/omegaware/ChangeLog
@@ -1,3 +1,9 @@
+2011-12-20 Peter Breitenlohner <peb@mppmu.mpg.de>
+
+ * selectfont.test, tests/sample.out, tests/sample.ovp,
+ tests/sample0-h.opl (new): Shell script and data for a new test.
+ * am/omegaware.am: Add the new test.
+
2011-04-19 Peter Breitenlohner <peb@mppmu.mpg.de>
Avoid 'differ in signedness' warnings.
diff --git a/Build/source/texk/web2c/omegaware/am/omegaware.am b/Build/source/texk/web2c/omegaware/am/omegaware.am
index f7bb2e19897..b01ee06f7d3 100644
--- a/Build/source/texk/web2c/omegaware/am/omegaware.am
+++ b/Build/source/texk/web2c/omegaware/am/omegaware.am
@@ -1,6 +1,6 @@
## texk/web2c/omegaware/am/omegaware.am: Makefile fragment for omegaware web programs.
##
-## Copyright (C) 2009, 2010 Peter Breitenlohner <tex-live@tug.org>
+## Copyright (C) 2009-2011 Peter Breitenlohner <tex-live@tug.org>
## You may freely use, modify and/or distribute this file.
omegaware_tools = odvicopy odvitype otangle
@@ -97,7 +97,7 @@ OTANGLE_tests = omegaware/odvicopy.test omegaware/odvitype.test \
omegaware/otangle.test
OMFONTS_tests = omegaware/level1.test omegaware/ofonts.test \
omegaware/omfonts.test omegaware/repeat.test \
- omegaware/specialhex.test
+ omegaware/selectfont.test omegaware/specialhex.test
EXTRA_DIST += $(OTANGLE_tests) $(OMFONTS_tests)
if OTANGLE
@@ -144,6 +144,11 @@ DISTCLEANFILES += cftest.p
## omegaware/repeat.test
EXTRA_DIST += omegaware/tests/repeat.opl omegaware/tests/repeated.opl
DISTCLEANFILES += omegaware/tests/xrepeated.*
+## omegaware/selectfont.test
+EXTRA_DIST += omegaware/tests/sample.out omegaware/tests/sample.ovp \
+ omegaware/tests/sample0-h.opl
+DISTCLEANFILES += omegaware/tests/sample*.ofm omegaware/tests/sample.ovf \
+ omegaware/tests/sample1-h.opl omegaware/tests/xsample.out
## omegaware/specialhex.test
EXTRA_DIST += omegaware/tests/specialhex.ovp
DISTCLEANFILES += omegaware/tests/specialhex.ofm omegaware/tests/specialhex.opl \
diff --git a/Build/source/texk/web2c/omegaware/selectfont.test b/Build/source/texk/web2c/omegaware/selectfont.test
new file mode 100755
index 00000000000..15f2193ace8
--- /dev/null
+++ b/Build/source/texk/web2c/omegaware/selectfont.test
@@ -0,0 +1,27 @@
+#! /bin/sh
+
+# Copyright (C) 2011 Peter Breitenlohner <tex-live@tug.org>
+# You may freely use, modify and/or distribute this file.
+
+tests=omegaware/tests
+
+test -d $tests || mkdir -p $tests
+
+TEXMFCNF=$srcdir/../kpathsea
+OFMFONTS=./$tests
+export TEXMFCNF OFMFONTS
+
+./opl2ofm -verbose $srcdir/$tests/sample0-h $tests/sample0-h || exit 1
+
+./opl2ofm -verbose $srcdir/$tests/sample0-h $tests/sample1-h || exit 1
+
+./ofm2opl -verbose sample1-h $tests/sample1-h || exit 1
+
+diff $srcdir/$tests/sample0-h.opl $tests/sample1-h.opl || exit 1
+
+./ovp2ovf -verbose $srcdir/$tests/sample $tests/sample $tests/sample || exit 1
+
+./ovf2ovp -verbose $tests/sample sample $tests/xsample.out || exit 1
+
+diff $srcdir/$tests/sample.out $tests/xsample.out || exit 1
+
diff --git a/Build/source/texk/web2c/omegaware/tests/sample.out b/Build/source/texk/web2c/omegaware/tests/sample.out
new file mode 100644
index 00000000000..239d6143da4
--- /dev/null
+++ b/Build/source/texk/web2c/omegaware/tests/sample.out
@@ -0,0 +1,36 @@
+(VTITLE JVF for SAMPLE)
+(OFMLEVEL H 0)
+(FONTDIR TL)
+(FAMILY UNSPECIFIED)
+(FACE F MRR)
+(CODINGSCHEME UNSPECIFIED)
+(DESIGNSIZE R 10.0)
+(COMMENT DESIGNSIZE IS IN POINTS)
+(COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE)
+(CHECKSUM H 16497D66)
+(SEVENBITSAFEFLAG FALSE)
+(MAPFONT D 0
+ (FONTNAME sample0-h)
+ (FONTCHECKSUM H 11AB1731)
+ (FONTAT R 1.0)
+ (FONTDSIZE R 10.0)
+ )
+(MAPFONT D 1
+ (FONTNAME sample1-h)
+ (FONTCHECKSUM H 11AB1731)
+ (FONTAT R 1.0)
+ (FONTDSIZE R 10.0)
+ )
+(CHARACTER H 2121
+ (CHARWD R 1.0)
+ (MAP
+ (SETCHAR H 0)
+ )
+ )
+(CHARACTER H 2122
+ (CHARWD R 1.0)
+ (MAP
+ (SELECTFONT D 1)
+ (SETCHAR H 0)
+ )
+ )
diff --git a/Build/source/texk/web2c/omegaware/tests/sample.ovp b/Build/source/texk/web2c/omegaware/tests/sample.ovp
new file mode 100644
index 00000000000..0293ac4ca88
--- /dev/null
+++ b/Build/source/texk/web2c/omegaware/tests/sample.ovp
@@ -0,0 +1,36 @@
+(VTITLE JVF for SAMPLE)
+(OFMLEVEL H 0)
+(FONTDIR TL)
+(FAMILY UNSPECIFIED)
+(FACE F MRR)
+(CODINGSCHEME UNSPECIFIED)
+(DESIGNSIZE R 10.0)
+(COMMENT DESIGNSIZE IS IN POINTS)
+(COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE)
+(CHECKSUM H 16497D66)
+(SEVENBITSAFEFLAG FALSE)
+(MAPFONT D 0
+ (FONTNAME sample0-h)
+ (FONTCHECKSUM H 11AB1731)
+ (FONTAT R 1.0)
+ (FONTDSIZE R 10.0)
+ )
+(MAPFONT D 2
+ (FONTNAME sample1-h)
+ (FONTCHECKSUM H 11AB1731)
+ (FONTAT R 1.0)
+ (FONTDSIZE R 10.0)
+ )
+(CHARACTER H 2121
+ (CHARWD R 1.0)
+ (MAP
+ (SETCHAR H 0)
+ )
+ )
+(CHARACTER H 2122
+ (CHARWD R 1.0)
+ (MAP
+ (SELECTFONT D 2)
+ (SETCHAR H 0)
+ )
+ )
diff --git a/Build/source/texk/web2c/omegaware/tests/sample0-h.opl b/Build/source/texk/web2c/omegaware/tests/sample0-h.opl
new file mode 100644
index 00000000000..cdaaecd760f
--- /dev/null
+++ b/Build/source/texk/web2c/omegaware/tests/sample0-h.opl
@@ -0,0 +1,11 @@
+(FAMILY UNSPECIFIED)
+(FACE F MRR)
+(CODINGSCHEME UNSPECIFIED)
+(DESIGNSIZE R 10.0)
+(COMMENT DESIGNSIZE IS IN POINTS)
+(COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE)
+(CHECKSUM H 11AB1731)
+(SEVENBITSAFEFLAG TRUE)
+(CHARACTER H 0
+ (CHARWD R 1.0)
+ )