2009-04-02 02:17:36 -04:00
|
|
|
! Copyright (C) 2009 Doug Coleman.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2013-04-13 20:30:30 -04:00
|
|
|
USING: tools.test c.preprocessor kernel accessors multiline
|
|
|
|
|
nested-comments ;
|
2009-04-02 02:17:36 -04:00
|
|
|
IN: c.preprocessor.tests
|
|
|
|
|
|
|
|
|
|
[ "vocab:c/tests/test1/test1.c" start-preprocess-file ]
|
|
|
|
|
[ include-nested-too-deeply? ] must-fail-with
|
|
|
|
|
|
|
|
|
|
[ "yo\n\n\n\nyo4\n" ]
|
|
|
|
|
[ "vocab:c/tests/test2/test2.c" start-preprocess-file nip ] unit-test
|
|
|
|
|
|
2013-04-13 20:30:30 -04:00
|
|
|
(*
|
2009-04-02 02:17:36 -04:00
|
|
|
[ "vocab:c/tests/test3/test3.c" start-preprocess-file ]
|
|
|
|
|
[ "\"BOO\"" = ] must-fail-with
|
2013-04-13 20:30:30 -04:00
|
|
|
*)
|
2009-04-02 02:17:36 -04:00
|
|
|
|
|
|
|
|
[ V{ "\"omg\"" "\"lol\"" } ]
|
|
|
|
|
[ "vocab:c/tests/test4/test4.c" start-preprocess-file drop warnings>> ] unit-test
|
2009-04-02 12:39:18 -04:00
|
|
|
|
|
|
|
|
|
2013-04-13 20:30:30 -04:00
|
|
|
(*
|
2009-04-02 12:39:18 -04:00
|
|
|
f(2 * (y+1)) + f(2 * (f(2 * (z[0])))) % f(2 * (0)) + t(1);
|
|
|
|
|
f(2 * (2+(3,4)-0,1)) | f(2 * (~ 5)) & f(2 * (0,1))^m(0,1);
|
|
|
|
|
int i[] = { 1, 23, 4, 5, };
|
|
|
|
|
char c[2][6] = { "hello", "" };
|
2013-04-13 20:30:30 -04:00
|
|
|
*)
|
