From d58a085598e930566c003aaff406e5996f91c73f Mon Sep 17 00:00:00 2001
From: Chris Double <chris@bethia.(none)>
Date: Thu, 19 Jun 2008 01:24:17 +1200
Subject: [PATCH] Add additional javascript test

---
 extra/peg/javascript/parser/parser-tests.factor | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/extra/peg/javascript/parser/parser-tests.factor b/extra/peg/javascript/parser/parser-tests.factor
index 933d4cf10e..6741e059f9 100644
--- a/extra/peg/javascript/parser/parser-tests.factor
+++ b/extra/peg/javascript/parser/parser-tests.factor
@@ -2,7 +2,7 @@
 ! See http://factorcode.org/license.txt for BSD license.
 !
 USING: kernel tools.test peg peg.javascript.ast peg.javascript.tokenizer  
-       peg.javascript.parser accessors ;
+       peg.javascript.parser accessors multiline sequences math ;
 IN: peg.javascript.parser.tests
 
 \ javascript must-infer
@@ -24,4 +24,14 @@ IN: peg.javascript.parser.tests
   }
 } [
   "123; 'hello'; foo(x);" tokenizer ast>> javascript ast>>
-] unit-test
\ No newline at end of file
+] unit-test
+
+{ t } [ 
+<"
+function foldl(f, initial, seq) {
+   for(var i=0; i< seq.length; ++i)
+     initial = f(initial, seq[i]);
+   return initial;
+}
+"> tokenizer ast>> javascript remaining>> length zero?
+] unit-test