pike.git/ src/ testsuite.in

2001-05-17

2001-05-17 23:49:07 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 7b4c2aab8401bcd84c40f3b5dc25b496bacc4eb2 (25 lines) (+24/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

bugfix for #string

Rev: src/preprocessor.h:1.39
Rev: src/testsuite.in:1.412

1: - test_true([["$Id: testsuite.in,v 1.411 2001/05/17 17:48:10 grubba Exp $"]]); + test_true([["$Id: testsuite.in,v 1.412 2001/05/17 23:49:07 hubbe Exp $"]]);      cond([[all_constants()->_verify_internals]],   [[
5739:   #error Gurgel   ]])    + define(do_test_cpp_string,[[ + test_eq([[ (({""}) + (string)indices("."*256)/"" + ({""})) * $1]], +  [[ Stdio.write_file("testsuite.tmp",a()),compile_string("string s=#string \"testsuite.tmp\";")()->s ]]) + ]]) +  + do_test_cpp_string([["0"]]) + do_test_cpp_string([["1"]]) + do_test_cpp_string([["2"]]) + do_test_cpp_string([["3"]]) + do_test_cpp_string([["4"]]) + do_test_cpp_string([["5"]]) + do_test_cpp_string([["6"]]) + do_test_cpp_string([["7"]]) + do_test_cpp_string([["8"]]) + do_test_cpp_string([["9"]]) + do_test_cpp_string([["a"]]) + do_test_cpp_string([["A"]]) + do_test_cpp_string([["\\"]]) + do_test_cpp_string([["\\\\"]]) + do_test_cpp_string([["\\\\\\"]]) + do_test_cpp_string([["\""]]) +    // foop   define(do_test_foop,[[   test_eq($1 (17), !($2))