Emit test errors to stderr; exit with status 1 on failure

Author: milancurcic

test/test_dense_layer.f90

@@ -1,4 +1,5 @@
 program test_dense_layer
+  use iso_fortran_env, only: stderr => error_unit
   use nf, only: dense, layer
   implicit none
   type(layer) :: layer1, layer2
@@ -8,44 +9,49 @@ program test_dense_layer
 
   if (.not. layer1 % name == 'dense') then
     ok = .false.
-    print '(a)', 'dense layer has its name set correctly.. failed'
+    write(stderr, '(a)') 'dense layer has its name set correctly.. failed'
   end if
 
   if (.not. all(layer1 % layer_shape == [10])) then
     ok = .false.
-    print '(a)', 'dense layer is created with requested size.. failed'
+    write(stderr, '(a)') 'dense layer is created with requested size.. failed'
   end if
 
   if (layer1 % initialized) then
     ok = .false.
-    print '(a)', 'dense layer should not be marked as initialized yet.. failed'
+    write(stderr, '(a)') 'dense layer should not be marked as initialized yet.. failed'
   end if
 
   if (.not. layer1 % activation == 'sigmoid') then
     ok = .false.
-    print '(a)', 'dense layer is defaults to sigmoid activation.. failed'
+    write(stderr, '(a)') 'dense layer is defaults to sigmoid activation.. failed'
   end if
 
   layer1 = dense(10, activation='relu')
 
   if (.not. layer1 % activation == 'relu') then
     ok = .false.
-    print '(a)', 'dense layer is created with the specified activation.. failed'
+    write(stderr, '(a)') 'dense layer is created with the specified activation.. failed'
   end if
 
   layer2 = dense(20)
   call layer2 % init(layer1)
 
   if (.not. layer2 % initialized) then
     ok = .false.
-    print '(a)', 'dense layer should now be marked as initialized.. failed'
+    write(stderr, '(a)') 'dense layer should now be marked as initialized.. failed'
   end if
 
   if (.not. all(layer2 % input_layer_shape == [10])) then
     ok = .false.
-    print '(a)', 'dense layer should have a correct input layer shape.. failed'
+    write(stderr, '(a)') 'dense layer should have a correct input layer shape.. failed'
   end if
 
-  if (ok) print '(a)', 'test_dense_layer: All tests passed.'
+  if (ok) then
+    print '(a)', 'test_dense_layer: All tests passed.'
+  else
+    write(stderr, '(a)') 'test_dense_layer: One or more tests failed.'
+    stop 1
+  end if
 
 end program test_dense_layer

test/test_input1d_layer.f90

@@ -1,4 +1,5 @@
 program test_input1d_layer
+  use iso_fortran_env, only: stderr => error_unit
   use nf, only: input, layer
   use nf_input1d_layer, only: input1d_layer
   implicit none
@@ -10,29 +11,29 @@ program test_input1d_layer
 
   if (.not. test_layer % name == 'input') then
     ok = .false.
-    print '(a)', 'input1d layer has its name set correctly.. failed'
+    write(stderr, '(a)') 'input1d layer has its name set correctly.. failed'
   end if
 
   if (.not. test_layer % initialized) then
     ok = .false.
-    print '(a)', 'input1d layer should be marked as initialized.. failed'
+    write(stderr, '(a)') 'input1d layer should be marked as initialized.. failed'
   end if
 
   if (.not. all(test_layer % layer_shape == [3])) then
     ok = .false.
-    print '(a)', 'input1d layer is created with requested size.. failed'
+    write(stderr, '(a)') 'input1d layer is created with requested size.. failed'
   end if
 
   if (.not. size(test_layer % input_layer_shape) == 0) then
     ok = .false.
-    print '(a)', 'input1d layer has no input layer shape.. failed'
+    write(stderr, '(a)') 'input1d layer has no input layer shape.. failed'
   end if
 
   call test_layer % get_output(output) 
 
   if (.not. all(output == 0)) then
     ok = .false.
-    print '(a)', 'input1d layer values are all initialized to 0.. failed'
+    write(stderr, '(a)') 'input1d layer values are all initialized to 0.. failed'
   end if
 
   select type(input_layer => test_layer % p); type is(input1d_layer)
@@ -43,9 +44,14 @@ program test_input1d_layer
 
   if (.not. all(output == [1., 2., 3.])) then
     ok = .false.
-    print '(a)', 'input1d layer can have its values set.. failed'
+    write(stderr, '(a)') 'input1d layer can have its values set.. failed'
   end if
 
-  if (ok) print '(a)', 'test_input1d_layer: All tests passed.'
+  if (ok) then
+    print '(a)', 'test_dense_layer: All tests passed.'
+  else
+    write(stderr, '(a)') 'test_dense_layer: One or more tests failed.'
+    stop 1
+  end if
 
 end program test_input1d_layer