45 lines
972 B
TeX
45 lines
972 B
TeX
%% These Functions are used within the test-suite
|
|
|
|
\def\avr@test@setup#1{%
|
|
\typeout{---- Test: #1 ----}%
|
|
\typeout{-> Initialize the AVR}%
|
|
\avr@init%
|
|
}
|
|
|
|
\def\avr@test@SREG#1{% Tests SREG for value
|
|
\avr@sreg@get{\@@SREG}%
|
|
\expandafter\ifstrequal\expandafter{\@@SREG}{#1}{%Success
|
|
}{%
|
|
\avr@error{SREG unequal: #1 != \@@SREG}%
|
|
}%
|
|
}
|
|
|
|
\def\avr@test@REG#1#2{% Tests SREG for value
|
|
\avr@reg@get{\csuse{avr@#1}}{\@@REG}%
|
|
\expandafter\ifstrequal\expandafter{\@@REG}{#2}{%Success
|
|
}{%
|
|
\avr@error{REG unequal: #2 != \@@REG}%
|
|
}%
|
|
}
|
|
|
|
\def\avr@test@MEM#1#2{% Tests MEM for value
|
|
\avr@mem@get{#1}{\@@MEM}%
|
|
\expandafter\ifstrequal\expandafter{\@@MEM}{#2}{%Success
|
|
}{%
|
|
\avr@error{MEM unequal: #2 != \@@MEM}%
|
|
}%
|
|
}
|
|
|
|
\def\avr@test@UDR#1{% Tests UDR output
|
|
\ifdefstring{\avr@UDR}{#1}{%Success
|
|
}{%
|
|
\avr@error{UDR unequal: #1 != \avr@UDR}%
|
|
}%
|
|
\def\avr@UDR{}%
|
|
}
|
|
|
|
%%% Local Variables:
|
|
%%% mode: latex
|
|
%%% TeX-master: "avr.tex"
|
|
%%% End:
|