/*
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.type.tests

public handler TestDefaultNothing()
    variable tNothing as optional Boolean
    test "optional default is nothing" when tNothing is nothing
    
    variable tNotNothing as Boolean
    put false into tNotNothing
    test "non-optional is not nothing" when tNotNothing is not nothing
end handler

public handler TestNothingComparisons()
    variable tLeftNothing as optional Boolean
    variable tRightNothing as optional Boolean
    
    test "nothing is nothing" when tLeftNothing is tRightNothing
    test "not (nothing is nothing)" when not (tLeftNothing is not tRightNothing)

    variable tLeftNotNothing as optional Boolean
    variable tRightNotNothing as optional Boolean
    put false into tLeftNotNothing
    put false into tRightNotNothing
    test "nothing is not something" when tLeftNothing is not tRightNotNothing
    test "not (nothing is something)" when not (tLeftNothing is tRightNotNothing)
    test "something is not nothing" when tLeftNotNothing is not tRightNothing
    test "not (something is nothing)" when not (tLeftNotNothing is tRightNothing)
end handler

end module