3
while ($ARGV = shift) {
4
if ("$ARGV" eq "-q") { $QUIET = 1; }
5
elsif("$ARGV" eq "-i") { $SRC_PATH = shift; }
6
elsif("$ARGV" eq "-x") { $EXEC_PATH = shift; }
10
require($SRC_PATH . "/../psitest.pl");
13
require("../psitest.pl");
16
# build the command for the psi3 driver
17
$PSICMD = build_psi_cmd($QUIET, $SRC_PATH, $EXEC_PATH);
21
$REF_FILE = "$SRC_PATH/output.ref";
24
$REF_FILE = "output.ref";
26
$TEST_FILE = "output.dat";
33
open(RE, ">$RESULT") || die "cannot open $RESULT: $!";
37
if (abs(seek_nuc($REF_FILE) - seek_nuc($TEST_FILE)) > $TOL) {
38
fail_test("Nuclear Repulsion Energy"); $FAIL = 1;
41
pass_test("Nuclear Repulsion Energy");
44
if (abs(seek_scf($REF_FILE) - seek_scf($TEST_FILE)) > $TOL) {
45
fail_test("SCF Energy"); $FAIL = 1;
48
pass_test("SCF Energy");
51
if (abs(seek_ccsd($REF_FILE) - seek_ccsd($TEST_FILE)) > $TOL) {
52
fail_test("CCSD Energy"); $FAIL = 1;
55
pass_test("CCSD Energy");
58
if (abs(seek_ccsd_t($REF_FILE) - seek_ccsd_t($TEST_FILE)) > $TOL) {
59
fail_test("CCSD(T) Energy"); $FAIL = 1;
62
pass_test("CCSD(T) Energy");
67
system("cat $RESULT");