Skip to content

Commit

Permalink
add tests for issue #196: typing in program line with line feed
Browse files Browse the repository at this point in the history
remove editor swap file from type_program_with_line_feed
  • Loading branch information
robhagemans committed Jul 10, 2022
1 parent 7c09a9d commit 5126ec7
Show file tree
Hide file tree
Showing 7 changed files with 88 additions and 0 deletions.
6 changes: 6 additions & 0 deletions tests/basic/gwbasic/type_program_with_line_feed/PCBASIC.INI
Original file line number Diff line number Diff line change
@@ -0,0 +1,6 @@
[pcbasic]
font=freedos
quit=False
load=TEST.BAS
soft-linefeed=False
keys=2010 rem continuing\nline\rlist\rrun 1000\rsystem\r
12 changes: 12 additions & 0 deletions tests/basic/gwbasic/type_program_with_line_feed/TEST.BAS
Original file line number Diff line number Diff line change
@@ -0,0 +1,12 @@
999 END
1000 ' dump screen with RUN 1000
1010 DEF SEG=&HB800
1020 OPEN "output.txt" FOR OUTPUT AS 1
1030 FOR Y = 0 TO 24
1040 FOR X = 0 TO 79
1050 PRINT #1, CHR$(PEEK(2*(Y*80+X)));
1060 NEXT
1065 PRINT #1, ""
1070 NEXT
1080 CLOSE 1

26 changes: 26 additions & 0 deletions tests/basic/gwbasic/type_program_with_line_feed/model/OUTPUT.TXT
Original file line number Diff line number Diff line change
@@ -0,0 +1,26 @@
Ok�
2010 rem continuing
line
list
999 END
1000 ' dump screen with RUN 1000
1010 DEF SEG=&HB800
1020 OPEN "output.txt" FOR OUTPUT AS 1
1030 FOR Y = 0 TO 24
1040 FOR X = 0 TO 79
1050 PRINT #1, CHR$(PEEK(2*(Y*80+X)));
1060 NEXT
1065 PRINT #1, ""
1070 NEXT
1080 CLOSE 1
2010 REM continuing
line
Ok�
run 1000







Binary file not shown.
Original file line number Diff line number Diff line change
@@ -0,0 +1,6 @@
[pcbasic]
font=freedos
quit=False
load=TEST.BAS
soft-linefeed=False
keys=2010 rem continuing\nline\rlist\r\0\x48\0\x48\x1b\0\x50\0\x50run 1000\rsystem\r
12 changes: 12 additions & 0 deletions tests/basic/gwbasic/type_program_with_line_feed_ESC/TEST.BAS
Original file line number Diff line number Diff line change
@@ -0,0 +1,12 @@
999 END
1000 ' dump screen with RUN 1000
1010 DEF SEG=&HB800
1020 OPEN "output.txt" FOR OUTPUT AS 1
1030 FOR Y = 0 TO 24
1040 FOR X = 0 TO 79
1050 PRINT #1, CHR$(PEEK(2*(Y*80+X)));
1060 NEXT
1065 PRINT #1, ""
1070 NEXT
1080 CLOSE 1

Original file line number Diff line number Diff line change
@@ -0,0 +1,26 @@
Ok�
2010 rem continuing
line
list
999 END
1000 ' dump screen with RUN 1000
1010 DEF SEG=&HB800
1020 OPEN "output.txt" FOR OUTPUT AS 1
1030 FOR Y = 0 TO 24
1040 FOR X = 0 TO 79
1050 PRINT #1, CHR$(PEEK(2*(Y*80+X)));
1060 NEXT
1065 PRINT #1, ""
1070 NEXT
1080 CLOSE 1

Ok�
run 1000









0 comments on commit 5126ec7

Please sign in to comment.