# include "fbcu.bi"

namespace fbc_tests.file_.input_large_dbl

	dim shared as double correct(0 to 6) = {57847922012.0, 57847922012, 11940917156.0, 11940917156, 1194091715, 119409171, 11940917}
	
	sub read_it cdecl( )
		Dim a As Double
		Open "./file/large_dbl.csv" For Input As 1
		for i as integer = 0 to 6
			Input #1, a
			CU_ASSERT( a = correct(i) )
		next
		Close 1
	end sub
	
	private sub ctor () constructor
	
		fbcu.add_suite("fbc_tests.file.input_large_dbl")
		fbcu.add_test("read_it", @read_it)
	
	end sub
	
end namespace
