pike.git/ src/ testsuite.in

2002-05-09

2002-05-09 20:49:18 by Martin Nilsson <mani@lysator.liu.se>

• f67d2eb1f80ade1f862c7477b8faaf6f25bf14b4 (10 lines) (+8/-2) ^{[ Show | Annotate ]}
  Branch: 7.9

Fix LR test.

Rev: src/testsuite.in:1.511

1: - test_true([["$Id: testsuite.in,v 1.510 2002/05/05 16:31:08 mast Exp $"]]); + test_true([["$Id: testsuite.in,v 1.511 2002/05/09 20:49:18 nilsson Exp $"]]);      cond([[all_constants()->_verify_internals]],   [[
8894:   ]])      // - LR - test_program([[ object(LR.parser) p=LR.Grammar_parser.make_parser("foo : bar;foo : foo bar;bar : \"a\";"); int pos; array(string) data="aaaaaaaaa"/""; string scan() { if (pos < sizeof(data)) return(data[pos++]); else return ""; } int a() { return(p->parse(scan) == "a"); }]]) + test_program([[ Parser.LR.Parser p = +  Parser.LR.Grammar_parser.make_parser("foo : bar;foo : foo bar;bar : \"a\";"); +  int pos; +  array(string) data="aaaaaaaaa"/""; +  string scan() { if (pos < sizeof(data)) return(data[pos++]); else return ""; } +  int a() { return(p->parse(scan) == "a"); }]])      // - ADT   test_true(ADT.Table.table( ({ ({ "a", "b", 42 }), ({ "c", "b", 41 }), ({ "a", "a", 76 }) }), ({ "X", "Y", "z" }))->select("x", 2)->sum("Z")->distinct(0)->rsort("X")->rename(0, "fOo")->sort("foO")->cast("array"), ({ ({ "a", 118 }), ({ "c", 41 }) }))