view tests/mini/classinfo4.d @ 1065:dc576c7e4b1e

Fix to make sure to create gen/ in build dir and unbreak build with older perl
author Frits van Bommel <fvbommel wxs.nl>
date Sun, 08 Mar 2009 16:37:55 +0100
parents 1bb99290e03a
children
line wrap: on
line source

module classinfo4;

class C
{
}

class D : C
{
    this()
    {
    }
    ~this()
    {
    }
}

template T()
{
    ~this()
    {
    }
}

class E : D
{
    this()
    {
    }
    ~this()
    {
    }
    mixin T;
}

void main()
{
    assert(C.classinfo.defaultConstructor is null);
    assert(C.classinfo.destructor is null);
    assert(D.classinfo.defaultConstructor !is null);
    assert(D.classinfo.destructor !is null);
    assert(E.classinfo.defaultConstructor !is null);
    assert(E.classinfo.destructor !is null);
}