! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors c.lexer kernel sequences.parser tools.test ;
IN: c.lexer.tests

{ 36 }
[
    "    //jofiejoe\n    //eoieow\n/*asdf*/\n      "
    <sequence-parser> skip-whitespace/comments n>>
] unit-test

{ f "33asdf" }
[ "33asdf" <sequence-parser> [ take-c-identifier ] [ take-rest ] bi ] unit-test

{ "asdf" }
[ "asdf" <sequence-parser> take-c-identifier ] unit-test

{ "_asdf" }
[ "_asdf" <sequence-parser> take-c-identifier ] unit-test

{ "_asdf400" }
[ "_asdf400" <sequence-parser> take-c-identifier ] unit-test

{ "asdfasdf" } [
    "/*asdfasdf*/" <sequence-parser> take-c-comment
] unit-test

{ "k" } [
    "/*asdfasdf*/k" <sequence-parser> [ take-c-comment drop ] [ take-rest ] bi
] unit-test

{ "omg" } [
    "//asdfasdf\nomg" <sequence-parser>
    [ take-c++-comment drop ] [ take-rest ] bi
] unit-test

{ "omg" } [
    "omg" <sequence-parser>
    [ take-c++-comment drop ] [ take-rest ] bi
] unit-test

{ "/*asdfasdf" } [
    "/*asdfasdf" <sequence-parser> [ take-c-comment drop ] [ take-rest ] bi
] unit-test

{ "asdf" "eoieoei" } [
    "//asdf\neoieoei" <sequence-parser>
    [ take-c++-comment ] [ take-rest ] bi
] unit-test

{ f }
[
    "\"abc\" asdf" <sequence-parser>
    [ CHAR: \ CHAR: \" take-quoted-string drop ] [ "asdf" take-sequence ] bi
] unit-test

{ "abc\\\"def" }
[
    "\"abc\\\"def\" asdf" <sequence-parser>
    CHAR: \ CHAR: \" take-quoted-string
] unit-test

{ "asdf" }
[
    "\"abc\" asdf" <sequence-parser>
    [ CHAR: \ CHAR: \" take-quoted-string drop ]
    [ skip-whitespace "asdf" take-sequence ] bi
] unit-test

{ f }
[
    "\"abc asdf" <sequence-parser>
    CHAR: \ CHAR: \" take-quoted-string
] unit-test

{ "\"abc" }
[
    "\"abc asdf" <sequence-parser>
    [ CHAR: \ CHAR: \" take-quoted-string drop ]
    [ "\"abc" take-sequence ] bi
] unit-test

{ "c" }
[ "c" <sequence-parser> take-token ] unit-test

{ f }
[ "" <sequence-parser> take-token ] unit-test

{ "abcd e \\\"f g" }
[ "\"abcd e \\\"f g\"" <sequence-parser> CHAR: \ CHAR: \" take-token* ] unit-test

{ "123" }
[ "123jjj" <sequence-parser> take-c-integer ] unit-test

{ "123uLL" }
[ "123uLL" <sequence-parser> take-c-integer ] unit-test

{ "123ull" }
[ "123ull" <sequence-parser> take-c-integer ] unit-test

{ "123u" }
[ "123u" <sequence-parser> take-c-integer ] unit-test