/*
Copyright (C) 2015 LiveCode Ltd.

This file is part of LiveCode.

LiveCode is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License v3 as published by the Free
Software Foundation.

LiveCode is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
for more details.

You should have received a copy of the GNU General Public License
along with LiveCode.  If not see <http://www.gnu.org/licenses/>.  */

module com.livecode.compiler.namespace.tests

use com.livecode.__INTERNAL._testlib

public constant ThisModule is "com.livecode.compiler.namespace.tests"
public handler MCUnitTestHandlerThrows() returns Number
	return 5
end handler
public type Thunk is Number

public handler TestConstantQualification()
	test "unqualified constant value" when ThisModule is "com.livecode.compiler.namespace.tests"
	test "qualified constant value" when com.livecode.compiler.namespace.tests.ThisModule is "com.livecode.compiler.namespace.tests"
	test "qualified import constant value" when com.livecode.__INTERNAL._testlib.ThisModule is "com.livecode.__INTERNAL._testlib"
end handler

handler type TestLibThrows(in pHandler as any, in pDescription as String) returns nothing
handler DoesntThrow() returns nothing
	variable tUnitTestHandler as TestLibThrows
	put com.livecode.__INTERNAL._testlib.MCUnitTestHandlerThrows into tUnitTestHandler
end handler

public handler TestHandlerQualification()
	test "unqualified handler call" when MCUnitTestHandlerThrows() is 5
	test "handler call" when com.livecode.compiler.namespace.tests.MCUnitTestHandlerThrows() is 5
	MCUnitTestHandlerDoesntThrow(DoesntThrow, "qualified import handler call")
end handler

handler __Thunk() returns optional any
	return nothing
end handler

public handler TestTypeQualification()
	variable tTestThis as Thunk
	put 5 into tTestThis
	test "unqualified type use" when tTestThis is 5
	
	variable tTestThisQualified as com.livecode.compiler.namespace.tests.Thunk
	put 5 into tTestThisQualified
	test "unqualified type use" when tTestThisQualified is 5
	
	// Thunk in _testlib is a handler type
	variable tTestThat as com.livecode.__INTERNAL._testlib.Thunk
	put __Thunk into tTestThat
	test "qualified import type use" when tTestThat() is nothing
end handler

end module