anchor.diff:      call test_get_curvature(success)
       call test_reduce_pseudo_inverse(success)
       call test_projection_error(success)
  +    call test_can_reduce(success)
   
     end subroutine curve_all_tests
   
  
positive.code: 
    end subroutine test_projection_error
  
  end module test_curve
  
negative.code: 
  module test_curve
  
    use iso_c_binding, only: c_bool, c_double, c_int
    use curve, only: &
         evaluate_curve_barycentric, evaluate_multi, specialize_curve, &
         evaluate_hodograph, subdivide_nodes, newton_refine, LOCATE_MISS, &
         LOCATE_INVALID, locate_point, elevate_nodes, get_curvature, &
         reduce_pseudo_inverse, projection_error, can_reduce
    use types, only: dp
    use unit_test_helpers, only: &
         MACHINE_EPS, print_status, get_random_nodes, get_id_mat
  