AryaWu/sqlite

1// A test case for the LEMON parser generator.  Run as follows:2//3//     lemon lemon-test01.y && gcc -g lemon-test01.c && ./a.out4//5// This testcase was made obsolete by check-in 7cca80808cef192f on6// 2021-08-17 (associated with Forum Thread 7// https://sqlite.org/forum/forumpost/bd91fd965c9803c4) and no longer8// works.  It is retained for historical reference only.9//10%token_prefix TK_11%token_type   int12%default_type int13%include {14  static int nSyntaxError = 0;15  static int nAccept = 0;16  static int nFailure = 0;17}18 19all ::=  A B.20all ::=  error B.21 22%syntax_error {23  nSyntaxError++;24}25%parse_accept {26  nAccept++;27}28%parse_failure {29  nFailure++;30}31%code {32  #include <assert.h>33  #include "lemon-test01.h"34  static int nTest = 0;35  static int nErr = 0;36  static void testCase(int testId, int shouldBe, int actual){37    nTest++;38    if( shouldBe==actual ){39      printf("test %d: ok\n", testId);40    }else{41      printf("test %d: got %d, expected %d\n", testId, actual, shouldBe);42      nErr++;43    }44  }45  int main(int argc, char **argv){46    yyParser xp;47    ParseInit(&xp);48    Parse(&xp, TK_A, 0);49    Parse(&xp, TK_B, 0);50    Parse(&xp, 0, 0);51    ParseFinalize(&xp);52    testCase(100, 0, nSyntaxError);53    testCase(110, 1, nAccept);54    testCase(120, 0, nFailure);55    nSyntaxError = nAccept = nFailure = 0;56    ParseInit(&xp);57    Parse(&xp, TK_B, 0);58    Parse(&xp, TK_B, 0);59    Parse(&xp, 0, 0);60    ParseFinalize(&xp);61    testCase(200, 1, nSyntaxError);62    testCase(210, 1, nAccept);63    testCase(220, 0, nFailure);64    nSyntaxError = nAccept = nFailure = 0;65    ParseInit(&xp);66    Parse(&xp, TK_A, 0);67    Parse(&xp, TK_A, 0);68    Parse(&xp, 0, 0);69    ParseFinalize(&xp);70    testCase(200, 1, nSyntaxError);71    testCase(210, 0, nAccept);72    testCase(220, 0, nFailure);73    if( nErr==0 ){74      printf("%d tests pass\n", nTest);75    }else{76      printf("%d errors out %d tests\n", nErr, nTest);77    }78    return nErr;79  }80}81