From: wolf Date: Sun, 7 Mar 2004 22:31:12 +0000 (+0000) Subject: New tests. X-Git-Url: https://gitweb.dealii.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=acf172df36252d8ade92dc7b630bc12c547c64a9;p=dealii-svn.git New tests. git-svn-id: https://svn.dealii.org/trunk@8669 0785d39b-7218-0410-832d-ea1e28bc413d --- diff --git a/tests/bits/petsc_full_matrix_iterator_01.cc b/tests/bits/petsc_full_matrix_iterator_01.cc new file mode 100644 index 0000000000..987aefba99 --- /dev/null +++ b/tests/bits/petsc_full_matrix_iterator_01.cc @@ -0,0 +1,80 @@ +//---------------------------- petsc_full_matrix_iterator_01.cc --------------------------- +// $Id$ +// Version: $Name$ +// +// Copyright (C) 2004 by the deal.II authors +// +// This file is subject to QPL and may not be distributed +// without copyright and license information. Please refer +// to the file deal.II/doc/license.html for the text and +// further information on this license. +// +//---------------------------- petsc_full_matrix_iterator_01.cc --------------------------- + + +// test PETScWrappers::MatrixBase::const_iterator + +#include "../tests.h" +#include +#include +#include + + +void test () +{ + PETScWrappers::FullMatrix m(5,5); + m.set (0,0,1); + m.set (1,1,2); + m.set (1,2,3); + m.compress (); + PETScWrappers::FullMatrix::const_iterator i = m.begin(); + deallog << i->row() << ' ' << i->column() << ' ' << i->value() << std::endl; + ++i; + deallog << i->row() << ' ' << i->column() << ' ' << i->value() << std::endl; + i++; + deallog << i->row() << ' ' << i->column() << ' ' << i->value() << std::endl; + + deallog << "OK" << std::endl; +} + + + +int main (int argc,char **argv) +{ + std::ofstream logfile("petsc_full_matrix_iterator_01.output"); + deallog.attach(logfile); + deallog.depth_console(0); + + try + { + PetscInitialize(&argc,&argv,0,0); + { + test (); + } + PetscFinalize(); + } + 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/bits/petsc_sparse_matrix_iterator_01.cc b/tests/bits/petsc_sparse_matrix_iterator_01.cc new file mode 100644 index 0000000000..d6080fa1f1 --- /dev/null +++ b/tests/bits/petsc_sparse_matrix_iterator_01.cc @@ -0,0 +1,80 @@ +//---------------------------- petsc_sparse_matrix_iterator_01.cc --------------------------- +// $Id$ +// Version: $Name$ +// +// Copyright (C) 2004 by the deal.II authors +// +// This file is subject to QPL and may not be distributed +// without copyright and license information. Please refer +// to the file deal.II/doc/license.html for the text and +// further information on this license. +// +//---------------------------- petsc_sparse_matrix_iterator_01.cc --------------------------- + + +// test PETScWrappers::MatrixBase::const_iterator + +#include "../tests.h" +#include +#include +#include + + +void test () +{ + PETScWrappers::SparseMatrix m(5,5,5); + m.set (0,0,1); + m.set (1,1,2); + m.set (1,2,3); + m.compress (); + PETScWrappers::SparseMatrix::const_iterator i = m.begin(); + deallog << i->row() << ' ' << i->column() << ' ' << i->value() << std::endl; + ++i; + deallog << i->row() << ' ' << i->column() << ' ' << i->value() << std::endl; + i++; + deallog << i->row() << ' ' << i->column() << ' ' << i->value() << std::endl; + + deallog << "OK" << std::endl; +} + + + +int main (int argc,char **argv) +{ + std::ofstream logfile("petsc_sparse_matrix_iterator_01.output"); + deallog.attach(logfile); + deallog.depth_console(0); + + try + { + PetscInitialize(&argc,&argv,0,0); + { + test (); + } + PetscFinalize(); + } + 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/results/i686-pc-linux-gnu+gcc3.2/bits/petsc_full_matrix_iterator_01.output b/tests/results/i686-pc-linux-gnu+gcc3.2/bits/petsc_full_matrix_iterator_01.output new file mode 100644 index 0000000000..19469918c9 --- /dev/null +++ b/tests/results/i686-pc-linux-gnu+gcc3.2/bits/petsc_full_matrix_iterator_01.output @@ -0,0 +1,5 @@ + +DEAL::0 0 1.00000 +DEAL::0 1 0.00000 +DEAL::0 2 0.00000 +DEAL::OK diff --git a/tests/results/i686-pc-linux-gnu+gcc3.2/bits/petsc_sparse_matrix_iterator_01.output b/tests/results/i686-pc-linux-gnu+gcc3.2/bits/petsc_sparse_matrix_iterator_01.output new file mode 100644 index 0000000000..e6bdc2e87e --- /dev/null +++ b/tests/results/i686-pc-linux-gnu+gcc3.2/bits/petsc_sparse_matrix_iterator_01.output @@ -0,0 +1,5 @@ + +DEAL::0 0 1.00000 +DEAL::1 1 2.00000 +DEAL::1 2 3.00000 +DEAL::OK