%PDF-
%PDF-
Mini Shell
Mini Shell
%%
%% This is file `test-mcb-plain.tex',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% luatexbase-mcb.dtx (with options: `testplain')
%%
%% Copyright (C) 2009 by Elie Roux <elie.roux@telecom-bretagne.eu>
%%
%% This work is under the CC0 license.
%% See source file 'luatexbase-mcb.dtx' for details.
%%
\input luatexbase-mcb.sty
\catcode 64 11
\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
\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 =====}
\bye
\endinput
%%
%% End of file `test-mcb-plain.tex'.
Zerion Mini Shell 1.0