#
#    MoleCuilder - creates and alters molecular systems
#    Copyright (C) 2013 University of Bonn
#
#    This program is free software: you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation, either version 3 of the License, or
#    (at your option) any later version.
#
#    This program 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 General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program.  If not, see <http://www.gnu.org/licenses/>.
#
### fit some potentials

AT_SETUP([Fragmentation - Fit morse potential to water])
AT_KEYWORDS([fragmentation fit-potential morse])
AT_SKIP_IF([../../molecuilder --fit-potential; if test ! $? -eq 0; then /bin/true;fi])

file=length_homology.dat
AT_CHECK([/bin/cp -f ${abs_top_srcdir}/tests/regression/Fragmentation/FitPotential/pre/$file $file], 0)
AT_CHECK([chmod u+w $file], 0, [ignore], [ignore])
AT_CHECK([../../molecuilder --fit-potential "morse" --homology-file $file --potential-charges 8 1 --fragment-charges 1 8 1 --take-best-of 5], 0, [stdout], [ignore])
# check that L_2 error is below 1e-6
AT_CHECK([grep "Best parameters with L2 error" stdout | awk '{if ($8 > 1e-6) exit 1}'], 0, [ignore], [ignore])
# check parameters to printed precision
AT_CHECK([grep "morse:.*particle_type1=8,.*particle_type2=1,.*spring_constant=1.2652,.*equilibrium_distance=1.78095,.*dissociation_energy=0.401285;" stdout], 0, [ignore], [ignore])

AT_CLEANUP

AT_SETUP([Fragmentation - Fit harmonic_angle potential to water])
AT_KEYWORDS([fragmentation fit-potential harmonic_angle])
AT_SKIP_IF([../../molecuilder --fit-potential; if test ! $? -eq 0; then /bin/true;fi])

file=angle_homology.dat
AT_CHECK([/bin/cp -f ${abs_top_srcdir}/tests/regression/Fragmentation/FitPotential/pre/$file $file], 0)
AT_CHECK([chmod u+w $file], 0, [ignore], [ignore])
AT_CHECK([../../molecuilder --fit-potential "harmonic_angle" --homology-file $file --potential-charges 1 8 1 --fragment-charges 1 8 1 --take-best-of 5], 0, [stdout], [ignore])
# check that L_2 error is below 1e-6
AT_CHECK([grep "||e||_2:" stdout | awk '{if ($7 > 1e-6) exit 1}'], 0, [ignore], [ignore])
# check parameters to printed precision
AT_CHECK([grep "harmonic_angle:.*particle_type1=1,.*particle_type2=8,.*particle_type3=1,.*spring_constant=0.100497,.*equilibrium_distance=-0.274675;" stdout], 0, [ignore], [ignore])

AT_CLEANUP