[Boost-commit] svn:boost r61565 - trunk/libs/spirit/example/scheme/test

Subject: [Boost-commit] svn:boost r61565 - trunk/libs/spirit/example/scheme/test
From: joel_at_[hidden]
Date: 2010-04-25 22:18:02

Author: djowel
Date: 2010-04-25 22:18:02 EDT (Sun, 25 Apr 2010)
New Revision: 61565
URL: http://svn.boost.org/trac/boost/changeset/61565

Log:
qi primitives working
Text files modified: 
   trunk/libs/spirit/example/scheme/test/qi_interpreter.cpp |     6 +++---                                  
   1 files changed, 3 insertions(+), 3 deletions(-)

Modified: trunk/libs/spirit/example/scheme/test/qi_interpreter.cpp
==============================================================================
--- trunk/libs/spirit/example/scheme/test/qi_interpreter.cpp	(original)
+++ trunk/libs/spirit/example/scheme/test/qi_interpreter.cpp	2010-04-25 22:18:02 EDT (Sun, 25 Apr 2010)
@@ -41,7 +41,7 @@
         int new_rule(Expr const& expr)
         {
             rules.push_back(Rule());
-            rules.front() = expr;
+            rules.back() = expr;
             return rules.size()-1;
         }
 
@@ -211,11 +211,11 @@
             "(define r (qi:char_ \"x\"))"
             "(define r2 (qi:int_))";
         interpreter parser(src, "parse.scm", &env);
-        //~ std::cout << parser["r"]() << std::endl;
-        //~ std::cout << parser["r2"]() << std::endl;
 
         BOOST_TEST(test("x", fragments.get_rule(parser["r"]()), space));
         BOOST_TEST(!test("y", fragments.get_rule(parser["r"]()), space));
+        BOOST_TEST(test("1234", fragments.get_rule(parser["r2"]()), space));
+        BOOST_TEST(!test("x1234", fragments.get_rule(parser["r2"]()), space));
 
 
     }