Update test programs

Author: milancurcic

test/test_dense_layer.f90

@@ -0,0 +1,51 @@
+program test_dense_layer
+  use nf, only: dense, layer
+  implicit none
+  type(layer) :: layer1, layer2
+  logical :: ok = .true.
+
+  layer1 = dense(10)
+
+  if (.not. layer1 % name == 'dense') then
+    ok = .false.
+    print '(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'
+  end if
+
+  if (layer1 % initialized) then
+    ok = .false.
+    print '(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'
+  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'
+  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'
+  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'
+  end if
+
+  if (ok) print '(a)', 'test_dense_layer: All tests passed.'
+
+end program test_dense_layer

test/test_input1d_layer.f90

@@ -0,0 +1,51 @@
+program test_input1d_layer
+  use nf, only: input, layer
+  use nf_input1d_layer, only: input1d_layer
+  implicit none
+  type(layer) :: test_layer
+  real, allocatable :: output(:)
+  logical :: ok = .true.
+
+  test_layer = input(3)
+
+  if (.not. test_layer % name == 'input') then
+    ok = .false.
+    print '(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'
+  end if
+
+  if (.not. all(test_layer % layer_shape == [3])) then
+    ok = .false.
+    print '(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'
+  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'
+  end if
+
+  select type(input_layer => test_layer % p); type is(input1d_layer)
+    call input_layer % set([1., 2., 3.])
+  end select
+
+  call test_layer % get_output(output) 
+
+  if (.not. all(output == [1., 2., 3.])) then
+    ok = .false.
+    print '(a)', 'input1d layer can have its values set.. failed'
+  end if
+
+  if (ok) print '(a)', 'test_input1d_layer: All tests passed.'
+
+end program test_input1d_layer