% bug-test.mp -- Test for the presence or absence of known bugs.
%
% Ulrik Vieth, 1996/12/03.
%

% * String length bug: (reported to tex-implementors, 12/95)
% 
%   - if buggy, a string consisting of a single tab char |"^^I"| 
%     is reported to have length 3 instead of length 1

def show_length(expr s) =
  message("Length of string " & ditto & s & ditto);
  message("==> " & decimal(length(s)));
enddef;

message("* Test for string length bug:");

string s; s=char(9);
show_length(s);

string t; t="	"; % <-- tab char
show_length(t);


% * 8-bit chars in |btex ... etex|: (metafont@ens.fr, 11/95)
%
%   - if buggy, MP will complain about "Invalid character"
%
% (unfortunately can't assume dcr1000 is available; punt for now --karl.)

%message("* Test for 8-bit chars in btex...etex:");
%verbatimtex \font\dcr=dcr1000 etex;
%picture p;
%p = btex \dcr dv|DV\ etex; % <--  \"a\"o\"u\"A\"O\"U


% * big numbers in |btex ... etex|: (metafont@ens.fr, 10/96)
%
%   - if buggy, MP will complain about "Number too large (4096)"

message("* Test for big numbers in btex...etex:");
picture q;
q = btex $2^{12} = 4096 \qquad 2^{15} = 32768$ etex;

end.