summaryrefslogtreecommitdiffstats
path: root/karm/test/runscripts.cpp
diff options
context:
space:
mode:
authortoma <toma@283d02a7-25f6-0310-bc7c-ecb5cbfe19da>2009-11-25 17:56:58 +0000
committertoma <toma@283d02a7-25f6-0310-bc7c-ecb5cbfe19da>2009-11-25 17:56:58 +0000
commit460c52653ab0dcca6f19a4f492ed2c5e4e963ab0 (patch)
tree67208f7c145782a7e90b123b982ca78d88cc2c87 /karm/test/runscripts.cpp
downloadtdepim-460c52653ab0dcca6f19a4f492ed2c5e4e963ab0.tar.gz
tdepim-460c52653ab0dcca6f19a4f492ed2c5e4e963ab0.zip
Copy the KDE 3.5 branch to branches/trinity for new KDE 3.5 features.
BUG:215923 git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdepim@1054174 283d02a7-25f6-0310-bc7c-ecb5cbfe19da
Diffstat (limited to 'karm/test/runscripts.cpp')
-rw-r--r--karm/test/runscripts.cpp130
1 files changed, 130 insertions, 0 deletions
diff --git a/karm/test/runscripts.cpp b/karm/test/runscripts.cpp
new file mode 100644
index 000000000..aa5449541
--- /dev/null
+++ b/karm/test/runscripts.cpp
@@ -0,0 +1,130 @@
+/* This file is part of the KDE project
+ Copyright (C) 2004 Mark Bucciarelli <mark@hubcapconsulting.com>
+
+ This library is free software; you can redistribute it and/or
+ modify it under the terms of the GNU Library General Public
+ License as published by the Free Software Foundation; either
+ version 2 of the License, or (at your option) any later version.
+
+ This library is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ Library General Public License for more details.
+
+ You should have received a copy of the GNU Library General Public License
+ along with this library; see the file COPYING.LIB. If not, write to
+ the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+ Boston, MA 02110-1301, USA.
+*/
+
+#include <kdebug.h>
+#include <qdir.h>
+#include <qfile.h>
+#include <qstring.h>
+#include <qstringlist.h>
+#include <qtextstream.h>
+
+#include "script.h"
+
+static QString srcdir();
+static int runscripts
+( const QString &interpreter, const QString &extension, const QString &path );
+
+const QString dots = "..................................................";
+const QString not_a_test_filename_prefix = "__";
+
+// Read srcdir from Makefile (for builddir != srcdir).
+QString srcdir()
+{
+ bool found = false;
+ QString dir;
+
+ QFile file( "Makefile" );
+ if ( !file.open( IO_ReadOnly | IO_Translate ) ) return "";
+
+ QTextStream in( &file );
+ QString line;
+ while ( !found && !in.atEnd() )
+ {
+ line = in.readLine();
+ if ( line.startsWith( "srcdir = " ) )
+ {
+ dir = line.mid( 9 );
+ found = true;
+ }
+ }
+
+ if ( !found ) dir = "";
+
+ return dir;
+}
+
+int runscripts
+( const QString &interpreter, const QString &extension, const QString &path )
+{
+ int rval = 0;
+ int oneBadApple = 0;
+ QStringList files;
+
+ QDir dir( path );
+
+ Script* s = new Script( dir );
+
+ dir.setNameFilter( extension );
+ dir.setFilter( QDir::Files );
+ dir.setSorting( QDir::Name | QDir::IgnoreCase );
+ const QFileInfoList *list = dir.entryInfoList();
+ QFileInfoListIterator it( *list );
+ QFileInfo *fi;
+ while ( !rval && ( fi = it.current() ) != 0 )
+ {
+ // Don't run scripts that are shared routines.
+ if ( ! fi->fileName().startsWith( not_a_test_filename_prefix ) )
+ {
+ s->addArgument( interpreter );
+ s->addArgument( path + QDir::separator() + fi->fileName().latin1() );
+
+ // Thorsten's xautomation tests run with user interaction by default.
+ if ( interpreter == "sh" ) s->addArgument( "--batch" );
+ if ( interpreter == "php" ) s->addArgument( "--batch" );
+
+ rval = s->run();
+
+ kdDebug() << "runscripts: " << fi->fileName()
+ << " " << dots.left( dots.length() - fi->fileName().length() )
+ << " " << ( ! rval ? "PASS" : "FAIL" ) << endl;
+
+ // Don't abort if one test files--run them all
+ if ( rval )
+ {
+ oneBadApple = 1;
+ rval = 0;
+ }
+
+ delete s;
+ s = new Script( dir );
+ }
+ ++it;
+ }
+ delete s;
+ s = 0;
+
+ return oneBadApple;
+}
+
+int main( int, char** )
+{
+ int rval = 0;
+
+ QString path = srcdir();
+
+ if ( !rval ) rval = runscripts( "python", "*.py *.Py *.PY *.pY", path );
+
+ if ( !rval ) rval = runscripts( "sh", "*.sh *.Sh *.SH *.sH", path );
+
+ if ( !rval ) rval = runscripts( "perl", "*.pl *.Pl *.PL *.pL", path );
+
+ if ( !rval ) rval = runscripts( "php", "*.php *.php3 *.php4 *.php5", path );
+
+ return rval;
+}