#!/usr/bin/env python3
#  Copyright 2016 Google Inc. All Rights Reserved.
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
#      http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS-IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.

from fruit_test_common import *

COMMON_DEFINITIONS = '''
    #define IN_FRUIT_CPP_FILE 1
    
    #include "meta/common.h"
    #include <fruit/impl/meta/set.h>
    #include <fruit/impl/meta/metaprogramming.h>
    
    struct A1 {};
    struct B1 {};
    struct C1 {};
    
    using A = Type<A1>;
    using B = Type<B1>;
    using C = Type<C1>;
    
    struct Square {
        template <typename N>
        struct apply {
            using type = Int<N::value * N::value>;
        };
    };
    '''

def test_EmptySet():
    source = '''
        int main() {
            AssertNot(IsInSet(A, EmptySet));
        }
        '''
    expect_success(
        COMMON_DEFINITIONS,
        source,
        locals())

def test_ToSet1():
    source = '''
        int main() {
            Assert(IsInSet(A, ToSet1<A>));
            AssertNot(IsInSet(A, ToSet1<B>));
        }
        '''
    expect_success(
        COMMON_DEFINITIONS,
        source,
        locals())

def test_ToSet2():
    source = '''
        int main() {
            Assert(IsInSet(A, ToSet2<A, B>));
            Assert(IsInSet(B, ToSet2<A, B>));
            AssertNot(IsInSet(C, ToSet2<A, B>));
        }
        '''
    expect_success(
        COMMON_DEFINITIONS,
        source,
        locals())

def test_IsSameSet():
    source = '''
        int main() {
            AssertSameSet(EmptySet, EmptySet);
            AssertSameSet(ToSet<A, B>, ToSet<B, A>);
        }
        '''
    expect_success(
        COMMON_DEFINITIONS,
        source,
        locals())

def test_FoldSet():
    source = '''
        int main() {
            AssertSameType(Id<FoldSet(ToSet<>, Sum, Int<3>)>, Int<3>);
            AssertSameType(Id<FoldSet(ToSet<Int<2>>, Sum, Int<3>)>, Int<5>);
            AssertSameType(Id<FoldSet(ToSet<Int<3>, Int<2>, Int<5>, Int<9>, Int<13>>, Sum, Int<7>)>, Int<39>);
        }
        '''
    expect_success(
        COMMON_DEFINITIONS,
        source,
        locals())

def test_FoldSetWithCombine():
    source = '''
        int main() {
            AssertSameType(Id<FoldSetWithCombine(ToSet<>, Square, Sum, Int<0>)>, Int<0>);
            AssertSameType(Id<FoldSetWithCombine(ToSet<Int<2>>, Square, Sum, Int<0>)>, Int<4>);
            AssertSameType(Id<FoldSetWithCombine(ToSet<Int<3>, Int<2>, Int<5>, Int<9>, Int<13>>, Square, Sum, Int<0>)>, Int<288>);
        }
        '''
    expect_success(
        COMMON_DEFINITIONS,
        source,
        locals())

def test_AddToSet():
    source = '''
        int main() {
            AssertSameSet(Id<AddToSet(EmptySet, A)>, ToSet<A>);
            AssertSameSet(Id<AddToSet(ToSet<A, B>, A)>, ToSet<A, B>);
            AssertSameSet(Id<AddToSet(ToSet<C, B>, A)>, ToSet<A, C, B>);
        }
        '''
    expect_success(
        COMMON_DEFINITIONS,
        source,
        locals())

def test_TransformSet():
    source = '''
        int main() {
            AssertSameSet(Id<TransformSet(ToSet<>, Square)>, ToSet<>);
            AssertSameSet(Id<TransformSet(ToSet<Int<2>>, Square)>, ToSet<Int<4>>);
            AssertSameSet(Id<TransformSet(ToSet<Int<3>, Int<2>, Int<5>, Int<9>, Int<13>>, Square)>, ToSet<Int<9>, Int<4>, Int<25>, Int<81>, Int<169>>);
        }
        '''
    expect_success(
        COMMON_DEFINITIONS,
        source,
        locals())

