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";
27
$RESULT = "cc15.test";
33
open(RE, ">$RESULT") || die "cannot open $RESULT $!";
37
if (abs (seek_scf($REF_FILE) - seek_scf($TEST_FILE)) > $TOL) {
38
fail_test("SCF Energy"); $FAIL = 1;
41
pass_test("SCF Energy");
44
if (abs (seek_bccd($REF_FILE) - seek_bccd($TEST_FILE)) > $TOL) {
45
fail_test("B-CCD Energy"); $FAIL = 1;
48
pass_test("B-CCD Energy");
51
if (abs (seek_ccsd_t($REF_FILE) - seek_ccsd_t($TEST_FILE)) > $TOL) {
52
fail_test("B-CCD(T) Energy"); $FAIL = 1;
55
pass_test("B-CCD(T) Energy");
59
system("cat $RESULT");