pike.git/ src/ testsuite.in

1997-03-17

1997-03-17 22:52:02 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 31da03bf14b133f20981c9b73f22e151521051de (11 lines) (+8/-3) ^{[ Show | Annotate ]}
  Branch: 7.9

more tests for search()

Rev: src/testsuite.in:1.37

1: - test_true([["$Id: testsuite.in,v 1.36 1997/03/12 12:15:28 hubbe Exp $"]]) + test_true([["$Id: testsuite.in,v 1.37 1997/03/17 22:52:02 hubbe Exp $"]])   test_any([[class foo { constant x=17; }; class bar { inherit foo; constant x=18; }; return bar()->x;]],18)   test_program([[inline string foo(string s){ while(s[0] == ' ' || s[0] == '\t') s = s[1..]; return(s); } string a() { return foo(" bar"); }]])   test_true([[lambda(function f) {return 1;}(object_program(this_object()));]])
1619:   test_search($1,$2+1,$3)   test_search($1,$2+2,$3)   test_search($1,$2+3,$3) + test_search($1,$2+4,$3) + test_search($1,$2+5,$3)   ]])      define(test_search3,[[dnl
1629:      define(test_search4,[[dnl   test_search3($1,"+-*") - test_search3($1,($1[0..strlen($1)-2])) - test_search3($1,($1[1..0x7fffffff])) + test_search3($1,($1[..strlen($1)-2])) + test_search3($1,($1[..strlen($1)-3])) + test_search3($1,($1[1..]))   ]])      test_search4("SUNE") -  + test_search4("kapitäl>")   test_search4("-------------------+")   test_search4("å-------------------")   test_search4(sprintf("%'argel-bargel glop-glyf?'2000n"))