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

FIX: unit test suite for connection

parent 6962f28c
......@@ -7,8 +7,6 @@
test_suite connection_m
! Global variables declaration
class(neuron_t), target :: n1
class(neuron_t), target :: n2
class(neuron_t), pointer :: n1_p
class(neuron_t), pointer :: n2_p
......@@ -25,11 +23,8 @@ setup
write(*,*) '| SETUP BEFORE UNIT TEST |'
write(*,*) '+------------------------+'
write(*,*) 'Creating instances of the class mock_neuron_t...'
n1 = mock_neuron_t()
n2 = mock_neuron_t()
write(*,*) 'Assigning instances to pointer...'
n1_p => n1
n2_p => n2
n1_p => mock_neuron_t()
n2_p => mock_neuron_t()
write(*,*) 'Creating an instance of the class interval_connection_t...'
con => connection_t(n1_p, n2_p, 5.25)
nullify(dummy_p)
......
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