update MPI tests 93/12493/1
Antoine ELIAS [Wed, 11 Sep 2013 14:21:31 +0000 (16:21 +0200)]
Change-Id: I5e9de8fcc35fc4d29b7bff17b62627a2dcc9e088

scilab/modules/mpi/tests/unit_tests/mpi_hello_world.tst
scilab/modules/mpi/tests/unit_tests/mpi_send_boolean_sparse.tst
scilab/modules/mpi/tests/unit_tests/mpi_send_string.tst

index a69a7bb..ee55974 100644 (file)
@@ -6,9 +6,9 @@
 // =============================================================================
 //
 // <-- MPI TEST -->
+//
 
 MPI_Init();
-
 assert_checktrue(MPI_Comm_rank() == 0 | MPI_Comm_rank() == 1);
 assert_checkequal(MPI_Comm_size(), 2);
 
@@ -17,3 +17,4 @@ assert_checkequal(size(name), [1, 1]);
 assert_checktrue(length(name)>0);
 
 MPI_Finalize();
+exit();
\ No newline at end of file
index b13ff5e..23f5c75 100644 (file)
@@ -9,7 +9,7 @@
 // This test sends a matrix of double [42,41] and, on each slave,
 // it adds +1 to each element
 // and send it back to the master
-// 
+//
 
 MPI_Init();
 rnk =    MPI_Comm_rank();
@@ -24,9 +24,9 @@ if Master
 
     for slaveId = 1:sizeNodes-1
         dense=[ %T, %F, %T, %F
-                %F, %T, %F, %T
-                %T, %F, %T, %F
-                %F, %T, %F, %T];
+        %F, %T, %F, %T
+        %T, %F, %T, %F
+        %F, %T, %F, %T];
         value = sparse(dense);
         MPI_Send(value, slaveId)
     end
@@ -41,11 +41,11 @@ else
     tag=0;
     value=MPI_Recv(rankSource, tag)
     value = ~value;
-    
+
     // Send back to the master
     MPI_Send(value,0)
 
 end
 
 MPI_Finalize()
-
+exit();
index 40250e2..7ff7299 100644 (file)
@@ -6,7 +6,7 @@
 // =============================================================================
 //
 // <-- MPI TEST -->
-// 
+//
 
 MPI_Init();
 rnk =    MPI_Comm_rank();
@@ -29,7 +29,7 @@ if Master
         tag=0
         valueBack=MPI_Recv(slaveId, tag);
         assert_checkequal(size(valueBack), [1,1]);
-           assert_checkequal(valueBack, strcat(value))
+        assert_checkequal(valueBack, strcat(value))
     end
 else
     disp("SLAVE: Processor "+string(rnk))
@@ -37,11 +37,9 @@ else
     tag=0;
     value=MPI_Recv(rankSource, tag)
     value = strcat(value);
-    disp(value)
     // Send back to the master
     MPI_Send(value,0)
-
 end
 
 MPI_Finalize()
-
+exit();
\ No newline at end of file