From dc6ded585a48af39598ce07597c91ed42568efa4 Mon Sep 17 00:00:00 2001
From: Daniel Arndt <daniel.arndt@iwr.uni-heidelberg.de>
Date: Wed, 14 Jun 2017 15:40:39 +0200
Subject: [PATCH] Fix up PETSc tests

---
 tests/petsc/38.cc     |  94 --------------------------------------
 tests/petsc/38.output |   2 -
 tests/petsc/43.cc     |  99 ----------------------------------------
 tests/petsc/43.output |   2 -
 tests/petsc/44.cc     | 104 ------------------------------------------
 tests/petsc/44.output |   2 -
 tests/petsc/47.cc     |  99 ----------------------------------------
 tests/petsc/47.output |   2 -
 8 files changed, 404 deletions(-)
 delete mode 100644 tests/petsc/38.cc
 delete mode 100644 tests/petsc/38.output
 delete mode 100644 tests/petsc/43.cc
 delete mode 100644 tests/petsc/43.output
 delete mode 100644 tests/petsc/44.cc
 delete mode 100644 tests/petsc/44.output
 delete mode 100644 tests/petsc/47.cc
 delete mode 100644 tests/petsc/47.output

diff --git a/tests/petsc/38.cc b/tests/petsc/38.cc
deleted file mode 100644
index 0439cab5f6..0000000000
--- a/tests/petsc/38.cc
+++ /dev/null
@@ -1,94 +0,0 @@
-// ---------------------------------------------------------------------
-//
-// Copyright (C) 2004 - 2015 by the deal.II authors
-//
-// This file is part of the deal.II library.
-//
-// The deal.II library is free software; you can use it, redistribute
-// it, and/or modify it under the terms of the GNU Lesser General
-// Public License as published by the Free Software Foundation; either
-// version 2.1 of the License, or (at your option) any later version.
-// The full text of the license can be found in the file LICENSE at
-// the top level of the deal.II distribution.
-//
-// ---------------------------------------------------------------------
-
-
-
-// check PETScWrappers::MPI::Vector::add(Vector)
-
-#include "../tests.h"
-#include <deal.II/lac/petsc_parallel_vector.h>
-#include <fstream>
-#include <iostream>
-#include <vector>
-
-
-void test (PETScWrappers::MPI::Vector &v,
-           PETScWrappers::MPI::Vector &w)
-{
-  for (unsigned int i=0; i<v.size(); ++i)
-    {
-      v(i) = i;
-      w(i) = i+1.;
-    }
-
-  v.compress (VectorOperation::insert);
-  w.compress (VectorOperation::insert);
-
-  v.add (w);
-
-  // make sure we get the expected result
-  for (unsigned int i=0; i<v.size(); ++i)
-    {
-      AssertThrow (w(i) == i+1., ExcInternalError());
-      AssertThrow (v(i) == i+(i+1.), ExcInternalError());
-    }
-
-  deallog << "OK" << std::endl;
-}
-
-
-
-int main (int argc,char **argv)
-{
-  initlog();
-  deallog.threshold_double(1.e-10);
-
-  try
-    {
-      Utilities::MPI::MPI_InitFinalize mpi_initialization (argc, argv, 1);
-      {
-        IndexSet indices(100);
-        indices.add_range(0, 100);
-        PETScWrappers::MPI::Vector v(indices, MPI_COMM_WORLD);
-        PETScWrappers::MPI::Vector w(indices, MPI_COMM_WORLD);
-        test(v, w);
-      }
-
-    }
-  catch (std::exception &exc)
-    {
-      std::cerr << std::endl << std::endl
-                << "----------------------------------------------------"
-                << std::endl;
-      std::cerr << "Exception on processing: " << std::endl
-                << exc.what() << std::endl
-                << "Aborting!" << std::endl
-                << "----------------------------------------------------"
-                << std::endl;
-
-      return 1;
-    }
-  catch (...)
-    {
-      std::cerr << std::endl << std::endl
-                << "----------------------------------------------------"
-                << std::endl;
-      std::cerr << "Unknown exception!" << std::endl
-                << "Aborting!" << std::endl
-                << "----------------------------------------------------"
-                << std::endl;
-      return 1;
-    };
-}
diff --git a/tests/petsc/38.output b/tests/petsc/38.output
deleted file mode 100644
index 0fd8fc12f0..0000000000
--- a/tests/petsc/38.output
+++ /dev/null
@@ -1,2 +0,0 @@
-
-DEAL::OK
diff --git a/tests/petsc/43.cc b/tests/petsc/43.cc
deleted file mode 100644
index b4c5b734d0..0000000000
--- a/tests/petsc/43.cc
+++ /dev/null
@@ -1,99 +0,0 @@
-// ---------------------------------------------------------------------
-//
-// Copyright (C) 2004 - 2015 by the deal.II authors
-//
-// This file is part of the deal.II library.
-//
-// The deal.II library is free software; you can use it, redistribute
-// it, and/or modify it under the terms of the GNU Lesser General
-// Public License as published by the Free Software Foundation; either
-// version 2.1 of the License, or (at your option) any later version.
-// The full text of the license can be found in the file LICENSE at
-// the top level of the deal.II distribution.
-//
-// ---------------------------------------------------------------------
-
-
-
-// check PETScWrappers::MPI::Vector::sadd(s,s,V,s,V)
-
-#include "../tests.h"
-#include <deal.II/lac/petsc_parallel_vector.h>
-#include <fstream>
-#include <iostream>
-#include <vector>
-
-
-void test (PETScWrappers::MPI::Vector &v,
-           PETScWrappers::MPI::Vector &w,
-           PETScWrappers::MPI::Vector &x)
-{
-  for (unsigned int i=0; i<v.size(); ++i)
-    {
-      v(i) = i;
-      w(i) = i+1.;
-      x(i) = i+2.;
-    }
-
-  v.compress (VectorOperation::insert);
-  w.compress (VectorOperation::insert);
-  x.compress (VectorOperation::insert);
-
-  v.sadd (1.5, 2, w, 3, x);
-
-  // make sure we get the expected result
-  for (unsigned int i=0; i<v.size(); ++i)
-    {
-      AssertThrow (w(i) == i+1., ExcInternalError());
-      AssertThrow (x(i) == i+2., ExcInternalError());
-      AssertThrow (v(i) == 1.5*i+2*(i+1.)+3*(i+2.), ExcInternalError());
-    }
-
-  deallog << "OK" << std::endl;
-}
-
-
-
-int main (int argc,char **argv)
-{
-  initlog();
-  deallog.threshold_double(1.e-10);
-
-  try
-    {
-      Utilities::MPI::MPI_InitFinalize mpi_initialization (argc, argv, 1);
-      {
-        IndexSet indices(100);
-        indices.add_range(0, 100);
-        PETScWrappers::MPI::Vector v(indices, MPI_COMM_WORLD);
-        PETScWrappers::MPI::Vector w(indices, MPI_COMM_WORLD);
-        PETScWrappers::MPI::Vector x(indices, MPI_COMM_WORLD);
-        test(v, w, x);
-      }
-
-    }
-  catch (std::exception &exc)
-    {
-      std::cerr << std::endl << std::endl
-                << "----------------------------------------------------"
-                << std::endl;
-      std::cerr << "Exception on processing: " << std::endl
-                << exc.what() << std::endl
-                << "Aborting!" << std::endl
-                << "----------------------------------------------------"
-                << std::endl;
-
-      return 1;
-    }
-  catch (...)
-    {
-      std::cerr << std::endl << std::endl
-                << "----------------------------------------------------"
-                << std::endl;
-      std::cerr << "Unknown exception!" << std::endl
-                << "Aborting!" << std::endl
-                << "----------------------------------------------------"
-                << std::endl;
-      return 1;
-    };
-}
diff --git a/tests/petsc/43.output b/tests/petsc/43.output
deleted file mode 100644
index 0fd8fc12f0..0000000000
--- a/tests/petsc/43.output
+++ /dev/null
@@ -1,2 +0,0 @@
-
-DEAL::OK
diff --git a/tests/petsc/44.cc b/tests/petsc/44.cc
deleted file mode 100644
index 9f4b819315..0000000000
--- a/tests/petsc/44.cc
+++ /dev/null
@@ -1,104 +0,0 @@
-// ---------------------------------------------------------------------
-//
-// Copyright (C) 2004 - 2015 by the deal.II authors
-//
-// This file is part of the deal.II library.
-//
-// The deal.II library is free software; you can use it, redistribute
-// it, and/or modify it under the terms of the GNU Lesser General
-// Public License as published by the Free Software Foundation; either
-// version 2.1 of the License, or (at your option) any later version.
-// The full text of the license can be found in the file LICENSE at
-// the top level of the deal.II distribution.
-//
-// ---------------------------------------------------------------------
-
-
-
-// check PETScWrappers::MPI::Vector::sadd(s,s,V,s,V,s,V)
-
-#include "../tests.h"
-#include <deal.II/lac/petsc_parallel_vector.h>
-#include <fstream>
-#include <iostream>
-#include <vector>
-
-
-void test (PETScWrappers::MPI::Vector &v,
-           PETScWrappers::MPI::Vector &w,
-           PETScWrappers::MPI::Vector &x,
-           PETScWrappers::MPI::Vector &y)
-{
-  for (unsigned int i=0; i<v.size(); ++i)
-    {
-      v(i) = i;
-      w(i) = i+1.;
-      x(i) = i+2.;
-      y(i) = i+3.;
-    }
-
-  v.compress (VectorOperation::insert);
-  w.compress (VectorOperation::insert);
-  x.compress (VectorOperation::insert);
-  y.compress (VectorOperation::insert);
-
-  v.sadd (1.5, 2, w, 3, x, 4, y);
-
-  // make sure we get the expected result
-  for (unsigned int i=0; i<v.size(); ++i)
-    {
-      AssertThrow (w(i) == i+1., ExcInternalError());
-      AssertThrow (x(i) == i+2., ExcInternalError());
-      AssertThrow (y(i) == i+3., ExcInternalError());
-      AssertThrow (v(i) == 1.5*i+2*(i+1.)+3*(i+2.)+4*(i+3), ExcInternalError());
-    }
-
-  deallog << "OK" << std::endl;
-}
-
-
-
-int main (int argc,char **argv)
-{
-  initlog();
-  deallog.threshold_double(1.e-10);
-
-  try
-    {
-      Utilities::MPI::MPI_InitFinalize mpi_initialization (argc, argv, 1);
-      {
-        IndexSet indices(100);
-        indices.add_range(0, 100);
-        PETScWrappers::MPI::Vector v(indices, MPI_COMM_WORLD);
-        PETScWrappers::MPI::Vector w(indices, MPI_COMM_WORLD);
-        PETScWrappers::MPI::Vector x(indices, MPI_COMM_WORLD);
-        PETScWrappers::MPI::Vector y(indices, MPI_COMM_WORLD);
-        test(v, w, x, y);
-      }
-
-    }
-  catch (std::exception &exc)
-    {
-      std::cerr << std::endl << std::endl
-                << "----------------------------------------------------"
-                << std::endl;
-      std::cerr << "Exception on processing: " << std::endl
-                << exc.what() << std::endl
-                << "Aborting!" << std::endl
-                << "----------------------------------------------------"
-                << std::endl;
-
-      return 1;
-    }
-  catch (...)
-    {
-      std::cerr << std::endl << std::endl
-                << "----------------------------------------------------"
-                << std::endl;
-      std::cerr << "Unknown exception!" << std::endl
-                << "Aborting!" << std::endl
-                << "----------------------------------------------------"
-                << std::endl;
-      return 1;
-    };
-}
diff --git a/tests/petsc/44.output b/tests/petsc/44.output
deleted file mode 100644
index 0fd8fc12f0..0000000000
--- a/tests/petsc/44.output
+++ /dev/null
@@ -1,2 +0,0 @@
-
-DEAL::OK
diff --git a/tests/petsc/47.cc b/tests/petsc/47.cc
deleted file mode 100644
index 6d7823f2bb..0000000000
--- a/tests/petsc/47.cc
+++ /dev/null
@@ -1,99 +0,0 @@
-// ---------------------------------------------------------------------
-//
-// Copyright (C) 2004 - 2015 by the deal.II authors
-//
-// This file is part of the deal.II library.
-//
-// The deal.II library is free software; you can use it, redistribute
-// it, and/or modify it under the terms of the GNU Lesser General
-// Public License as published by the Free Software Foundation; either
-// version 2.1 of the License, or (at your option) any later version.
-// The full text of the license can be found in the file LICENSE at
-// the top level of the deal.II distribution.
-//
-// ---------------------------------------------------------------------
-
-
-
-// check PETScWrappers::MPI::Vector::equ (s,V,s,V)
-
-#include "../tests.h"
-#include <deal.II/lac/petsc_parallel_vector.h>
-#include <fstream>
-#include <iostream>
-#include <vector>
-
-
-void test (PETScWrappers::MPI::Vector &v,
-           PETScWrappers::MPI::Vector &w,
-           PETScWrappers::MPI::Vector &x)
-{
-  for (unsigned int i=0; i<v.size(); ++i)
-    {
-      v(i) = i;
-      w(i) = i+1.;
-      x(i) = i+2.;
-    }
-
-  v.compress (VectorOperation::insert);
-  w.compress (VectorOperation::insert);
-  x.compress (VectorOperation::insert);
-
-  v.equ (2, w, 3, x);
-
-  // make sure we get the expected result
-  for (unsigned int i=0; i<v.size(); ++i)
-    {
-      AssertThrow (w(i) == i+1., ExcInternalError());
-      AssertThrow (x(i) == i+2., ExcInternalError());
-      AssertThrow (v(i) == 2*(i+1.)+3*(i+2.), ExcInternalError());
-    }
-
-  deallog << "OK" << std::endl;
-}
-
-
-
-int main (int argc,char **argv)
-{
-  initlog();
-  deallog.threshold_double(1.e-10);
-
-  try
-    {
-      Utilities::MPI::MPI_InitFinalize mpi_initialization (argc, argv, 1);
-      {
-        IndexSet indices(100);
-        indices.add_range(0, 100);
-        PETScWrappers::MPI::Vector v(indices, MPI_COMM_WORLD);
-        PETScWrappers::MPI::Vector w(indices, MPI_COMM_WORLD);
-        PETScWrappers::MPI::Vector x(indices, MPI_COMM_WORLD);
-        test(v, w, x);
-      }
-
-    }
-  catch (std::exception &exc)
-    {
-      std::cerr << std::endl << std::endl
-                << "----------------------------------------------------"
-                << std::endl;
-      std::cerr << "Exception on processing: " << std::endl
-                << exc.what() << std::endl
-                << "Aborting!" << std::endl
-                << "----------------------------------------------------"
-                << std::endl;
-
-      return 1;
-    }
-  catch (...)
-    {
-      std::cerr << std::endl << std::endl
-                << "----------------------------------------------------"
-                << std::endl;
-      std::cerr << "Unknown exception!" << std::endl
-                << "Aborting!" << std::endl
-                << "----------------------------------------------------"
-                << std::endl;
-      return 1;
-    };
-}
diff --git a/tests/petsc/47.output b/tests/petsc/47.output
deleted file mode 100644
index 0fd8fc12f0..0000000000
--- a/tests/petsc/47.output
+++ /dev/null
@@ -1,2 +0,0 @@
-
-DEAL::OK
-- 
2.39.5