/*
 *   performance timing test for property getter 
 */
#include <tads.h>

class A: object
    prop1 = 'this is A.prop1'
;

class B: A
;

class C: B
    prop1()
    {
        return inherited();
    }
;

class D: B
    prop1()
    {
        return inherited();
    }
;

class E: C, D
    prop1()
    {
        return inherited();
    }
;

class F: E
;

main(args)
{
    local x;
    local startTime = getTime(GetTimeTicks);
    
    for (local i = 1 ; i < 100000 ; ++i)
        x = F.prop1();

    "done - x = <<x>>,
    time = <<getTime(GetTimeTicks) - startTime>> milliseconds\n";
}

