42 lines
752 B
Factor
42 lines
752 B
Factor
|
! Copyright (C) 2008 Chris Double.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
!
|
||
|
|
USING: kernel tools.test peg peg.javascript accessors ;
|
||
|
|
IN: peg.javascript.tests
|
||
|
|
|
||
|
|
\ javascript must-infer
|
||
|
|
|
||
|
|
{
|
||
|
|
V{
|
||
|
|
T{ ast-number f 123 }
|
||
|
|
";"
|
||
|
|
T{ ast-string f "hello" }
|
||
|
|
";"
|
||
|
|
T{ ast-name f "foo" }
|
||
|
|
"("
|
||
|
|
T{ ast-name f "x" }
|
||
|
|
")"
|
||
|
|
";"
|
||
|
|
}
|
||
|
|
} [
|
||
|
|
"123; 'hello'; foo(x);" tokenizer ast>>
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
{
|
||
|
|
T{
|
||
|
|
ast-begin
|
||
|
|
f
|
||
|
|
V{
|
||
|
|
T{ ast-number f 123 }
|
||
|
|
T{ ast-string f "hello" }
|
||
|
|
T{
|
||
|
|
ast-call
|
||
|
|
f
|
||
|
|
T{ ast-get f "foo" }
|
||
|
|
V{ T{ ast-get f "x" } }
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} [
|
||
|
|
"123; 'hello'; foo(x);" tokenizer ast>> javascript ast>>
|
||
|
|
] unit-test
|