pike.git/ src/ testsuite.in

2003-02-24

2003-02-24 21:53:30 by Martin Stjernholm <mast@lysator.liu.se>

• b072108bc371b95175dd6004a675be14769beebc (31 lines) (+26/-5) ^{[ Show | Annotate ]}
  Branch: 7.4

Test that references to function prototypes really are zero.

Rev: src/testsuite.in:1.581

1: - test_true([["$Id: testsuite.in,v 1.580 2003/01/29 17:18:48 marcus Exp $"]]); + test_true([["$Id: testsuite.in,v 1.581 2003/02/24 21:53:30 mast Exp $"]]);      // This triggered a bug only if run sufficiently early.   test_compile_any([[#pike 7.2]])
434:    }   ]])    - // Test that prototypes evaluate to false. + // Test that prototypes evaluate to zero.   test_any([[ -  +  class Foo {int foo();}; +  return Foo()->foo == 0; + ]], 1) + test_any_equal([[ +  class Foo {int foo();}; +  return indices(Foo()); + ]], ({"foo"})) + test_any_equal([[ +  class Foo {int foo();}; +  return values(Foo()); + ]], ({0})) + test_any([[    class Foo    {    int foo();    int(0..1) f()    { -  return !foo; +  return foo == 0;    }    };    return Foo()->f();   ]], 1) -  +    test_any([[    class Foo    {    int foo(); -  +  int(0..1) f() +  { +  return functionp(foo); +  }    }; -  return !Foo()->foo; +  class Bar +  { +  inherit Foo; +  int foo() {} +  }; +  return Bar()->f();   ]], 1)      test_do([[