4
0
mirror of https://github.com/QuasarApp/qca.git synced 2025-05-02 06:09:33 +00:00
Christian Ehrlicher 78406a6651 win32 compile
- update openssl to search for libeay too
- saslservtests needs wsock32
- export CertificateInfoPair to fix qca-openssl linking
- add setenv() to pgpunittest.cpp for win32 - maybe add a check for setenv()

svn path=/trunk/kdesupport/qca/; revision=633918
2007-02-15 19:17:56 +00:00

157 lines
5.5 KiB
C++

/**
* Copyright (C) 2006 Brad Hards <bradh@frogmouth.net>
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
*
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
* IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
* THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*/
#include <QtCrypto>
#include <QtTest/QtTest>
#include <stdlib.h>
#ifdef Q_OS_WIN
static int setenv(const char *name, const char *value, int overwrite)
{
int i, iRet;
char * a;
if (!overwrite && getenv(name)) return 0;
i = strlen(name) + strlen(value) + 2;
a = (char*)malloc(i);
if (!a) return 1;
strcpy(a, name);
strcat(a, "=");
strcat(a, value);
iRet = putenv(a);
free(a);
return iRet;
}
#endif
class PgpUnitTest : public QObject
{
Q_OBJECT
private slots:
void initTestCase();
void cleanupTestCase();
void testKeyRing();
private:
QCA::Initializer* m_init;
};
void PgpUnitTest::initTestCase()
{
m_init = new QCA::Initializer;
#include "../fixpaths.include"
}
void PgpUnitTest::cleanupTestCase()
{
delete m_init;
}
void PgpUnitTest::testKeyRing()
{
// activate the KeyStoreManager and block until ready
QCA::keyStoreManager()->start();
QCA::keyStoreManager()->waitForBusyFinished();
if ( QCA::isSupported( QStringList( QString( "keystorelist" ) ),
QString( "qca-gnupg" ) ) )
{
QCA::KeyStoreManager *ksm = QCA::keyStoreManager();
QStringList stores = ksm->keyStores();
QVERIFY( stores.contains( "qca-gnupg-(gpg)" ) );
QCA::KeyStore pgpStore( "qca-gnupg-(gpg)" );
QVERIFY( pgpStore.isValid() );
QCOMPARE( pgpStore.name(), QString( "GnuPG Keyring" ) );
QCOMPARE( pgpStore.type(), QCA::KeyStore::PGPKeyring );
QCOMPARE( pgpStore.id(), QString( "qca-gnupg-(gpg)" ) );
QEXPECT_FAIL( "", "writing entries isn't yet supported (TODO)", Continue );
QCOMPARE( pgpStore.isReadOnly(), false );
QCOMPARE( pgpStore.holdsTrustedCertificates(), false );
QCOMPARE( pgpStore.holdsIdentities(), true );
QCOMPARE( pgpStore.holdsPGPPublicKeys(), true );
#ifdef __GNUC__
#warning using setenv is dubious in terms of portability
#endif
QByteArray oldGNUPGHOME = qgetenv( "GNUPGHOME" );
// We test a small keyring - I downloaded a publically available one from
// the Amsterdam Internet Exchange.
if ( 0 == setenv( "GNUPGHOME", "./keys1", 1 ) )
{
QList<QCA::KeyStoreEntry> keylist = pgpStore.entryList();
QCOMPARE( keylist.count(), 6 );
QStringList nameList;
foreach( const QCA::KeyStoreEntry key, keylist ) {
QCOMPARE( key.isNull(), false );
QCOMPARE( key.type(), QCA::KeyStoreEntry::TypePGPPublicKey );
QCOMPARE( key.id().length(), 16 ); // 16 hex digits
QVERIFY( key.keyBundle().isNull() );
QVERIFY( key.certificate().isNull() );
QVERIFY( key.crl().isNull() );
QVERIFY( key.pgpSecretKey().isNull() );
QCOMPARE( key.pgpPublicKey().isNull(), false );
// We accumulate the names, and check them next
nameList << key.name();
}
QVERIFY( nameList.contains( "Steven Bakker <steven.bakker@ams-ix.net>" ) );
QVERIFY( nameList.contains( "Romeo Zwart <rz@ams-ix.net>" ) );
QVERIFY( nameList.contains( "Arien Vijn <arien.vijn@ams-ix.net>" ) );
QVERIFY( nameList.contains( "Niels Bakker <niels.bakker@ams-ix.net>" ) );
QVERIFY( nameList.contains( "Henk Steenman <Henk.Steenman@ams-ix.net>" ) );
QVERIFY( nameList.contains( "Geert Nijpels <geert.nijpels@ams-ix.net>" ) );
// TODO: We should test removeEntry() and writeEntry() here.
} else {
QFAIL( "Expected to be able to set the GNUPGHOME environment variable, but couldn't" );
}
// We now test an empty keyring
if ( 0 == setenv( "GNUPGHOME", "./keys2", 1 ) )
{
QList<QCA::KeyStoreEntry> keylist = pgpStore.entryList();
QCOMPARE( keylist.count(), 0 );
// TODO: We should test removeEntry() and writeEntry() here.
} else {
QFAIL( "Expected to be able to set the GNUPGHOME environment variable, but couldn't" );
}
if ( false == oldGNUPGHOME.isNull() )
{
setenv( "GNUPGHOME", oldGNUPGHOME.data(), 1 );
}
}
}
QTEST_MAIN(PgpUnitTest)
#include "pgpunittest.moc"