Skip to content

Commit

Permalink
Автотест, воспроизводящий ошибку с двойными кавычками в BE-Refal5 (#2)
Browse files Browse the repository at this point in the history
  • Loading branch information
Mazdaywik committed May 11, 2016
1 parent 7c7b305 commit 0769d96
Show file tree
Hide file tree
Showing 4 changed files with 34 additions and 0 deletions.
7 changes: 7 additions & 0 deletions Sources/Compiler/Tests/Refal5-double-quote.MP/~Defs/Raw.rsym
Original file line number Diff line number Diff line change
@@ -0,0 +1,7 @@
$module Raw;


$entry Check;
$entry Make;

$end Raw.
16 changes: 16 additions & 0 deletions Sources/Compiler/Tests/Refal5-double-quote.MP/~ROut/Raw.rout
Original file line number Diff line number Diff line change
@@ -0,0 +1,16 @@
v ROUT3 Module Refal 0.1
r file Tests\Refal5-double-quote.MP\~ROut\Raw.rout

b Entry::Raw::Make#28
c $Entry::Raw::Make#28$ {
c =
c "The quick brown fox jumps over the lazy dog"
c "The quick brown fox jumps over the lazy dog" ;
c }

b Entry::Raw::Check#12
c $Entry::Raw::Check#12$ {
c "The quick brown fox jumps over the lazy dog" =
c ;
c }

9 changes: 9 additions & 0 deletions Sources/Compiler/Tests/Refal5-double-quote.mref
Original file line number Diff line number Diff line change
@@ -0,0 +1,9 @@
$PROGRAM Tests::Refal5-double-quote;

$IMPORT Raw;

$ENTRY Go = <Raw::Check <Last <Raw::Make>>>;

Last s.First s.Last = s.Last;

$END Tests::Refal5-double-quote.
2 changes: 2 additions & 0 deletions Sources/Compiler/Tests/details.mk
Original file line number Diff line number Diff line change
@@ -0,0 +1,2 @@
Tests/Refal5-double-quote.test: profile=R5
Tests/Refal5-double-quote.test: TESTFLAGS=+MP:Tests/Refal5-double-quote.MP

0 comments on commit 0769d96

Please sign in to comment.