diff options
Diffstat (limited to 'Master/texmf-dist/doc/luatex/luatexbase/test-mcb-latex.tex')
-rw-r--r-- | Master/texmf-dist/doc/luatex/luatexbase/test-mcb-latex.tex | 52 |
1 files changed, 31 insertions, 21 deletions
diff --git a/Master/texmf-dist/doc/luatex/luatexbase/test-mcb-latex.tex b/Master/texmf-dist/doc/luatex/luatexbase/test-mcb-latex.tex index be36abc6d4a..8a242cbb08b 100644 --- a/Master/texmf-dist/doc/luatex/luatexbase/test-mcb-latex.tex +++ b/Master/texmf-dist/doc/luatex/luatexbase/test-mcb-latex.tex @@ -13,28 +13,38 @@ %% \RequirePackage{luatexbase-mcb} \catcode 64 11 -\luatexbase@directlua{ - local function one(head,...) - texio.write_nl("I'm number 1") - return head, true - end - - local function two(head,...) - texio.write_nl("I'm number 2") - return head, true - end - - local function three(head,...) - texio.write_nl("I'm number 3") - return head, true - end - - luatexbase.add_to_callback("hpack_filter",one,"my sample function one",1) - luatexbase.add_to_callback("hpack_filter",two,"my sample function two",2) - luatexbase.add_to_callback("hpack_filter",three,"my sample function three",1) - - luatexbase.remove_from_callback("hpack_filter","my sample function three") +\def\msg{\immediate\write16} +\msg{===== BEGIN =====} +\luatexbase@directlua{dofile('test-mcb.lua')} +\def\test#1#2{% + \msg{^^J*********^^J* Testing #1 (type #2)^^J*********} + \msg{* Add two functions} + \luatexbase@directlua{add_#1()} + \csname test_#1\endcsname + \msg{* Remove one} + \luatexbase@directlua{rm_one_#1()} + \csname test_#1\endcsname + \msg{* Remove the second} + \luatexbase@directlua{rm_two_#1()} + \csname test_#1\endcsname + \msg{* Add two functions again} + \luatexbase@directlua{add_#1()} + \csname test_#1\endcsname + \msg{* Remove all functions} + \luatexbase@directlua{luatexbase.reset_callback("#1")} + \csname test_#1\endcsname } +\catcode`\_ 11 +\everypar{} +\def\test_hpack_filter{\setbox0=\hbox{bla}} +\def\test_hyphenate{\showhyphens{hyphenation}} +\def\test_find_write_file{\immediate\openout15 test-mcb-out.log} +\def\test_process_input_buffer{\input test-mcb-aux.tex} +\test{hpack_filter}{list} +\test{hyphenate}{simple} +\test{find_write_file}{first} +\test{process_input_buffer}{data} +\msg{===== END =====} \stop \endinput %% |