factor/extra/peg/javascript/parser/parser-tests.factor

! Copyright (C) 2008 Chris Double.
! See http://factorcode.org/license.txt for BSD license.

USING: kernel tools.test peg peg.javascript.ast
peg.javascript.parser accessors sequences math peg.ebnf
peg.ebnf.private ;

{
  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);" javascript
] unit-test

{ t } [
"
var x=5
var y=10
" main \ javascript rule (parse) remaining>> length zero?
] unit-test


{ t } [
"
function foldl(f, initial, seq) {
   for(var i=0; i< seq.length; ++i)
     initial = f(initial, seq[i]);
   return initial;
}" main \ javascript rule (parse) remaining>> length zero?
] unit-test

{ t } [
"
ParseState.prototype.from = function(index) {
    var r = new ParseState(this.input, this.index + index);
    r.cache = this.cache;
    r.length = this.length - index;
    return r;
}" main \ javascript rule (parse) remaining>> length zero?
] unit-test