summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/luatex/luatexbase/test-mcb-latex.tex
diff options
context:
space:
mode:
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.tex52
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
%%