def test_SetSize():
    source = '''
        int main() {
            AssertSameType(Id<SetSize(ToSet<>)>, Int<0>);
            AssertSameType(Id<SetSize(ToSet<Int<2>>)>, Int<1>);
            AssertSameType(Id<SetSize(ToSet<Int<3>, Int<2>, Int<5>, Int<9>, Int<13>>)>, Int<5>);
        }
        '''
    expect_success(
        COMMON_DEFINITIONS,
        source,
        locals())

def test_IsEmptySet():
    source = '''
        int main() {
            Assert(IsEmptySet(ToSet<>));
            AssertNot(IsEmptySet(ToSet<Int<2>>));
            AssertNot(IsEmptySet(ToSet<Int<3>, Int<2>, Int<5>, Int<9>, Int<13>>));
        }
        '''
    expect_success(
        COMMON_DEFINITIONS,
        source,
        locals())

def test_SetDifference():
    source = '''
        int main() {
            AssertSameSet(Id<SetDifference(ToSet<>, ToSet<>)>, ToSet<>);
            AssertSameSet(Id<SetDifference(ToSet<>, ToSet<A>)>, ToSet<>);
            AssertSameSet(Id<SetDifference(ToSet<>, ToSet<A, B>)>, ToSet<>);
            AssertSameSet(Id<SetDifference(ToSet<>, ToSet<A, B, C>)>, ToSet<>);
            AssertSameSet(Id<SetDifference(ToSet<A>, ToSet<>)>, ToSet<A>);
            AssertSameSet(Id<SetDifference(ToSet<A>, ToSet<A>)>, ToSet<>);
            AssertSameSet(Id<SetDifference(ToSet<A>, ToSet<A, B>)>, ToSet<>);
            AssertSameSet(Id<SetDifference(ToSet<A>, ToSet<A, B, C>)>, ToSet<>);
            AssertSameSet(Id<SetDifference(ToSet<B>, ToSet<>)>, ToSet<B>);
            AssertSameSet(Id<SetDifference(ToSet<B>, ToSet<A>)>, ToSet<B>);
            AssertSameSet(Id<SetDifference(ToSet<B>, ToSet<A, B>)>, ToSet<>);
            AssertSameSet(Id<SetDifference(ToSet<B>, ToSet<A, B, C>)>, ToSet<>);
            AssertSameSet(Id<SetDifference(ToSet<B, C>, ToSet<>)>, ToSet<B, C>);
            AssertSameSet(Id<SetDifference(ToSet<B, C>, ToSet<A>)>, ToSet<B, C>);
            AssertSameSet(Id<SetDifference(ToSet<B, C>, ToSet<A, B>)>, ToSet<C>);
            AssertSameSet(Id<SetDifference(ToSet<B, C>, ToSet<A, B, C>)>, ToSet<>);
            AssertSameSet(Id<SetDifference(ToSet<A, B>, ToSet<A, B>)>, ToSet<>);
            AssertSameSet(Id<SetDifference(ToSet<A>, ToSet<A, B>)>, EmptySet);
            AssertSameSet(Id<SetDifference(ToSet<A, B, C>, ToSet<A>)>, ToSet<B, C>);
            AssertSameSet(Id<SetDifference(ToSet<A, B, C>, ToSet<B>)>, ToSet<A, C>);
            AssertSameSet(Id<SetDifference(ToSet<A, B, C>, ToSet<C>)>, ToSet<A, B>);
        }
        '''
    expect_success(
        COMMON_DEFINITIONS,
        source,
        locals())

