1 ! Copyright (C) 2006 Chris Double. All Rights Reserved.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: kernel tools.test peg fjsc ;
5 { T{ ast-expression f V{ T{ ast-number f 55 } T{ ast-identifier f "2abc1" } T{ ast-number f 100 } } } } [
6 "55 2abc1 100" expression-parser parse
9 { T{ ast-quotation f V{ T{ ast-number f 55 } T{ ast-identifier f "2abc1" } T{ ast-number f 100 } } } } [
10 "[ 55 2abc1 100 ]" quotation-parser parse
13 { T{ ast-array f V{ T{ ast-number f 55 } T{ ast-identifier f "2abc1" } T{ ast-number f 100 } } } } [
14 "{ 55 2abc1 100 }" array-parser parse
17 { T{ ast-stack-effect f V{ } V{ "d" "e" "f" } } } [
18 "( -- d e f )" stack-effect-parser parse
21 { T{ ast-stack-effect f V{ "a" "b" "c" } V{ "d" "e" "f" } } } [
22 "( a b c -- d e f )" stack-effect-parser parse
25 { T{ ast-stack-effect f V{ "a" "b" "c" } V{ } } } [
26 "( a b c -- )" stack-effect-parser parse
29 { T{ ast-stack-effect f V{ } V{ } } } [
30 "( -- )" stack-effect-parser parse
34 ": foo ( a b -- c d ) abcdefghijklmn 123 ;" expression-parser parse not
38 { T{ ast-expression f V{ T{ ast-string f "abcd" } } } } [
39 "\"abcd\"" statement-parser parse
42 { T{ ast-expression f V{ T{ ast-use f "foo" } } } } [
43 "USE: foo" statement-parser parse
46 { T{ ast-expression f V{ T{ ast-in f "foo" } } } } [
47 "IN: foo" statement-parser parse
50 { T{ ast-expression f V{ T{ ast-using f V{ "foo" "bar" } } } } } [
51 "USING: foo bar ;" statement-parser parse