| 1 | /* | 
|---|
| 2 | * Project: MoleCuilder | 
|---|
| 3 | * Description: creates and alters molecular systems | 
|---|
| 4 | * Copyright (C)  2010-2012 University of Bonn. All rights reserved. | 
|---|
| 5 | * | 
|---|
| 6 | * | 
|---|
| 7 | *   This file is part of MoleCuilder. | 
|---|
| 8 | * | 
|---|
| 9 | *    MoleCuilder is free software: you can redistribute it and/or modify | 
|---|
| 10 | *    it under the terms of the GNU General Public License as published by | 
|---|
| 11 | *    the Free Software Foundation, either version 2 of the License, or | 
|---|
| 12 | *    (at your option) any later version. | 
|---|
| 13 | * | 
|---|
| 14 | *    MoleCuilder is distributed in the hope that it will be useful, | 
|---|
| 15 | *    but WITHOUT ANY WARRANTY; without even the implied warranty of | 
|---|
| 16 | *    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the | 
|---|
| 17 | *    GNU General Public License for more details. | 
|---|
| 18 | * | 
|---|
| 19 | *    You should have received a copy of the GNU General Public License | 
|---|
| 20 | *    along with MoleCuilder.  If not, see <http://www.gnu.org/licenses/>. | 
|---|
| 21 | */ | 
|---|
| 22 |  | 
|---|
| 23 | /* | 
|---|
| 24 | * AnalysisBondsUnitTest.cpp | 
|---|
| 25 | * | 
|---|
| 26 | *  Created on: Nov 7, 2009 | 
|---|
| 27 | *      Author: heber | 
|---|
| 28 | */ | 
|---|
| 29 |  | 
|---|
| 30 | // include config.h | 
|---|
| 31 | #ifdef HAVE_CONFIG_H | 
|---|
| 32 | #include <config.h> | 
|---|
| 33 | #endif | 
|---|
| 34 |  | 
|---|
| 35 | using namespace std; | 
|---|
| 36 |  | 
|---|
| 37 | #include <cppunit/CompilerOutputter.h> | 
|---|
| 38 | #include <cppunit/extensions/TestFactoryRegistry.h> | 
|---|
| 39 | #include <cppunit/ui/text/TestRunner.h> | 
|---|
| 40 |  | 
|---|
| 41 | #include <iostream> | 
|---|
| 42 | #include <stdio.h> | 
|---|
| 43 | #include <cstring> | 
|---|
| 44 |  | 
|---|
| 45 | #include "Analysis/analysis_bonds.hpp" | 
|---|
| 46 | #include "Atom/atom.hpp" | 
|---|
| 47 | #include "Bond/bond.hpp" | 
|---|
| 48 | #include "Element/element.hpp" | 
|---|
| 49 | #include "Graph/BondGraph.hpp" | 
|---|
| 50 | #include "molecule.hpp" | 
|---|
| 51 | #include "Element/periodentafel.hpp" | 
|---|
| 52 | #include "LinearAlgebra/Vector.hpp" | 
|---|
| 53 | #include "World.hpp" | 
|---|
| 54 |  | 
|---|
| 55 | #include "AnalysisBondsUnitTest.hpp" | 
|---|
| 56 |  | 
|---|
| 57 | #ifdef HAVE_TESTRUNNER | 
|---|
| 58 | #include "UnitTestMain.hpp" | 
|---|
| 59 | #endif /*HAVE_TESTRUNNER*/ | 
|---|
| 60 |  | 
|---|
| 61 | /********************************************** Test classes **************************************/ | 
|---|
| 62 |  | 
|---|
| 63 | // Registers the fixture into the 'registry' | 
|---|
| 64 | CPPUNIT_TEST_SUITE_REGISTRATION( AnalysisBondsTest ); | 
|---|
| 65 |  | 
|---|
| 66 |  | 
|---|
| 67 | void AnalysisBondsTest::setUp() | 
|---|
| 68 | { | 
|---|
| 69 | atom *Walker = NULL; | 
|---|
| 70 |  | 
|---|
| 71 | // get elements | 
|---|
| 72 | hydrogen = World::getInstance().getPeriode()->FindElement(1); | 
|---|
| 73 | carbon = World::getInstance().getPeriode()->FindElement(6); | 
|---|
| 74 | CPPUNIT_ASSERT(hydrogen != NULL && "could not find element hydrogen"); | 
|---|
| 75 | CPPUNIT_ASSERT(carbon != NULL && "could not find element carbon"); | 
|---|
| 76 |  | 
|---|
| 77 | // construct molecule (tetraeder of hydrogens) | 
|---|
| 78 | TestMolecule = World::getInstance().createMolecule(); | 
|---|
| 79 | CPPUNIT_ASSERT(TestMolecule != NULL && "could not create molecule"); | 
|---|
| 80 | Walker = World::getInstance().createAtom(); | 
|---|
| 81 | CPPUNIT_ASSERT(Walker != NULL && "could not create atom"); | 
|---|
| 82 | Walker->setType(hydrogen); | 
|---|
| 83 | Walker->setPosition(Vector(1.5, 0., 1.5 )); | 
|---|
| 84 | TestMolecule->AddAtom(Walker); | 
|---|
| 85 | Walker = World::getInstance().createAtom(); | 
|---|
| 86 | CPPUNIT_ASSERT(Walker != NULL && "could not create atom"); | 
|---|
| 87 | Walker->setType(hydrogen); | 
|---|
| 88 | Walker->setPosition(Vector(0., 1.5, 1.5 )); | 
|---|
| 89 | TestMolecule->AddAtom(Walker); | 
|---|
| 90 | Walker = World::getInstance().createAtom(); | 
|---|
| 91 | CPPUNIT_ASSERT(Walker != NULL && "could not create atom"); | 
|---|
| 92 | Walker->setType(hydrogen); | 
|---|
| 93 | Walker->setPosition(Vector(1.5, 1.5, 0. )); | 
|---|
| 94 | TestMolecule->AddAtom(Walker); | 
|---|
| 95 | Walker = World::getInstance().createAtom(); | 
|---|
| 96 | CPPUNIT_ASSERT(Walker != NULL && "could not create atom"); | 
|---|
| 97 | Walker->setType(hydrogen); | 
|---|
| 98 | Walker->setPosition(Vector(0., 0., 0. )); | 
|---|
| 99 | TestMolecule->AddAtom(Walker); | 
|---|
| 100 | Walker = World::getInstance().createAtom(); | 
|---|
| 101 | CPPUNIT_ASSERT(Walker != NULL && "could not create atom"); | 
|---|
| 102 | Walker->setType(carbon); | 
|---|
| 103 | Walker->setPosition(Vector(0.5, 0.5, 0.5 )); | 
|---|
| 104 | TestMolecule->AddAtom(Walker); | 
|---|
| 105 |  | 
|---|
| 106 | // check that TestMolecule was correctly constructed | 
|---|
| 107 | CPPUNIT_ASSERT_EQUAL( TestMolecule->getAtomCount(), 5 ); | 
|---|
| 108 |  | 
|---|
| 109 | // create stream with table | 
|---|
| 110 | std::stringstream test; | 
|---|
| 111 | test << ".\tH\tHe\tLi\tBe\tB\tC\n"; | 
|---|
| 112 | test << "H\t1.\t1.\t1.\t1.\t1.\t1.2\n"; | 
|---|
| 113 | test << "He\t1.\t1.\t1.\t1.\t1.\t1.\n"; | 
|---|
| 114 | test << "Li\t1.\t1.\t1.\t1.\t1.\t1.\n"; | 
|---|
| 115 | test << "Be\t1.\t1.\t1.\t1.\t1.\t1.\n"; | 
|---|
| 116 | test << "B\t1.\t1.\t1.\t1.\t1.\t1.\n"; | 
|---|
| 117 | test << "C\t1.2\t1.\t1.\t1.\t1.\t1.5\n"; | 
|---|
| 118 | BG = new BondGraph(true); | 
|---|
| 119 | CPPUNIT_ASSERT(BG != NULL && "could not create BondGraph"); | 
|---|
| 120 |  | 
|---|
| 121 | CPPUNIT_ASSERT_EQUAL( true , BG->LoadBondLengthTable(test) ); | 
|---|
| 122 | CPPUNIT_ASSERT_EQUAL( 1., BG->GetBondLength(1,1) ); | 
|---|
| 123 | CPPUNIT_ASSERT_EQUAL( 1.2, BG->GetBondLength(1,6) ); | 
|---|
| 124 | CPPUNIT_ASSERT_EQUAL( 1.5, BG->GetBondLength(6,6) ); | 
|---|
| 125 |  | 
|---|
| 126 | World::AtomComposite Set = TestMolecule->getAtomSet(); | 
|---|
| 127 | BG->CreateAdjacency(Set); | 
|---|
| 128 | }; | 
|---|
| 129 |  | 
|---|
| 130 |  | 
|---|
| 131 | void AnalysisBondsTest::tearDown() | 
|---|
| 132 | { | 
|---|
| 133 | // remove the file | 
|---|
| 134 | delete(BG); | 
|---|
| 135 |  | 
|---|
| 136 | // remove molecule | 
|---|
| 137 | World::getInstance().destroyMolecule(TestMolecule); | 
|---|
| 138 | // note that all the atoms are cleaned by TestMolecule | 
|---|
| 139 | World::purgeInstance(); | 
|---|
| 140 | }; | 
|---|
| 141 |  | 
|---|
| 142 | /** UnitTest for GetMaxMinMeanBondCount(). | 
|---|
| 143 | */ | 
|---|
| 144 | void AnalysisBondsTest::GetMaxMinMeanBondCountTest() | 
|---|
| 145 | { | 
|---|
| 146 | double Min = 20.; // check that initialization resets these arbitrary values | 
|---|
| 147 | double Mean = 200.; | 
|---|
| 148 | double Max = 1e-6; | 
|---|
| 149 | GetMaxMinMeanBondCount(TestMolecule, Min, Mean, Max); | 
|---|
| 150 | CPPUNIT_ASSERT_EQUAL( 1., Min ); | 
|---|
| 151 | CPPUNIT_ASSERT_EQUAL( 1.6, Mean ); | 
|---|
| 152 | CPPUNIT_ASSERT_EQUAL( 4., Max ); | 
|---|
| 153 |  | 
|---|
| 154 | }; | 
|---|
| 155 |  | 
|---|
| 156 | /** UnitTest for MinMaxBondDistanceBetweenElements(). | 
|---|
| 157 | */ | 
|---|
| 158 | void AnalysisBondsTest::MinMeanMaxBondDistanceBetweenElementsTest() | 
|---|
| 159 | { | 
|---|
| 160 | double Min = 20.; // check that initialization resets these arbitrary values | 
|---|
| 161 | double Mean = 2e+6; | 
|---|
| 162 | double Max = 1e-6; | 
|---|
| 163 | double Min2 = 20.; | 
|---|
| 164 | double Mean2 = 2e+6; | 
|---|
| 165 | double Max2 = 1e-6; | 
|---|
| 166 | const double maxbondlength = sqrt(1.*1. + 1.*1. + .5*.5); | 
|---|
| 167 | const double minbondlength = sqrt(.5*.5 + .5*.5 + .5*.5); | 
|---|
| 168 | const double meanbondlength = (minbondlength+3.*maxbondlength)/4.; | 
|---|
| 169 | // check bond lengths C-H | 
|---|
| 170 | MinMeanMaxBondDistanceBetweenElements(TestMolecule, hydrogen, carbon, Min, Mean, Max); | 
|---|
| 171 | CPPUNIT_ASSERT( fabs( minbondlength - Min ) < MYEPSILON); | 
|---|
| 172 | CPPUNIT_ASSERT( fabs( meanbondlength - Mean ) < MYEPSILON); | 
|---|
| 173 | CPPUNIT_ASSERT( fabs( maxbondlength - Max ) < MYEPSILON); | 
|---|
| 174 |  | 
|---|
| 175 | // check that elements are symmetric, i.e. C-H == H-C | 
|---|
| 176 | MinMeanMaxBondDistanceBetweenElements(TestMolecule, carbon, hydrogen, Min2, Mean2, Max2); | 
|---|
| 177 | CPPUNIT_ASSERT( fabs( Min - Min2 ) < MYEPSILON); | 
|---|
| 178 | CPPUNIT_ASSERT( fabs( Mean - Mean2 ) < MYEPSILON); | 
|---|
| 179 | CPPUNIT_ASSERT( fabs( Max - Max2 ) < MYEPSILON); | 
|---|
| 180 |  | 
|---|
| 181 | // check no bond case (no bonds H-H in system!) | 
|---|
| 182 | MinMeanMaxBondDistanceBetweenElements(TestMolecule, hydrogen, hydrogen, Min, Mean, Max); | 
|---|
| 183 | CPPUNIT_ASSERT_EQUAL( 0. , Min ); | 
|---|
| 184 | CPPUNIT_ASSERT_EQUAL( 0. , Mean ); | 
|---|
| 185 | CPPUNIT_ASSERT_EQUAL( 0. , Max ); | 
|---|
| 186 | }; | 
|---|