You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
tdelibs/kdecore/tests/kmacroexpandertest.cpp

138 lines
5.2 KiB

#include <kmacroexpander.h>
#include <kapplication.h>
#include <kcmdlineargs.h>
#include <kdebug.h>
#include <stdlib.h>
bool check(TQString txt, TQString s, TQString a, TQString b)
{
if (a.isEmpty())
a = TQString::null;
if (b.isEmpty())
b = TQString::null;
if (a == b)
kdDebug() << txt << " (" << s << ") : '" << a << "' - ok" << endl;
else {
kdDebug() << txt << " (" << s << ") : got '" << a << "' but expected '" << b << "' - KO!" << endl;
exit(1);
}
return true;
}
class MyCExpander : public KCharMacroExpander {
public:
MyCExpander() : KCharMacroExpander() {}
protected:
bool expandMacro(TQChar chr, TQStringList &ret)
{
if (chr == 'm') {
ret = TQString("expanded");
return true;
}
return false;
}
};
class MyWExpander : public KWordMacroExpander {
public:
MyWExpander() : KWordMacroExpander() {}
protected:
bool expandMacro(const TQString &str, TQStringList &ret)
{
if (str == "macro") {
ret = TQString("expanded");
return true;
}
return false;
}
};
int main(int argc, char *argv[])
{
KCmdLineArgs::init(argc, argv, ":", "", "", "");
KApplication app(false,false);
TQString s, s2;
TQMap<TQChar,TQStringList> map1;
map1.insert('n', "Restaurant \"Chew It\"");
TQStringList li;
li << "element1" << "'element2'";
map1.insert('l', li);
s = "text %l %n text";
check( "KMacroExpander::expandMacros", s, KMacroExpander::expandMacros(s, map1), "text element1 'element2' Restaurant \"Chew It\" text");
check( "KMacroExpander::expandMacrosShellQuote", s, KMacroExpander::expandMacrosShellQuote(s, map1), "text 'element1' ''\\''element2'\\''' 'Restaurant \"Chew It\"' text");
s = "text \"%l %n\" text";
check( "KMacroExpander::expandMacrosShellQuote", s, KMacroExpander::expandMacrosShellQuote(s, map1), "text \"element1 'element2' Restaurant \\\"Chew It\\\"\" text");
TQMap<TQChar,TQString> map;
map.insert('a', "%n");
map.insert('f', "filename.txt");
map.insert('u', "http://www.kde.org/index.html");
map.insert('n', "Restaurant \"Chew It\"");
s = "Title: %a - %f - %u - %n - %%";
check( "KMacroExpander::expandMacros", s, KMacroExpander::expandMacros(s, map), "Title: %n - filename.txt - http://www.kde.org/index.html - Restaurant \"Chew It\" - %");
s = "kedit --caption %n %f";
check( "KMacroExpander::expandMacrosShellQuote", s, KMacroExpander::expandMacrosShellQuote(s, map), "kedit --caption 'Restaurant \"Chew It\"' 'filename.txt'");
map.tqreplace('n', "Restaurant 'Chew It'");
s = "kedit --caption %n %f";
check( "KMacroExpander::expandMacrosShellQuote", s, KMacroExpander::expandMacrosShellQuote(s, map), "kedit --caption 'Restaurant '\\''Chew It'\\''' 'filename.txt'");
s = "kedit --caption \"%n\" %f";
check( "KMacroExpander::expandMacrosShellQuote", s, KMacroExpander::expandMacrosShellQuote(s, map), "kedit --caption \"Restaurant 'Chew It'\" 'filename.txt'");
map.tqreplace('n', "Restaurant \"Chew It\"");
s = "kedit --caption \"%n\" %f";
check( "KMacroExpander::expandMacrosShellQuote", s, KMacroExpander::expandMacrosShellQuote(s, map), "kedit --caption \"Restaurant \\\"Chew It\\\"\" 'filename.txt'");
map.tqreplace('n', "Restaurant $HOME");
s = "kedit --caption \"%n\" %f";
check( "KMacroExpander::expandMacrosShellQuote", s, KMacroExpander::expandMacrosShellQuote(s, map), "kedit --caption \"Restaurant \\$HOME\" 'filename.txt'");
map.tqreplace('n', "Restaurant `echo hello`");
s = "kedit --caption \"%n\" %f";
check( "KMacroExpander::expandMacrosShellQuote", s, KMacroExpander::expandMacrosShellQuote(s, map), "kedit --caption \"Restaurant \\`echo hello\\`\" 'filename.txt'");
map.tqreplace('n', "Restaurant `echo hello`");
s = "kedit --caption \"`echo %n`\" %f";
check( "KMacroExpander::expandMacrosShellQuote", s, KMacroExpander::expandMacrosShellQuote(s, map), "kedit --caption \"$( echo 'Restaurant `echo hello`')\" 'filename.txt'");
TQMap<TQString,TQString> smap;
smap.insert("foo", "%n");
smap.insert("file", "filename.txt");
smap.insert("url", "http://www.kde.org/index.html");
smap.insert("name", "Restaurant \"Chew It\"");
s = "Title: %foo - %file - %url - %name - %";
check( "KMacroExpander::expandMacros", s, KMacroExpander::expandMacros(s, smap), "Title: %n - filename.txt - http://www.kde.org/index.html - Restaurant \"Chew It\" - %");
s = "Title: %{foo} - %{file} - %{url} - %{name} - %";
check( "KMacroExpander::expandMacros", s, KMacroExpander::expandMacros(s, smap), "Title: %n - filename.txt - http://www.kde.org/index.html - Restaurant \"Chew It\" - %");
s = "Title: %foo-%file-%url-%name-%";
check( "KMacroExpander::expandMacros", s, KMacroExpander::expandMacros(s, smap), "Title: %n-filename.txt-http://www.kde.org/index.html-Restaurant \"Chew It\"-%");
s = "Title: %{file} %{url";
check( "KMacroExpander::expandMacros", s, KMacroExpander::expandMacros(s, smap), "Title: filename.txt %{url");
MyCExpander mx1;
s = "subst %m but not %n equ %%";
s2 = s;
mx1.expandMacros(s2);
check( "MyCExpander::expandMacros", s, s2, "subst expanded but not %n equ %");
MyWExpander mx2;
s = "subst %macro but not %not equ %%";
s2 = s;
mx2.expandMacros(s2);
check( "MyWExpander::expandMacros", s, s2, "subst expanded but not %not equ %");
kdDebug() << endl << "Test OK!" << endl;
}