X-Git-Url: http://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=src%2Ftest.c;h=0eb787ca9b45e4df2b49ec325567a651fd57636c;hp=059af717a19c98da40c7ebade7168065ce8a2f9c;hb=2c43a7d73a91f64b1318306fa259a9337951a3a3;hpb=a4fb30372d14e8415e2f9b8e647c20daeab59d7d diff --git a/src/test.c b/src/test.c index 059af71..0eb787c 100644 --- a/src/test.c +++ b/src/test.c @@ -13,13 +13,14 @@ static char source_test[] = " i : INTEGER;" "" "BEGIN" - " i := 0;" - " Out.Open();" - " REPEAT" - " Out.String('Count '); Out.Int(i, 0); Out.Ln;" - " i := i + 1;" - " UNTIL i < 4;" - " Out.String('end'); Out.Ln;" + " Out.Open;" + " CASE 666 OF" + " 2, 3, 4, 5: Out.String('Zero');" + " | 10..20, 24: Out.String('Holy shit');" + " ELSE" + " Out.String('Something else');" + " END;" + " Out.Ln;" "END Test." ;