Commit be2d88a2 authored by Martin Mrovec's avatar Martin Mrovec
Browse files

FIX: test suite for connection

parent 60828673
...@@ -7,13 +7,11 @@ ...@@ -7,13 +7,11 @@
test_suite connection_m test_suite connection_m
! Global variables declaration ! Global variables declaration
type(neuron_t), target :: n1
type(neuron_t), target :: n2
type(neuron_t), pointer :: n1_p class(neuron_t), pointer :: n1_p
type(neuron_t), pointer :: n2_p class(neuron_t), pointer :: n2_p
type(neuron_t), pointer :: dummy_p class(neuron_t), pointer :: dummy_p
type(connection_t), pointer :: con type(connection_t), pointer :: con
...@@ -24,14 +22,11 @@ setup ...@@ -24,14 +22,11 @@ setup
write(*,*) '+------------------------+' write(*,*) '+------------------------+'
write(*,*) '| SETUP BEFORE UNIT TEST |' write(*,*) '| SETUP BEFORE UNIT TEST |'
write(*,*) '+------------------------+' write(*,*) '+------------------------+'
write(*,*) 'Creating instances of the class neuron_t...' write(*,*) 'Creating instances of the class mock_neuron_t...'
n1 = neuron_t(21.3) n1_p => mock_neuron_t()
n2 = neuron_t(13.7) n2_p => mock_neuron_t()
write(*,*) 'Assigning instances to pointer...'
n1_p => n1
n2_p => n2
write(*,*) 'Creating an instance of the class interval_connection_t...' write(*,*) 'Creating an instance of the class interval_connection_t...'
con => connection_t(n1_p, n2_p, 5.25) con => connection_t(n1_p, n2_p, real(5.25, real_4neuro))
nullify(dummy_p) nullify(dummy_p)
write(*,*) 'Ready for test.' write(*,*) 'Ready for test.'
end setup end setup
...@@ -62,7 +57,7 @@ test getters_setters ...@@ -62,7 +57,7 @@ test getters_setters
! Test of get_weight ! Test of get_weight
assert_real_equal(con%get_weight(), 5.25e+0) assert_real_equal(con%get_weight(), 5.25e+0)
! Test of adjust_weight ! Test of adjust_weight
call con%adjust_weight(1.0) call con%adjust_weight(real(1.0, real_4neuro))
assert_real_equal(con%get_weight(), 6.25e+0) assert_real_equal(con%get_weight(), 6.25e+0)
write(*,*) '... finished +++' write(*,*) '... finished +++'
end test end test
...@@ -74,10 +69,10 @@ test input_and_output_neurons ...@@ -74,10 +69,10 @@ test input_and_output_neurons
write(*,*) '+++ Test of input and output neurons ...' write(*,*) '+++ Test of input and output neurons ...'
! Input neuron ! Input neuron
dummy_p => con%get_input_neuron() dummy_p => con%get_input_neuron()
assert_real_equal(dummy_p%get_state(),21.3d+0) assert_real_equal(dummy_p%get_state(),15.0e+0)
! Output neuron ! Output neuron
dummy_p => con%get_output_neuron() dummy_p => con%get_output_neuron()
assert_real_equal(dummy_p%get_state(),13.7d+0) assert_real_equal(dummy_p%get_state(),15.0e+0)
write(*,*) '... finished +++' write(*,*) '... finished +++'
end test end test
...@@ -88,7 +83,7 @@ test pass_signal ...@@ -88,7 +83,7 @@ test pass_signal
write(*,*) '+++ Test of passing a signal ...' write(*,*) '+++ Test of passing a signal ...'
dummy_p => con%get_output_neuron() dummy_p => con%get_output_neuron()
call con%pass_signal() call con%pass_signal()
assert_real_equal(dummy_p%get_state(), 111.825d+0) assert_real_equal(dummy_p%get_potential(), 78.75e+0)
write(*,*) '... finished +++' write(*,*) '... finished +++'
end test end test
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment