summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/oberdiek/iflang-test2.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/latex/oberdiek/iflang-test2.tex')
-rw-r--r--Master/texmf-dist/doc/latex/oberdiek/iflang-test2.tex110
1 files changed, 76 insertions, 34 deletions
diff --git a/Master/texmf-dist/doc/latex/oberdiek/iflang-test2.tex b/Master/texmf-dist/doc/latex/oberdiek/iflang-test2.tex
index 93afe55d192..6dc72d704eb 100644
--- a/Master/texmf-dist/doc/latex/oberdiek/iflang-test2.tex
+++ b/Master/texmf-dist/doc/latex/oberdiek/iflang-test2.tex
@@ -25,41 +25,83 @@
%% This work consists of the main source file iflang.dtx
%% and the derived files
%% iflang.sty, iflang.pdf, iflang.ins, iflang.drv,
-%% iflang-test1.tex, iflang-test2.tex, iflang-test3.tex.
+%% iflang-test1.tex, iflang-test2.tex, iflang-test3.tex,
+%% iflang-test4.tex, iflang-test5.tex.
%%
-%% Format `etex' based on `language.def'
-\input iflang.sty
-\catcode64=12
-
-\def\TestGeneric#1#2#3{%
- \begingroup
- \edef\x{#1{#2}{true}{false}}%
- \edef\y{#3}%
- \ifx\x\y
- \else
- \errmessage{Failed test: \string#1{#2} <> #3}%
- \fi
- \endgroup
-}
-\def\TestPatterns{\TestGeneric\IfLanguagePatterns}
-\def\TestName{\TestGeneric\IfLanguageName}
-
-\TestPatterns{USenglish}{true}
-\TestPatterns{ngerman}{false}
-
-\TestName{USenglish}{true}
-\TestName{ngerman}{false}
-
-\uselanguage{ngerman}
-
-\TestPatterns{USenglish}{false}
-\TestPatterns{ngerman}{true}
-
-\TestName{USenglish}{false}
-\TestName{ngerman}{true}
-
-\csname @@end\endcsname
-\end
+\NeedsTeXFormat{LaTeX2e}
+\nofiles
+\documentclass{minimal}
+\usepackage{qstest}
+\IncludeTests{*}
+\LogTests{log}{*}{*}
+\usepackage[english,naustrian,ngerman]{babel}
+\usepackage{iflang}
+\begin{document}
+\begin{qstest}{IfLanguagePatterns}{language, pattern}
+ \def\test#1#2{%
+ \Expect*{\IfLanguagePatterns{#1}{true}{false}}{#2}%
+ }%
+ \test{ngerman}{true}%
+ \test{naustrian}{true}%
+ \test{english}{false}%
+ \test{foobar}{false}%
+\end{qstest}
+\begin{qstest}{IfLanguageName}{language, name}
+ \def\test#1#2{%
+ \Expect*{\IfLanguageName{#1}{true}{false}}{#2}%
+ }%
+ \test{ngerman}{true}%
+ \test{naustrian}{false}%
+ \selectlanguage{naustrian}%
+ \test{ngerman}{false}%
+ \test{naustrian}{true}%
+ \test{foobar}{false}%
+ %
+ \def\languagename{naustrian}%
+ \test{naustrian}{true}%
+ \test{ngerman}{false}%
+ %
+ \edef\languagename{\string naustrian}%
+ \test{naustrian}{true}%
+ \test{ngerman}{false}%
+ %
+ \def\languagename{naustrian}%
+ \makeatletter
+ \@onelevel@sanitize\languagename
+ \test{naustrian}{true}%
+ \test{ngerman}{false}%
+ %
+ \def\languagename{naustrian}%
+ \def\xaustrian{naustrian}%
+ \def\xgerman{ngerman}%
+ \test{\xaustrian}{true}%
+ \test{\xgerman}{false}%
+ %
+ \def\languagename{\xaustrian}%
+ \test{naustrian}{true}%
+ \test{ngerman}{false}%
+ \test{\xaustrian}{true}%
+ \test{\xgerman}{false}%
+ \test{\languagename}{true}%
+ \test{\languagename\space}{false}%
+ %
+ \def\languagename{\empty\xaustrian\empty}%
+ \test{naustrian}{true}%
+ \test{ngerman}{false}%
+ \test{\empty\xaustrian\empty}{true}%
+ \test{\empty\xgerman\empty}{false}%
+\end{qstest}
+\begin{qstest}{IfDefined}{defined}
+ \makeatletter
+ \let\foobar\relax
+ \Expect*{\IfLang@IfDefined{foobar}{true}{false}}{false}%
+ \Expect*{\ifx\foobar\relax true\else false\fi}{true}%
+ \let\foobar\UNDEFINED
+ \Expect*{\IfLang@IfDefined{foobar}{true}{false}}{false}%
+ \Expect*{\ifx\foobar\relax true\else false\fi}{false}%
+ \Expect*{\ifx\foobar\UNDEFINED true\else false\fi}{true}%
+\end{qstest}
+\end{document}
\endinput
%%
%% End of file `iflang-test2.tex'.