selftests.gsp

This is the verbatim text of the file "selftests.gsp" part of the LLOOP package. The copyright remains with Michel MEHL. All rights reserved.

import cplusplus_comment;

import uint;
import char;
import word;
import fileunix;
import filewindows;
import urlfile;

import teststringclass;
import testfileclass;

/* This was used for testing error cases 
token uint {{ }}
token QuoteToken {{ }}
*/

symbol selftests 
 test {{
   "simple valid test" : pass { (200,400) "point 1" (100,30) "point 2" world hello}
   "not accepted": fail { (200,400) "point 1" (100,30) "point 2" hello world}
   "not accepted": fail { (200,400) "point 1" (100,30) "point 2" world hallo}
   "other valid test ": pass {
I
 (1,2) "data"  you
(1,2) "data2" he
hello
}
 }}
;

selftests ::= { ! 'data' { '(' uint ',' uint ')' quote } ! hello word } ! hallo word
{{
//  cout << "last const='" << #5(2) << "'" << endl;
}}

hello::= 'hello' {{}}
hallo::= 'hallo' {{}}

This file is part of the LLOOP Reversible Object-Oriented Parser Generator. Copyright (c) 2005-2006 Michel MEHL, France. All rights reserved. LLOOP is distributed by the company ERSA SaRL.