update MPI tests
[scilab.git] / scilab / modules / mpi / tests / unit_tests / mpi_hello_world.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2011 - DIGITEO - Sylvestre LEDRU
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 //
8 // <-- MPI TEST -->
9 //
10
11 MPI_Init();
12 assert_checktrue(MPI_Comm_rank() == 0 | MPI_Comm_rank() == 1);
13 assert_checkequal(MPI_Comm_size(), 2);
14
15 name =  MPI_Get_processor_name();
16 assert_checkequal(size(name), [1, 1]);
17 assert_checktrue(length(name)>0);
18
19 MPI_Finalize();
20 exit();