def test_SetIntersection():
    source = '''
        int main() {
            AssertSameSet(Id<SetIntersection(ToSet<A, B>, ToSet<A, B>)>, ToSet<A, B>);
            AssertSameSet(Id<SetIntersection(ToSet<A>, ToSet<A, B>)>, ToSet<A>);
            AssertSameSet(Id<SetIntersection(ToSet<A, B>, ToSet<A>)>, ToSet<A>);
            AssertSameSet(Id<SetIntersection(ToSet<A>, ToSet<B>)>, ToSet<>);
            AssertSameSet(Id<SetIntersection(ToSet<>, ToSet<A, B>)>, ToSet<>);
            AssertSameSet(Id<SetIntersection(ToSet<C>, ToSet<A, B>)>, ToSet<>);
            AssertSameSet(Id<SetIntersection(ToSet<A, B>, ToSet<>)>, ToSet<>);
            AssertSameSet(Id<SetIntersection(ToSet<A, B>, ToSet<C>)>, ToSet<>);
        }
        '''
    expect_success(
        COMMON_DEFINITIONS,
        source,
        locals())

def test_IsContained():
    source = '''
        int main() {
            Assert(IsContained(ToSet<>, ToSet<>));
            Assert(IsContained(ToSet<>, ToSet<A>));
            Assert(IsContained(ToSet<A, B>, ToSet<A, B>));
            Assert(IsContained(ToSet<A, B>, ToSet<B, A>));
            Assert(IsContained(ToSet<A>, ToSet<A, B, C>));
            Assert(IsContained(ToSet<B>, ToSet<A, B, C>));
            Assert(IsContained(ToSet<C>, ToSet<A, B, C>));
            AssertNot(IsContained(ToSet<A, B, C>, ToSet<A, B>));
            AssertNot(IsContained(ToSet<A, B, C>, ToSet<A, C>));
            AssertNot(IsContained(ToSet<A, B, C>, ToSet<B, C>));
        }
        '''
    expect_success(
        COMMON_DEFINITIONS,
        source,
        locals())

def test_IsDisjoint():
    source = '''
        int main() {
            AssertNot(IsDisjoint(ToSet<A, B>, ToSet<A, B>));
            AssertNot(IsDisjoint(ToSet<A>, ToSet<A, B>));
            AssertNot(IsDisjoint(ToSet<A, B>, ToSet<A>));
            Assert(IsDisjoint(ToSet<A>, ToSet<B>));
            Assert(IsDisjoint(ToSet<>, ToSet<A, B>));
            Assert(IsDisjoint(ToSet<C>, ToSet<A, B>));
            Assert(IsDisjoint(ToSet<A, B>, ToSet<>));
            Assert(IsDisjoint(ToSet<A, B>, ToSet<C>));
        }
        '''
    expect_success(
        COMMON_DEFINITIONS,
        source,
        locals())

def test_SetUnion():
    source = '''
        int main() {
            AssertSameSet(Id<SetUnion(ToSet<A, B>, ToSet<A, B>)>, ToSet<A, B>);
            AssertSameSet(Id<SetUnion(ToSet<A>, ToSet<A, B>)>, ToSet<A, B>);
            AssertSameSet(Id<SetUnion(ToSet<A, B>, ToSet<A>)>, ToSet<A, B>);
            AssertSameSet(Id<SetUnion(ToSet<A>, ToSet<B>)>, ToSet<A, B>);
            AssertSameSet(Id<SetUnion(ToSet<>, ToSet<A, B>)>, ToSet<A, B>);
            AssertSameSet(Id<SetUnion(ToSet<C>, ToSet<A, B>)>, ToSet<A, B, C>);
            AssertSameSet(Id<SetUnion(ToSet<A, B>, ToSet<>)>, ToSet<A, B>);
            AssertSameSet(Id<SetUnion(ToSet<A, B>, ToSet<C>)>, ToSet<A, B, C>);
        }
        '''
    expect_success(
        COMMON_DEFINITIONS,
        source,
        locals())

if __name__== '__main__':
    main(__file__)