class 
	TEST

create

	make

feature {NONE} -- Initialization

	make is
			-- Execute test.
		local
			d1, d2: DATE_TIME
			s, os: INTEGER_64
			dd: DATE_TIME_DURATION
		do
			from
				create d1.make (2001, 1, 15, 0, 0, 0)
				create d2.make (2000, 6, 1, 0, 0, 0)
				dd := d2.relative_duration (d1)
				s := dd.seconds_count
				os := s - (8 * 3600)
			until
				d2.year = d1.year + 4 and d2.month = 6
			loop
				Io.put_string (d2.out + "... ")
				dd := d2.relative_duration (d1)
				s := dd.seconds_count
				if s = os + (8 * 3600) then
					Io.put_string ("OK%N")
				else
					Io.put_string ("FAILED%N")
				end
				d2.hour_add (8)
				os := s
			end
		end

end -- class TEST