%!xelatex

\documentclass[12pt]{article}
\usepackage[papersize={100mm,100mm},margin=7mm]{geometry}
\parindent0pt
\pagestyle{empty}
\usepackage{fontspec}
\setmainfont[Mapping=tex-text]{Times New Roman}
\defaultfontfeatures{Scale=MatchLowercase,Numbers=OldStyle,Mapping=tex-text}

\newcommand\Quotes[1]{%
  \fontspec{Bitstream Charter}
  \message{----------#1----------}
  \fontspec{#1} #1: ���test��� ��test��
  \\[2ex]
}
  
\begin{document}
\Quotes{LMRoman12-Regular}
\Quotes{TeXGyreAdventor-Regular}
\Quotes{AntykwaTorunska-Regular}
\end{document}
